Set args = WScript.Arguments

If args.Count < 3 then
	Wscript.Echo "usage : %0 (pause|resume) Server Printer"
	WScript.Quit 255
end If

strCmd = args.item(0)
strServer = args.item(1)
strPrinter = args.item(2)

Set objWMIService =
GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strServer & "\root\cimv2")
Set colPrinters =  objWMIService.ExecQuery("Select * from Win32_Printer Where Name='" & strPrinter & "'")

If colprinters.Count > 0 Then
	For Each objPrinter in colPrinters
		If strCmd = "pause" then ObjPrinter.Pause()
		If strCmd = "resume" then ObjPrinter.Resume()
	Next
Else
	Wscript.Echo strPrinter & " was not found on server " & strServer
End If