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
VBScript : Add Printer
Friday, July 23, 2010 at 1:36 PM Posted by AumJa24
Labels: VBScript
Subscribe to:
Post Comments (Atom)
0 comments:
Post a Comment