On Error Resume Next
Set objNetwork = WScript.CreateObject("WScript.Network") 
objNetwork.MapNetworkDrive "o:" , "\\waterford\H\newspaper"
Set objNetwork = WScript.CreateObject("WScript.Network") 
objNetwork.MapNetworkDrive "i:" , "\\waterford\i\Student Files"

 
Dim oNetwork 
Set oNetwork = CreateObject("WScript.Network")

oNetwork.AddWindowsPrinterConnection "\\brhs-stor\Xerox7655"
oNetwork.AddWindowsPrinterConnection "\\brhs-stor\HSLAB_HP3800"
oNetwork.AddWindowsPrinterConnection "\\brhs-stor\Ricoh_Admin"
oNetwork.SetDefaultPrinter "\\brhs-stor\Xerox7655"
Set oNetwork = Nothing