On Error Resume Next
Dim objNetwork
Set objNetwork=CreateObject("WScript.Network")

'map printer for legacy accounting application
objNetwork.AddPrinterConnection "LPT1","\\Print01\hp1100",True

'map printer for other Windows applications
objNetwork.AddWindowsPrinterConnection "\\Print01\HP5si"

'specify default printer
objNetwork.SetDefaultPrinter "\\Print01\HP5si"

'map public drive
objNetwork.MapNetworkDrive "P:","\\File02\Public",True