Jump to content

PortMs

Members
  • Gesamte Inhalte

    1
  • Registriert seit

  • Letzter Besuch

Alle erstellten Inhalte von PortMs

  1. 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
×
×
  • Neu erstellen...