Guten Morgen liebe Leute von WWW!
Ich habei ein Problem beim Auslesen einer Collection mit For Each.
Kurze Einführung zum Skript:
Also ich möchte alle verfügbaren Drucker unseres Printservers in der Firma auslesen und in eine Datei speichern. (Skript wird danach noch ausgebaut das man Drucker per Remote verbinden kann usw.)
Hier gleich mal der Code:
strcomputer = „srv1“ 'Server oder PC-Name
strusername = „admin“ 'admin Username
strpassword = „adminpw“ 'admin Passwort
Const WbemAuthenticationLevelPktPrivacy = 6
Set objwbemlocator = CreateObject(„WbemScripting.SWbemLocator“)
Set objWMIService = objwbemlocator.ConnectServer(strComputer, „root\cimv2“, strUsername, strPassword)
objWMIService.Security_.authenticationLevel = WbemAuthenticationLevelPktPrivacy
Set objPrinters = objWMIService.ExecQuery(„Select * From Win32_Printer“)
For Each objprinter In objPrinters
write.WriteLine objprinter.Name
Next
Und HIER passiert der Fehler:
Die Schleife läuft 28 mal fehlerfrei durch und schreibt die Druckernamen auch in die Datei raus.
Aber beim 29sten Mal bleibt die Schleife beim „Next“ einfach stehen und rührt sich nicht mehr. (per Debugger rausgefunden)
Es ist keine Zeitfrage, da ich das Skript schon 2 Stunden laufen lassen habe und sich noch immer nichts getan hat.
Woran kann das liegen?
Vielen Dank im Vorraus
euer orti