Auf diese Weise trennt man die Verbindung sämtlicher Netzwerkdrucker, welche an einer IP-Adresse angeschlossen sind. Allfällige lokale Drucker mit Freigaben (Namensspace) werden so nicht getrennt.
Set objNetwork = Wscript.CreateObject("WScript.Network")
Set selPrinter = objNetwork.EnumPrinterConnections
Netzwerdrocker mittels VBscript löschen
in Windows Forum — LAN & WAN
Geschrieben
Auf diese Weise trennt man die Verbindung sämtlicher Netzwerkdrucker, welche an einer IP-Adresse angeschlossen sind. Allfällige lokale Drucker mit Freigaben (Namensspace) werden so nicht getrennt.
Set objNetwork = Wscript.CreateObject("WScript.Network")
Set selPrinter = objNetwork.EnumPrinterConnections
Dim FlagPrinter
For i = 0 to selPrinter.Count -1 Step 2
FlagPrinter = selPrinter.Item(i) & vTab & selPrinter.Item(i+1)
if left(FlagPrinter,3) = "IP_" then
objNetwork.RemovePrinterConnection mid(FlagPrinter,16,100)
end if
Next