Option Explicit
Dim objNetwork, strRemotePath1, strRemotePath2
Dim strDriveLetter1, strDriveLetter2
strDriveLetter1 = "P:"
strDriveLetter2 = "X:"
strRemotePath1 = "
file://conto/Prog"
strRemotePath2 = "
file://conto/Files"
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1
objNetwork.MapNetworkDrive strDriveLetter2, strRemotePath2
Dim strLocal, strUNCPrinter1, strUNCPrinter2
strLocal = "Ricoh"
strUNCPrinter1 = "
file://conto/color"
strUNCPrinter2 = "
file://conto/black"
objNetwork.AddWindowsPrinterConnection strUNCPrinter1
objNetwork.AddWindowsPrinterConnection strUNCPrinter2
objNetwork.SetDefaultPrinter strUNCPrinter1