วันพฤหัสบดีที่ 22 กรกฎาคม พ.ศ. 2553

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

ไม่มีความคิดเห็น:

แสดงความคิดเห็น