Set wshNetwork = CreateObject( "WScript.Network" ) On Error Resume Next wshnetwork.AddWindowsPrinterConnection "\\CompanyServer\LaserJet Marketing" If Err Then WScript.Echo "Error " & Err.Number & " while trying to connect to LaserJet Marketing" WScript.Echo "(" & Err.Description & ")" End If On Error Goto 0 Set wshNetwork = Nothing