Jump to content

Netzwerkdrucler per vb Script löschen


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

Empfohlene Beiträge

Hallo,

 

ich habe einen Script, der Drucker abhängig von der AD-Gruppe mappt:

 

____________________________________________________________

strUser = "LDAP://" & CreateObject("ADSystemInfo").UserName

StrPrintSRV = "Printserver"

 

On Error resume next

 

rem Drucker mappen, wenn Benutzer in Gruppe "Kevin_Drucker"

If GetObject("LDAP://CN=Kevin_Drucker,OU=Gruppen,DC=Domain,DC=de").IsMember(strUser) Then

Set WshNetwork = Wscript.CreateObject("Wscript.Network")

WshNetwork.AddWindowsPrinterConnection "\\" & strPrintSRV & "\Drucker1"

WshNetwork.AddWindowsPrinterConnection "\\" & strPrintSRV & "\Drucker2"

WshNetwork.AddWindowsPrinterConnection "\\" & strPrintSRV & "\Drucker3"

end if

____________________________________________________________

 

Ich möchte gerne vorher alle Drucker, die verbunden sind löschen.

Wie kann ich das per Script machen?

 

Danke schonmal.

 

Gruß

 

Kevin

Link zu diesem Kommentar

Das könnte man zum Beispiel so lösen:


Const NETWORK = 22

Set objNetwork = CreateObject("WScript.Network")

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colPrinters = objWMIService.ExecQuery("Select * From Win32_Printer")

For Each objPrinter in colPrinters
If objPrinter.Attributes And NETWORK Then
strPrinter = objPrinter.Name
objNetwork.RemovePrinterConnection strPrinter
End If
Next

[/Code]

 

Quelle: Hey, Scripting Guy! How Can I Remove All the Network Printers on a Computer?

Link zu diesem Kommentar

Dann probier es mal so:


Set objNetwork = CreateObject("WScript.Network")

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colPrinters = objWMIService.ExecQuery("Select * From Win32_Printer")

For Each objPrinter in colPrinters
If objPrinter.Attributes Then
strPrinter = objPrinter.Name
objNetwork.RemovePrinterConnection strPrinter
End If
Next
[/Code]

 

BTW: Wir reden von einem XP-Client?

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...