Hi,
beim Start unserer Rechner wird ein Script ausgeführt, welches verschiedene Netzwerkdrucker installiert und einen von ihnen als Standarddrucker definiert.
Dieses funktioniert soweit. Jedoch habe ich an einigen Plätzen "Fineprint" installiert, welches einen entsprechenden Drucker anlegt.
Jetzt möchte ich das Script modifizieren.
Wenn der Drucker "FinePrint" gefunden wird, soll dieser als Standdrucker genutzt werden. Wird er nicht gefunden, dann soll der eine Netzwerkdrucker (z. B. DruckerSW) als Standarddrucker gewählt werden.
Folgendes Script zum setzen des Standarddruckers für "FinePrint" habe ich, aber wie muss ich es modifizieren um folgendes "objNetwork.SetDefaultPrinter strUNCDruckerSW" einzubinden, wenn FinePrint nicht gefunden wird?
******************************************************************************************************
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery ("Select * from Win32_Printer")
For Each objPrinter in colInstalledPrinters
If objPrinter.name = "FinePrint" then
objPrinter.SetDefaultPrinter()
End If
Next
******************************************************************************************************
Kann jemand helfen?
Vielen Dank schon mal im voraus.
Sven
beim Start unserer Rechner wird ein Script ausgeführt, welches verschiedene Netzwerkdrucker installiert und einen von ihnen als Standarddrucker definiert.
Dieses funktioniert soweit. Jedoch habe ich an einigen Plätzen "Fineprint" installiert, welches einen entsprechenden Drucker anlegt.
Jetzt möchte ich das Script modifizieren.
Wenn der Drucker "FinePrint" gefunden wird, soll dieser als Standdrucker genutzt werden. Wird er nicht gefunden, dann soll der eine Netzwerkdrucker (z. B. DruckerSW) als Standarddrucker gewählt werden.
Folgendes Script zum setzen des Standarddruckers für "FinePrint" habe ich, aber wie muss ich es modifizieren um folgendes "objNetwork.SetDefaultPrinter strUNCDruckerSW" einzubinden, wenn FinePrint nicht gefunden wird?
******************************************************************************************************
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery ("Select * from Win32_Printer")
For Each objPrinter in colInstalledPrinters
If objPrinter.name = "FinePrint" then
objPrinter.SetDefaultPrinter()
End If
Next
******************************************************************************************************
Kann jemand helfen?
Vielen Dank schon mal im voraus.
Sven