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

  • Thread starter pau_zathrus@hotmail.com
  • Start date
P

pau_zathrus@hotmail.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
 
P

Pegasus \(MVP\)

<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
 
M

Mathieu CHATEAU

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
>
 
P

pau_zathrus@hotmail.com

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 :(
 
P

pau_zathrus@hotmail.com

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
 
P

pau_zathrus@hotmail.com


> 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
______________________________________________
 
You must log in or register to reply here.
Back
Top Bottom