Set wshNetwork = CreateObject( "WScript.Network" ) On Error Resume Next wshNetwork.SetDefaultPrinter "\\Server\HP LaserJet 4" If Err Then WScript.Echo "Error " & Err.Number & " while trying to make HP LaserJet 4 the default printer" WScript.Echo "(" & Err.Description & ")" End If On Error Goto 0 Set wshNetwork = Nothing