SxanRR

Option Explicit
Dim objNetwork
Dim strDriveLetter, strRemotePath, strUserName, strUNCPrinter1, strUNCPrinter2, strUNCPrinter3, strUNCPrinter4, strUNCPrinter5
strDriveLetter = "U:"
strRemotePath = "\\ppapc-dc02\shares\users"
strUNCPrinter1 = "\\ppapc-dc01\HP Color Laserjet 3600n"
strUNCPrinter2 = "\\ppapc-dc01\HP1055CM"
strUNCPrinter3 = "\\ppapc-dc01\OceTDS60"
strUNCPrinter4 = "\\ppapc-dc01\HP LaserJet 5100"
strUNCPrinter5 = "\\ppapc-dc01\HPLaserJet5000"

'Shared drives'
Set objNetwork = WScript.CreateObject("WScript.Network")
strUserName = objNetwork.UserName
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath _
& "\" & strUserName
objNetwork.MapNetworkDrive "W:" , "\\ppapc-dc02\Shares\Work"
objNetwork.MapNetworkDrive "I:" , "\\ppapc-dc02\Shares\Install"
objNetwork.MapNetworkDrive "G:" , "\\ppapc-dc02\Shares\Groups"

'Printers'

objNetwork.AddWindowsPrinterConnection strUNCPrinter1
objNetwork.AddWindowsPrinterConnection strUNCPrinter2
objNetwork.AddWindowsPrinterConnection strUNCPrinter3
objNetwork.AddWindowsPrinterConnection strUNCPrinter4
objNetwork.AddWindowsPrinterConnection strUNCPrinter5

Set objNetwork = Nothing

WScript.Quit