Ich brauche wieder einmal die Unterstützung der Gemeinschaft:
Ich habe einen alten W2K-Server, wo Netzwerkdrucker installiert sind. Von diesem müßte ich alle Druckernamen UND die dazugehörigen IP-Adressen (Ports) auslesen. Diese Drucker habe ich in der Registry unter "HKEY_LOCAL_Machine\Software\Microsoft\Windows NT\CurrentVersion\Print\Printers" alle gefunden. Und hier stehen die verschiedenen "Unterschlüssel" mit den installierten Druckern und den Informationen, die ich brauche.
Mein Problem: Ich kann diese "Unterschlüssel" bei "Printers" einfach nicht auslesen. Ich als Anfänger habe da ein Problem mit dem Script...kriege es einfach nicht hin....egal was ich probiere.....
Vielleicht kann mir jemand helfen...vielen Dank
Spoiler anzeigen
Dim $Drucker[100]
Dim $Ausgabe
For $i=1 to 100
$Drucker[$i] = RegEnumVal("HKEY_LOCAL_Machine\Software\Microsoft\Windows NT\CurrentVersion\Print\Printers\",
If @error <> 0 then ExitLoop
Next
$Drucker[0]=$i-1
For $j = 1 to $Drucker[0]
$Ausgabe &= $Drucker[$j] & @CR
Next
$file=("\\xx.xx.xx.xx\every\edv\autoit\drucker" & " - " &@ComputerName & ".txt")
FileOpen($file,1)
FileWriteLine($file, "Drucker." & $Ausgabe)
FileClose ($file)