www.IT-Visions.de-Diskussionsforen (Version 2.1)
(Diese Seite wurde noch nicht auf das neue Layout umgestellt!)


Diese Foren stehen den Lesern unserer Bücher und allen anderen registrieren Benutzern dieser Website zur Verfügung. Wir würden uns freuen, wenn viele Nutzer dieser Website hier nicht nur Fragen stellen, sondern auch die Fragen anderer Nutzer beantworten. Diese Foren sind ein ehrenamtlicher, nicht-kommerzieller, unmoderierter Community-Dienst von www.IT-Visions.de. Wenn Sie kommerzielle Unterstützung für .NET/Scripting/PowerShell suchen, schauen Sie bitte auf unser Support-Angebot und unsere Schulungsangebote für Scripting und Schulungsangebote für .NET.



Netzwerkdrucker eines Bestimmten Servers löschen
Autor:  TorstenGilliard
E-mail:  Antworten bitte nur in das Forum!
Datum:  02.10.2008 19:14:56
Subject:  Netzwerkdrucker eines Bestimmten Servers löschen
Bezug zum Buch: 
Message:  Hallo
Ich habe folgendes Problem.
Bei den Usern sind Drucker von unterschiedlichen Printservern installiert. Nun sollen alle Drucker eines Bestimmten Servers auf den Clients gelöscht werden.

Das Script sieht folgendermasen aus:

Sub LoeschenNetzdrucker()
Dim strComputer, objPrinter
'On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery("Select * from Win32_Printer Where Network = True and ServerName = '\\bvmps01'")
    For Each objPrinter in colInstalledPrinters
    objPrinter.Delete_   
Next
MsgBox colInstalledPrinters.Count
End Sub

Wenn das Script nur mit der Abfrage Network = True läuft, werden alle Drucker gelöscht. Sobald die Bedingung mit dem Servername hinzugefügt wird, wird kein Drucker mehr gelöscht.
das Value bei objPrinter ist empty
Von Scriptomat wird folgender Servername ausgegeben
ServerName: \\bvmps01
Wäre nett wenn jemand eine Antwort hätte

Antworten

  Zurück zum Forum



 Klassische Programmierung (Scripting, COM) -- Windows Scripting, VBScript, VB6, u.a.
 Netzwerkdrucker eines Bestimmten Servers löschen von TorstenGilliard  am 2.10.2008 7:14:56 PM


www.IT-Visions.de - Dr. Holger Schwichtenberg / 1998-2019