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

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
______________________________________________