Drucker
Sehr oft kommt es vor das nicht der richtige Drucker im Netzwerk als Standart Drucker verbunden ist. Vieleicht hilft dieses kleine Script!
Option Explicit
' Objekt "WScript.Network" erstellen
Dim objNetwork
Set objNetwork = CreateObject("WScript.Network")
' Alle Drucker löschen
On Error Resume Next
Dim colPrinters, objPrinter
Set colPrinters = objNetwork.EnumPrinterConnections
For Each objPrinter In colPrinters
objNetwork.RemovePrinterConnection objPrinter
Next
' Neuen Drucker hinzufügen
objNetwork.AddWindowsPrinterConnection "\\Servername\Druckername"
objNetwork.SetDefaultPrinter "\\Servername\Druckername"
' Überprüfen, ob der Drucker hinzugefügt wurde
On Error Resume Next
Set colPrinters = objNetwork.EnumPrinterConnections
If colPrinters.Count > 0 Then
Dim i, strPrinter
For i = 0 To colPrinters.Count - 1
strPrinter = colPrinters.Item(i)
If LCase(strPrinter) = LCase("\\Servername\Druckername") Then
WScript.Echo "Drucker wurde erfolgreich hinzugefügt und als Standarddrucker festgelegt."
Exit For
End If
Next
End If
' Skriptende
WScript.Quit
Dieses Skript verwendet den Windows Script Host, um alle vorhandenen Drucker auf dem Computer zu löschen und dann einen neuen Standarddrucker hinzuzufügen. Der neue Drucker wird als Standarddrucker festgelegt und es wird überprüft, ob der Drucker erfolgreich hinzugefügt wurde.
Beachten Sie, dass Sie den Namen des Servers und des Druckers entsprechend Ihrer Netzwerkkonfiguration anpassen müssen. Speichern Sie das Skript als .vbs-Datei und platzieren Sie es im Startordner der Benutzer oder in der Gruppenrichtlinie der Domäne, um sicherzustellen, dass es bei jeder Anmeldung ausgeführt wird.