Jump to content

Netzwerkdrucker per Script entfernen


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

Hier eine Funktion, die alle Netzwerk-Drucker entfernt:

 

Dim net

Set net = WScript.CreateObject("WScript.Network")

RemNetPrinter()

 

FUNCTION RemNetPrinter()

Dim oPrinters

Set oPrinters = net.EnumPrinterConnections

 

For i = 1 to oPrinters.Count Step 2

IF instr(oPrinters.Item(i), "\\") = 1 THEN

net.RemovePrinterConnection oPrinters.Item(i), true, true

END IF

Next

END FUNCTION

 

Da die Drucker-Verwaltung von Windows in einer Domäne nun mal ziemlich Gaga ist, und User mit ihrem Profil die gemappten Netzwerk Drucker immer "mitnehmen", löschen wir bei jeder Domänen Anmeldung erst einmal alle Netzwerk-Drucker, und mappen diese dann abhängig vom Namen des PC neu. Mt VB Script alles kein Problem ...

 

Pidi

Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...