Friday, July 23, 2010

VBScript : Add Printer

PrintServer1 = "\\10.2.0.37\Xerox_Pool_Black"
PrintServer2 = "\\10.2.0.37\Xerox_Pool_Color"
set objNetwork = createobject("Wscript.Network")
objNetwork.AddWindowsPrinterConnection(PrintServer1)
objNetwork.AddWindowsPrinterConnection(PrintServer2)
'**** Make the printer default
objNetwork.SetDefaultPrinter PrintServer1
msgbox("Add Printer Succesfully")

Save text as .vbs

No comments:

Post a Comment