microsoft:misc:prn_scripts
Instalacija i postavljanje default mrežnog printera
Dim net
Set net = CreateObject("WScript.Network")
net.AddWindowsPrinterConnection "\\server\printer"
net.SetDefaultPrinter "\\server\printer"
Brisanje svih printera i postavljanje novih
'==========================================================================
'
' NAME: RemoveNetPrinters.vbs
' COMMENT: Removes and add all net printers (XP Only)
'
'==========================================================================
ON ERROR RESUME NEXT
Set wshNet = CreateObject("WScript.Network")
Set wshPrn = wshNet.EnumPrinterConnections
For x = 0 To wshPrn.Count - 1 Step 2
If Left(wshPrn.Item(x+1),2) = "\\" Then wshNet.RemovePrinterConnection wshPrn.Item(x+1),True,True
Next
wshnet.AddWindowsPrinterConnection "\\server\printer01"
wshnet.AddWindowsPrinterConnection "\\server\printer02"
wshnet.SetDefaultPrinter "\\server\printer02"
'==========================================================================
microsoft/misc/prn_scripts.txt · Last modified: 2013/08/01 03:46 by 127.0.0.1