Script for Users to Connect to Homefolder (Drivemapping), and 4 shared Printers in Wireless Network

[Guest pau_zathrus@hotmail.com]

Script for Users to Connect to Homefolder (Drivemapping), and 4 shared Printers in Wireless Network

 

Im not able to get my users to logon as a part of a Domain. So i

really need help in a script that connects my users to their shared

homefolder and shared printers on a W2003 server... Using a preset set

of username and Password... So all they have to do is Run the Script,

OR as a part of the XP Logon...

 

Any Ideas...

Here is what I have so far.. stil needing the Drivemapping and use of

Usernames and password.

_______________________________________________________________________

Option Explicit

Dim objNetwork, strLocal, strUNCPrinter1, strUNCPrinter2,

strUNCPrinter3, strUNCPrinter4

 

strLocal = "Bizhub"

strUNCPrinter1 = "\\berndc1\Bizhub"

strUNCPrinter2 = "\\Berndc1\Konica7040"

strUNCPrinter3 = "\\Berndc1\Konica7022"

strUNCPrinter4 = "\\Berndc1\hp4100"

Set objNetwork = CreateObject("WScript.Network")

objNetwork.AddWindowsPrinterConnection strUNCPrinter1

objNetwork.AddWindowsPrinterConnection strUNCPrinter2

objNetwork.AddWindowsPrinterConnection strUNCPrinter3

objNetwork.AddWindowsPrinterConnection strUNCPrinter4

objNetwork.SetDefaultPrinter strUNCPrinter1

 

_________________________________________________________________________

 

Thx in advance.. :)

PaU

[Guest Pegasus \(MVP\)]

Re: Script for Users to Connect to Homefolder (Drivemapping), and 4 shared Printers in Wireless Network

 

Re: Script for Users to Connect to Homefolder (Drivemapping), and 4 shared Printers in Wireless Network

 

 

<pau_zathrus@hotmail.com> wrote in message

news:1186735865.203434.192810@i38g2000prf.googlegroups.com...

> Im not able to get my users to logon as a part of a Domain. So i

> really need help in a script that connects my users to their shared

> homefolder and shared printers on a W2003 server... Using a preset set

> of username and Password... So all they have to do is Run the Script,

> OR as a part of the XP Logon...

>

> Any Ideas...

> Here is what I have so far.. stil needing the Drivemapping and use of

> Usernames and password.

> _______________________________________________________________________

> Option Explicit

> Dim objNetwork, strLocal, strUNCPrinter1, strUNCPrinter2,

> strUNCPrinter3, strUNCPrinter4

>

> strLocal = "Bizhub"

> strUNCPrinter1 = "\\berndc1\Bizhub"

> strUNCPrinter2 = "\\Berndc1\Konica7040"

> strUNCPrinter3 = "\\Berndc1\Konica7022"

> strUNCPrinter4 = "\\Berndc1\hp4100"

> Set objNetwork = CreateObject("WScript.Network")

> objNetwork.AddWindowsPrinterConnection strUNCPrinter1

> objNetwork.AddWindowsPrinterConnection strUNCPrinter2

> objNetwork.AddWindowsPrinterConnection strUNCPrinter3

> objNetwork.AddWindowsPrinterConnection strUNCPrinter4

> objNetwork.SetDefaultPrinter strUNCPrinter1

>

> _________________________________________________________________________

>

> Thx in advance.. :)

> PaU

>

 

The syntax for the MapNetworkDrive method is

object.MapNetworkDrive(strLocalName, strRemoteName, [bUpdateProfile],

[strUser], [strPassword])

 

You can find full details in script56.chm. An easier way might

be to make your connections with a batch file:

 

@echo off

net use Q: \\YourServer\SomeShare /user:JDoe SomePassword

 

Here you get full help with either of these commands:

net use /?

net help use

[Guest Mathieu CHATEAU]

Re: Script for Users to Connect to Homefolder (Drivemapping), and 4 shared Printers in Wireless Network

 

Re: Script for Users to Connect to Homefolder (Drivemapping), and 4 shared Printers in Wireless Network

 

You should rather fix your original trouble, so they can join the domain.

That should be easy to fix.

 

Is you DC also a dns server ?

Your stations must have your dc as dns server.

Then try to join your domain.

Must have less than 5mn of difference in clock between station and server.

 

 

--

Cordialement,

Mathieu CHATEAU

http://lordoftheping.blogspot.com

 

 

<pau_zathrus@hotmail.com> wrote in message

news:1186735865.203434.192810@i38g2000prf.googlegroups.com...

> Im not able to get my users to logon as a part of a Domain. So i

> really need help in a script that connects my users to their shared

> homefolder and shared printers on a W2003 server... Using a preset set

> of username and Password... So all they have to do is Run the Script,

> OR as a part of the XP Logon...

>

> Any Ideas...

> Here is what I have so far.. stil needing the Drivemapping and use of

> Usernames and password.

> _______________________________________________________________________

> Option Explicit

> Dim objNetwork, strLocal, strUNCPrinter1, strUNCPrinter2,

> strUNCPrinter3, strUNCPrinter4

>

> strLocal = "Bizhub"

> strUNCPrinter1 = "\\berndc1\Bizhub"

> strUNCPrinter2 = "\\Berndc1\Konica7040"

> strUNCPrinter3 = "\\Berndc1\Konica7022"

> strUNCPrinter4 = "\\Berndc1\hp4100"

> Set objNetwork = CreateObject("WScript.Network")

> objNetwork.AddWindowsPrinterConnection strUNCPrinter1

> objNetwork.AddWindowsPrinterConnection strUNCPrinter2

> objNetwork.AddWindowsPrinterConnection strUNCPrinter3

> objNetwork.AddWindowsPrinterConnection strUNCPrinter4

> objNetwork.SetDefaultPrinter strUNCPrinter1

>

> _________________________________________________________________________

>

> Thx in advance.. :)

> PaU

>

[Guest pau_zathrus@hotmail.com]

Re: Script for Users to Connect to Homefolder (Drivemapping), and 4 shared Printers in Wireless Network

 

Re: Script for Users to Connect to Homefolder (Drivemapping), and 4 shared Printers in Wireless Network

 

On 10 Aug., 11:28, "Mathieu CHATEAU" <gollum...@free.fr> wrote:

> You should rather fix your original trouble, so they can join the domain.

> That should be easy to fix.

>

> Is you DC also a dns server ?

> Your stations must have your dc as dns server.

> Then try to join your domain.

> Must have less than 5mn of difference in clock between station and server.

>

 

I know - but its Dell D510 Laptops, and cant get the Wireless Network

(IntelPro 2200) To Pre-windows Logon, so the Domain Controler is not

reacheable..

The DC is also running as a DHCP.

I really would app. a full finished ending to my script - adding the

mapped Network Homefolder, and the Use of Username and Password...

YSS:

Brian Haarh - MCSE - but an Idiot in scripting and Code :(

[Guest pau_zathrus@hotmail.com]

Re: Script for Users to Connect to Homefolder (Drivemapping), and 4 shared Printers in Wireless Network

 

Re: Script for Users to Connect to Homefolder (Drivemapping), and 4 shared Printers in Wireless Network

 

On 10 Aug., 11:27, "Pegasus \(MVP\)" <I....@fly.com> wrote:

> <pau_zath...@hotmail.com> wrote in message

>

> news:1186735865.203434.192810@i38g2000prf.googlegroups.com...

>

>

>

>

>

> > Im not able to get my users to logon as a part of a Domain. So i

> > really need help in a script that connects my users to their shared

> > homefolder and shared printers on a W2003 server... Using a preset set

> > of username and Password... So all they have to do is Run the Script,

> > OR as a part of the XP Logon...

>

> > Any Ideas...

> > Here is what I have so far.. stil needing the Drivemapping and use of

> > Usernames and password.

> > _______________________________________________________________________

> > Option Explicit

> > Dim objNetwork, strLocal, strUNCPrinter1, strUNCPrinter2,

> > strUNCPrinter3, strUNCPrinter4

>

> > strLocal = "Bizhub"

> > strUNCPrinter1 = "\\berndc1\Bizhub"

> > strUNCPrinter2 = "\\Berndc1\Konica7040"

> > strUNCPrinter3 = "\\Berndc1\Konica7022"

> > strUNCPrinter4 = "\\Berndc1\hp4100"

> > Set objNetwork = CreateObject("WScript.Network")

> > objNetwork.AddWindowsPrinterConnection strUNCPrinter1

> > objNetwork.AddWindowsPrinterConnection strUNCPrinter2

> > objNetwork.AddWindowsPrinterConnection strUNCPrinter3

> > objNetwork.AddWindowsPrinterConnection strUNCPrinter4

> > objNetwork.SetDefaultPrinter strUNCPrinter1

>

> > _________________________________________________________________________

>

> > Thx in advance.. :)

> > PaU

>

> The syntax for the MapNetworkDrive method is

> object.MapNetworkDrive(strLocalName, strRemoteName, [bUpdateProfile],

> [strUser], [strPassword])

>

> You can find full details in script56.chm. An easier way might

> be to make your connections with a batch file:

>

> @echo off

> net use Q: \\YourServer\SomeShare /user:JDoe SomePassword

>

> Here you get full help with either of these commands:

> net use /?

> net help use- Skjul tekst i anførselstegn -

>

> - Vis tekst i anførselstegn -

 

Here is what I have now- But still not working.

Option Explicit

Dim objNetwork, strLocal, strUNCPrinter1, strUNCPrinter2,

strUNCPrinter3, strUNCPrinter4

object.MapNetworkDrive, strLocalName, strRemoteName, strUsername,

strPassword

 

strLocalname = "Q:"

strRemotename = "\\berndc1\pershomedir\User"

strUsername = "User"

StrPassword = "PaSsWoRd"

strLocal = "Bizhub"

strUNCPrinter1 = "\\berndc1\Bizhub"

strUNCPrinter2 = "\\Berndc1\Konica7040"

strUNCPrinter3 = "\\Berndc1\Konica7022"

strUNCPrinter4 = "\\Berndc1\hp4100"

Set objNetwork = CreateObject("WScript.Network")

objNetwork.AddWindowsPrinterConnection strUNCPrinter1

objNetwork.AddWindowsPrinterConnection strUNCPrinter2

objNetwork.AddWindowsPrinterConnection strUNCPrinter3

objNetwork.AddWindowsPrinterConnection strUNCPrinter4

objNetwork.SetDefaultPrinter strUNCPrinter1

 

 

WScript.Quit

[Guest pau_zathrus@hotmail.com]

Re: Script for Users to Connect to Homefolder (Drivemapping), and 4 shared Printers in Wireless Network

 

Re: Script for Users to Connect to Homefolder (Drivemapping), and 4 shared Printers in Wireless Network

 

> The syntax for the MapNetworkDrive method is

> object.MapNetworkDrive(strLocalName, strRemoteName, [bUpdateProfile],

> [strUser], [strPassword])

 

 

Heres the Result so far:

_____________________________________________________________________

Option Explicit

 

Dim objNetwork, strLocal, strUNCPrinter1, strUNCPrinter2,

strUNCPrinter3, strUNCPrinter4,strLocalName, strRemoteName,

strUsername, strPassword

strLocalname = "Q:"

strRemotename = "\\berndc1\pershomedir\Username"

strUsername = "Username"

StrPassword = "P@ZWoRD"

strLocal = "Bizhub"

strUNCPrinter1 = "\\berndc1\Bizhub"

strUNCPrinter2 = "\\Berndc1\Konica7040"

strUNCPrinter3 = "\\Berndc1\Konica7022"

strUNCPrinter4 = "\\Berndc1\hp4100"

Set objNetwork = CreateObject("WScript.Network")

objNetwork.AddWindowsPrinterConnection strUNCPrinter1

objNetwork.AddWindowsPrinterConnection strUNCPrinter2

objNetwork.AddWindowsPrinterConnection strUNCPrinter3

objNetwork.AddWindowsPrinterConnection strUNCPrinter4

objNetwork.SetDefaultPrinter strUNCPrinter1

 

 

WScript.Quit

______________________________________________