Option Explicit Dim objNetwork, DriveLetter1, DriveLetter2, DriveLetter3,DriveLetter4, Printer1, Printer2, RemotePath1, RemotePath2, RemotePath3, RemotePath4 Set objNetwork = CreateObject("WScript.Network") DriveLetter1 = "m:" DriveLetter2 = "h:" DriveLetter3 = "u:" DriveLetter4 = "s:" RemotePath1 = "\\server1\share1" RemotePath2 = "\\server1\share2" RemotePath3 = "\\server1\share3" RemotePath4 = "\\server1\users\" & objNetwork.UserName ON ERROR RESUME NEXT Printer1="\\server1\P1" Printer2="\\server1\P2" objNetwork.AddWindowsPrinterConnection Printer1 objNetwork.AddWindowsPrinterConnection Printer2 objNetwork.MapNetworkDrive DriveLetter1, RemotePath1 objNetwork.MapNetworkDrive DriveLetter2, RemotePath2 objNetwork.MapNetworkDrive DriveLetter3, RemotePath3 objNetwork.MapNetworkDrive DriveLetter4, RemotePath4 WScript.Quit