AddPrinters.vbs

Dim objNetwork, strPrintServer1, strPrintserver2

Set objNetwork = WScript.CreateObject(«WScript.Network»)
strPrintServer1 = «\\nt-server-1\»
strPrintServer2 = «\\thsrv06\»

objNetwork.AddWindowsPrinterConnection strPrintServer1 & «BrotherTavle»
objNetwork.AddWindowsPrinterConnection strPrintServer1 & «hpLJ5000»
objNetwork.AddWindowsPrinterConnection strPrintServer1 & «DSC224c»
objNetwork.AddWindowsPrinterConnection strPrintServer1 & «DSC224»
objNetwork.AddWindowsPrinterConnection strPrintServer1 & «R2032fax»
objNetwork.AddWindowsPrinterConnection strPrintServer1 & «Ricoh2032»
objNetwork.AddWindowsPrinterConnection strPrintServer1 & «Rmpc4500c»
objNetwork.AddWindowsPrinterConnection strPrintServer1 & «Rmpc4500»
objNetwork.AddWindowsPrinterConnection strPrintServer1 & «RicohFAX»
objNetwork.AddWindowsPrinterConnection strPrintServer1 & «HP4500PCL»
objNetwork.AddWindowsPrinterConnection strPrintServer1 & «hpDjT610»

Wscript.Quit

Tags: , ,
This site is protected by WP-CopyRightPro