Aktuell brauchte ich die Information, welche Drucker auf dem jeweiligen PC installiert sind, um danach weitere Aktionen durchzuführen.
Hier mein kleines Script:
Spoiler anzeigen
Zeige
[autoit]; Ermittlung installierter Drucker
[/autoit] [autoit][/autoit] [autoit]; die Anzahl 25 ist willkürlich gewählt, so viele Drucker dürften wohl kaum installiert sein
Dim $Drucker[25]
Dim $Ausgabe
For $i=1 to 25
$Drucker[$i] = RegEnumVal("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts",$i)
If @error <> 0 then ExitLoop
Next
$Drucker[0]=$i-1
[/autoit] [autoit][/autoit] [autoit]For $j = 1 to $Drucker[0]
$Ausgabe &= $Drucker[$j] & @CR
Next
MsgBox(0,"Installierte Drucker", $Ausgabe)
[/autoit]
Gruß
Holger