Umbenannt: Installierte Drucker Remote auslesen

Lashandan · 15. März 2019

Hallo liebe AutoITer,

ich habe folgendes Problem:

Innerhalb eines GUI verwende ich eine InputBox. In diese kann/soll der Anwender einen bestimmten Wert eingeben der dann an weitere Funktionen übergeben werden und dann damit weiter gearbeitet werden soll.

Natürlich soll der Anwender ohne die Anwendung zu schließen und wieder zu öffnen, den Wert verändern können und mehrere Abfragen nacheinander durchführen können.

Aktuell klappt das ganze leider nur einmal.

Ändere ich den Wert in der Inputbox und führe die Abfrage erneut aus, wird die Variable nicht verändert weitergegeben.

Wie gehe ich das am Besten an?

Hier mal der derzeitige Code:

Code

#include <GUIConstants.au3>
#NoTrayIcon
Opt("GUIOnEventMode", 1)
; GUI
$mainwindow = GUICreate("ServiceInfo", 550, 400)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
GUISetFont (9)
$tab3=GUICtrlCreateTab (-1, -1, 533, 350)
$tab3a=GUICtrlCreateTabitem ("Drucker")
local $sComputer
Global $computer = "WDEST"
$sComputer = GUICtrlCreateInput($computer, 20, 25, 200, 30)
$tabAbfragen=GUICtrlCreateButton ("Abfragen", 220, 25, 100, 30)
GUICtrlSetOnEvent($tabAbfragen, "Abfragen")
;MsgBox(0, "", GUICtrlRead($sComputer))
func printerInfo()
$standardprinter = RegRead("\\" & GUICtrlRead($sComputer) & "\" & "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\windows", "Device")
$standardprinter = StringSplit($standardprinter, ",")
$standardprinter = $standardprinter[1]
GUICtrlCreateLabel ( "Standarddrucker: ", 20, 60 )
GUICtrlCreateLabel ( $standardprinter, 220, 60 )
GUICtrlCreateLabel ( "Installierte Drucker: ", 20, 100 )
GUISetFont (9)
GUICtrlCreateList("", 20, 120, 350, 200)
For $i = 1 To 1000
$reg = RegEnumVal("\\" & GUICtrlRead($sComputer) & "\" & "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Devices", $i)
If @error = -1 Then ExitLoop
GUICtrlSetData(-1, $reg, $standardprinter)
Next
$tabtestdruck=GUICtrlCreateButton ("Testdruck", 400, 90, 100, 30)
GUICtrlSetOnEvent($tabtestdruck, "Testdruck")
$tabdruckereinstellung=GUICtrlCreateButton ("Einstellungen", 400, 140, 100, 30)
GUICtrlSetOnEvent($tabdruckereinstellung, "Druckereinstellung")
$tabdruckereigenschaft=GUICtrlCreateButton ("Eigenschaften", 400, 190, 100, 30)
GUICtrlSetOnEvent($tabdruckereigenschaft, "DruckerEigenschaft")
$tabdruckerfenster=GUICtrlCreateButton ("Warteschlange", 400, 240, 100, 30)
GUICtrlSetOnEvent($tabdruckerfenster, "DruckerFenster")
$tabdruckerordner=GUICtrlCreateButton ("Druckerordner", 400, 290, 100, 30)
GUICtrlSetOnEvent($tabdruckerordner, "druckerordner")
$tabbeenden=GUICtrlCreateButton ("Beenden", 164,360, 100, 30)
GUICtrlSetOnEvent($tabbeenden, "Beenden")
EndFunc
GUISetState(@SW_SHOW)
While 1
Sleep(500)
WEnd
Func druckerordner()
Run("rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL PrintersFolder")
EndFunc
Func Testdruck()
$drucker=GUICtrlRead ( 8 )
$instring = StringInStr ( $drucker, "\\")
If $drucker == "" Then
MsgBox(16,"TestDruck", "Es wurde kein Drucker ausgewählt!")
ElseIf $instring == 0 Then
RunWait( "rundll32 printui.dll,PrintUIEntry /n""\\" & GUICtrlRead($sComputer) & "\" & $drucker & """ /k" )
MsgBox(64, "TestDruck", "Der TestDruck wurde an den Drucker """ & $drucker & """ abgeschickt!" & @CRLF & "Bitte überprüfen Sie den Ausdruck.")
Else
RunWait( "rundll32 printui.dll,PrintUIEntry /n " & $drucker & " /k" )
MsgBox(64, "TestDruck", "Der TestDruck wurde an den Drucker """ & $drucker & """ abgeschickt!" & @CRLF & "Bitte überprüfen Sie den Ausdruck.")
EndIf
EndFunc
Func DruckerFenster()
$drucker=GUICtrlRead ( 8 )
$instring = StringInStr ( $drucker, "\\")
If $drucker == "" Then
MsgBox(16,"Drucker-Warteschlange", "Es wurde kein Drucker ausgewählt!")
ElseIf $instring = 0 Then
RunWait( "rundll32 printui.dll,PrintUIEntry /n""\\" & GUICtrlRead($sComputer) & "\" & $drucker & """ /o" )
Else
RunWait( "rundll32 printui.dll,PrintUIEntry /n " & $drucker & " /o" )
EndIf
EndFunc
Func DruckerEigenschaft()
$drucker=GUICtrlRead ( 8 )
$instring = StringInStr ( $drucker, "\\")
If $drucker == "" Then
MsgBox(16,"Drucker-Eigenschaften", "Es wurde kein Drucker ausgewählt!")
ElseIf $instring = 0 Then
RunWait( "rundll32 printui.dll,PrintUIEntry /n""\\" & GUICtrlRead($sComputer) & "\" & $drucker & """ /p" )
Else
RunWait( "rundll32 printui.dll,PrintUIEntry /n " & $drucker & " /p" )
EndIf
EndFunc
Func DruckerEinstellung()
$drucker=GUICtrlRead ( 8 )
$instring = StringInStr ( $drucker, "\\")
If $drucker == "" Then
MsgBox(16,"Drucker-Einstellungen", "Es wurde kein Drucker ausgewählt!")
ElseIf $instring = 0 Then
RunWait( "rundll32 printui.dll,PrintUIEntry /n""\\" & GUICtrlRead($sComputer) & "\" & $drucker & """ /e" )
Else
RunWait( "rundll32 printui.dll,PrintUIEntry /n " & $drucker & " /e" )
EndIf
EndFunc
Func Abfragen()
;MsgBox(0, "", GUICtrlRead($sComputer))
printerInfo()
EndFunc
Func CLOSEClicked()
Exit
EndFunc
Func Beenden ()
Exit
EndFunc

Alles anzeigen

Ich hoffe wie immer auf eure Unterstützung.

Tuxedo · 15. März 2019

Ich kann es dir nicht genau sagen was falsch läuft, aber dein Fehler liegt in der For Next Schleife

der Funktion Printerinfo.

Bist du sicher daß du nur auf @error -1 prüfen willst. Ersetze das mal versuchsweise durch If @error <> 0

Lashandan · 15. März 2019

Zitat von Tuxedo

Ich kann es dir nicht genau sagen was falsch läuft, aber dein Fehler liegt in der For Next Schleife

der Funktion Printerinfo.

Bist du sicher daß du nur auf @error -1 prüfen willst. Ersetze das mal versuchsweise durch If @error <> 0

Hi Tuxedo,

vielen Dank für deine Antwort.

habe es versuchsweise mal von @error = -1 auf @error <> 0 gesetzt - das Ergebnis bleibt aber unverändert.

Was ich allerdings mal geändert habe ist folgendes:

Ich übergebe der Funktion printerInfo() jetzt die Variable $sComputer und erhalte dann auch ein korrektes Ergebnis mit dem Wert aus der InputBox.

Wenn ich dann den Wert der Variablen in der InputBox ändere und erneut abfrage, erhalte ich auch neue Daten, die ebenfalls korrekt sind.

Wenn ich dann aber in die Liste klicke, werden mir wieder die alten Werte angezeigt.

Also habe ich noch irgendeinen Fehler in der GUI das er sich den aktuellen Status nicht sauber zieht.

Hier mal der abgeänderte Code:

Code

#include <GUIConstants.au3>
#NoTrayIcon
Opt("GUIOnEventMode", 1)
; GUI
$mainwindow = GUICreate("ServiceInfo", 550, 400)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
GUISetFont (9)
$tab3=GUICtrlCreateTab (-1, -1, 533, 350)
$tab3a=GUICtrlCreateTabitem ("Drucker")
local $sComputer
Global $computer = "WDEST1001"
$sComputer = GUICtrlCreateInput($computer, 20, 25, 200, 30)
$tabAbfragen=GUICtrlCreateButton ("Abfragen", 220, 25, 100, 30)
GUICtrlSetOnEvent($tabAbfragen, "Abfragen")
;MsgBox(0, "", GUICtrlRead($sComputer))
func printerInfo($sComputer)
$standardprinter = RegRead("\\" & GUICtrlRead($sComputer) & "\" & "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\windows", "Device")
$standardprinter = StringSplit($standardprinter, ",")
$standardprinter = $standardprinter[1]
GUICtrlCreateLabel ( "Standarddrucker: ", 20, 60 )
GUICtrlCreateLabel ( $standardprinter, 220, 60 )
GUICtrlCreateLabel ( "Installierte Drucker: ", 20, 100 )
GUISetFont (9)
GUICtrlCreateList("", 20, 120, 350, 200)
For $i = 1 To 1000
$reg = RegEnumVal("\\" & GUICtrlRead($sComputer) & "\" & "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Devices", $i)
;If @error = -1 Then ExitLoop
If @error <> 0 Then ExitLoop ;Testweise von = -1 auf <> 0 geändert. Hinweis von --> Tuxedo@autoit.de <---
GUICtrlSetData(-1, $reg, $standardprinter)
Next
$tabtestdruck=GUICtrlCreateButton ("Testdruck", 400, 90, 100, 30)
GUICtrlSetOnEvent($tabtestdruck, "Testdruck")
$tabdruckereinstellung=GUICtrlCreateButton ("Einstellungen", 400, 140, 100, 30)
GUICtrlSetOnEvent($tabdruckereinstellung, "Druckereinstellung")
$tabdruckereigenschaft=GUICtrlCreateButton ("Eigenschaften", 400, 190, 100, 30)
GUICtrlSetOnEvent($tabdruckereigenschaft, "DruckerEigenschaft")
$tabdruckerfenster=GUICtrlCreateButton ("Warteschlange", 400, 240, 100, 30)
GUICtrlSetOnEvent($tabdruckerfenster, "DruckerFenster")
$tabdruckerordner=GUICtrlCreateButton ("Druckerordner", 400, 290, 100, 30)
GUICtrlSetOnEvent($tabdruckerordner, "druckerordner")
$tabbeenden=GUICtrlCreateButton ("Beenden", 164,360, 100, 30)
GUICtrlSetOnEvent($tabbeenden, "Beenden")
$sComputer = ''
$standardprinter = ''
EndFunc
GUISetState(@SW_SHOW)
While 1
Sleep(500)
WEnd
Func druckerordner()
Run("rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL PrintersFolder")
EndFunc
Func Testdruck()
$drucker=GUICtrlRead ( 8 )
$instring = StringInStr ( $drucker, "\\")
If $drucker == "" Then
MsgBox(16,"TestDruck", "Es wurde kein Drucker ausgewählt!")
ElseIf $instring == 0 Then
RunWait( "rundll32 printui.dll,PrintUIEntry /n""\\" & GUICtrlRead($sComputer) & "\" & $drucker & """ /k" )
MsgBox(64, "TestDruck", "Der TestDruck wurde an den Drucker """ & $drucker & """ abgeschickt!" & @CRLF & "Bitte überprüfen Sie den Ausdruck.")
Else
RunWait( "rundll32 printui.dll,PrintUIEntry /n " & $drucker & " /k" )
MsgBox(64, "TestDruck", "Der TestDruck wurde an den Drucker """ & $drucker & """ abgeschickt!" & @CRLF & "Bitte überprüfen Sie den Ausdruck.")
EndIf
EndFunc
Func DruckerFenster()
$drucker=GUICtrlRead ( 8 )
$instring = StringInStr ( $drucker, "\\")
If $drucker == "" Then
MsgBox(16,"Drucker-Warteschlange", "Es wurde kein Drucker ausgewählt!")
ElseIf $instring = 0 Then
RunWait( "rundll32 printui.dll,PrintUIEntry /n""\\" & GUICtrlRead($sComputer) & "\" & $drucker & """ /o" )
Else
RunWait( "rundll32 printui.dll,PrintUIEntry /n " & $drucker & " /o" )
EndIf
EndFunc
Func DruckerEigenschaft()
$drucker=GUICtrlRead ( 8 )
$instring = StringInStr ( $drucker, "\\")
If $drucker == "" Then
MsgBox(16,"Drucker-Eigenschaften", "Es wurde kein Drucker ausgewählt!")
ElseIf $instring = 0 Then
RunWait( "rundll32 printui.dll,PrintUIEntry /n""\\" & GUICtrlRead($sComputer) & "\" & $drucker & """ /p" )
Else
RunWait( "rundll32 printui.dll,PrintUIEntry /n " & $drucker & " /p" )
EndIf
EndFunc
Func DruckerEinstellung()
$drucker=GUICtrlRead ( 8 )
$instring = StringInStr ( $drucker, "\\")
If $drucker == "" Then
MsgBox(16,"Drucker-Einstellungen", "Es wurde kein Drucker ausgewählt!")
ElseIf $instring = 0 Then
RunWait( "rundll32 printui.dll,PrintUIEntry /n""\\" & GUICtrlRead($sComputer) & "\" & $drucker & """ /e" )
Else
RunWait( "rundll32 printui.dll,PrintUIEntry /n " & $drucker & " /e" )
EndIf
EndFunc
Func Abfragen()
;MsgBox(0, "", GUICtrlRead($sComputer))
printerInfo($sComputer)
EndFunc
Func CLOSEClicked()
Exit
EndFunc
Func Beenden ()
Exit
EndFunc

Alles anzeigen

Concara · 15. März 2019

Hallo Lashandan!

Du musst dir in der Hilf noch einmal die Funktionsweise einer Gui anschauen.

Und ich nenne es mal den eigentlichen Programm Code mit Funktionen zu mischen ist sehr unübersichtlich.

Standard ist es die Funktionen unterhalb des Hauptcodes zu erstellen.

Wenn du SciTE verwendest, dann bitte verwende das Tool --> Tidy Autoit Source.

Dieses Tool bringt deinen Code in eine übersichtlichere Form.

Das hilft ungemein.

Dein Programm wird einmal abgearbeitet und bleibt dann in der While Schleife hängen. edit: das ist nicht ganz richtig, aber du verwendest den GUIOnEventMode und das ist soweit ich es beurteilen kann in diesem Fall nicht der richtige.

Deshalb der Hinweis dir noch einmal die Funktionsweise einer Gui anzusehen.

Moombas · 15. März 2019

Deine Abfrage ist ja auch verkehrt (Die Korrektur gibst du dir eine Zeile drüber schon vor):

Code

Func Abfragen()
;MsgBox(0, "", GUICtrlRead($sComputer))
printerInfo($sComputer)
EndFunc

Müsste die nicht so heißen:

Code

Func Abfragen()
printerInfo(GUICtrlRead($sComputer))
EndFunc

Oder bin ich jetzt verkehrt?

xSunLighTx3 · 15. März 2019

Zuerst einmal deklarierst du in einem Globalen Bereich eine lokale Variable.

Anschließend definierst du sie mit einem GuiCtrl Handle.

Später setzt du die Variable wieder auf einen Empty String.

Das Problem ist jetzt aber, dass du die Variable dann nicht mehr nutzen kannst,

da sich das Objekt quasi nicht mehr darin befindet. Dennoch tust du es mit Guictrlread() .

Gemeint ist:

Code

$sComputer = ''

Diese Zeile würde ich löschen, da sie aus meiner Betrachtung keinen Sinn ergibt.

Empfehlenswert wäre GuiGetMsg() statt GUICtrlSetOnEvent(). Ist aber

rein subjektiv betrachtet. Dann bräuchte man auch kein Sleep() mehr.

Concara · 15. März 2019

So noch schnell vor dem Wochende!

Hier meine quick and dirty Umsetzung.

Der Code ist alles andere als getestet und eineiges ist noch zu machen.

Aber es sollte eine Basis darstellen.

Spoiler anzeigen

C

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
Local $computer = @ComputerName
;Global $computer = "WDEST"
Local $hGUI = GUICreate("ServiceInfo", 550, 400)
GUISetFont(9)
$tab3 = GUICtrlCreateTab(-1, -1, 533, 350)
$tab3a = GUICtrlCreateTabItem("Drucker")
GUICtrlCreateLabel("Standarddrucker: ", 20, 60)
$standardprinter = RegRead("\\" & @ComputerName & "\" & "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\windows", "Device")
$standardprinter = StringSplit($standardprinter, ",")
$standardprinter = $standardprinter[1]
$l_standardprinter = GUICtrlCreateLabel($standardprinter, 220, 60)
GUICtrlCreateLabel("Installierte Drucker: ", 20, 100)
GUISetFont(9)
$liste = GUICtrlCreateList("", 20, 120, 350, 200)
$tabtestdruck = GUICtrlCreateButton("Testdruck", 400, 90, 100, 30)
$tabdruckereinstellung = GUICtrlCreateButton("Einstellungen", 400, 140, 100, 30)
$tabdruckereigenschaft = GUICtrlCreateButton("Eigenschaften", 400, 190, 100, 30)
$tabdruckerfenster = GUICtrlCreateButton("Warteschlange", 400, 240, 100, 30)
$tabdruckerordner = GUICtrlCreateButton("Druckerordner", 400, 290, 100, 30)
$tabbeenden = GUICtrlCreateButton("Beenden", 164, 360, 100, 30)
$sComputer = GUICtrlCreateInput($computer, 20, 25, 200, 30)
$tabAbfragen = GUICtrlCreateButton("Abfragen", 220, 25, 100, 30)
For $i = 1 To 1000
$reg = RegEnumVal("\\" & @ComputerName & "\" & "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Devices", $i)
If @error = -1 Then ExitLoop
GUICtrlSetData($liste, $reg, $standardprinter)
Next
GUISetState(@SW_SHOW, $hGUI)
Local $iMsg = 0
While 1
$iMsg = GUIGetMsg()
Switch $iMsg
Case $tabAbfragen
printerInfo()
Case $tabtestdruck
Testdruck()
Case $tabdruckereinstellung
DruckerEinstellung()
Case $tabdruckereigenschaft
DruckerEigenschaft()
Case $tabdruckerfenster
DruckerFenster()
Case $tabdruckerordner
druckerordner()
Case $tabbeenden
ExitLoop
Case $GUI_EVENT_CLOSE
;MsgBox($MB_SYSTEMMODAL, "GUI Event", "You selected the Close button. Exiting...")
ExitLoop
EndSwitch
WEnd
Func printerInfo()
$standardprinter = RegRead("\\" & GUICtrlRead($sComputer) & "\" & "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\windows", "Device")
$standardprinter = StringSplit($standardprinter, ",")
$standardprinter = $standardprinter[1]
GUICtrlSetData($liste, $l_standardprinter)
For $i = 1 To 1000
$reg = RegEnumVal("\\" & GUICtrlRead($sComputer) & "\" & "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Devices", $i)
If @error = -1 Then ExitLoop
GUICtrlSetData($liste, $reg, $standardprinter)
Next
EndFunc ;==>printerInfo
Func druckerordner()
Run("rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL PrintersFolder")
EndFunc ;==>druckerordner
Func Testdruck()
$drucker = GUICtrlRead(8)
$instring = StringInStr($drucker, "\\")
If $drucker == "" Then
MsgBox(16, "TestDruck", "Es wurde kein Drucker ausgewählt!")
ElseIf $instring == 0 Then
RunWait("rundll32 printui.dll,PrintUIEntry /n""\\" & GUICtrlRead($sComputer) & "\" & $drucker & """ /k")
MsgBox(64, "TestDruck", "Der TestDruck wurde an den Drucker """ & $drucker & """ abgeschickt!" & @CRLF & "Bitte überprüfen Sie den Ausdruck.")
Else
RunWait("rundll32 printui.dll,PrintUIEntry /n " & $drucker & " /k")
MsgBox(64, "TestDruck", "Der TestDruck wurde an den Drucker """ & $drucker & """ abgeschickt!" & @CRLF & "Bitte überprüfen Sie den Ausdruck.")
EndIf
EndFunc ;==>Testdruck
Func DruckerFenster()
$drucker = GUICtrlRead(8)
$instring = StringInStr($drucker, "\\")
If $drucker == "" Then
MsgBox(16, "Drucker-Warteschlange", "Es wurde kein Drucker ausgewählt!")
ElseIf $instring = 0 Then
RunWait("rundll32 printui.dll,PrintUIEntry /n""\\" & GUICtrlRead($sComputer) & "\" & $drucker & """ /o")
Else
RunWait("rundll32 printui.dll,PrintUIEntry /n " & $drucker & " /o")
EndIf
EndFunc ;==>DruckerFenster
Func DruckerEigenschaft()
$drucker = GUICtrlRead(8)
$instring = StringInStr($drucker, "\\")
If $drucker == "" Then
MsgBox(16, "Drucker-Eigenschaften", "Es wurde kein Drucker ausgewählt!")
ElseIf $instring = 0 Then
RunWait("rundll32 printui.dll,PrintUIEntry /n""\\" & GUICtrlRead($sComputer) & "\" & $drucker & """ /p")
Else
RunWait("rundll32 printui.dll,PrintUIEntry /n " & $drucker & " /p")
EndIf
EndFunc ;==>DruckerEigenschaft
Func DruckerEinstellung()
$drucker = GUICtrlRead(8)
$instring = StringInStr($drucker, "\\")
If $drucker == "" Then
MsgBox(16, "Drucker-Einstellungen", "Es wurde kein Drucker ausgewählt!")
ElseIf $instring = 0 Then
RunWait("rundll32 printui.dll,PrintUIEntry /n""\\" & GUICtrlRead($sComputer) & "\" & $drucker & """ /e")
Else
RunWait("rundll32 printui.dll,PrintUIEntry /n " & $drucker & " /e")
EndIf
EndFunc ;==>DruckerEinstellung
Func Abfragen()
;MsgBox(0, "", GUICtrlRead($sComputer))
printerInfo()
EndFunc ;==>Abfragen
Func CLOSEClicked()
Exit
EndFunc ;==>CLOSEClicked
Func Beenden()
Exit
EndFunc ;==>Beenden
GUIDelete($hGUI)

Alles anzeigen

edit : Was ich noch schreiben wollte ist, dass du HKEY_CURRENT_USER zwar remote auslesen kannst, aber soweit ich weiß ist das nicht der User der gerade an der Maschine angemeldet ist, sondern der mit dem du das Script aufgerufen hast.

Lashandan · 18. März 2019

Vielen Dank an der Stelle für eure Hilfe.

Habe hier mal den aktuellen Code der soweit auch ganz gut funktioniert wie ich mir das vorgestellt habe:

C

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=DruckerInfo.ico
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <MsgBoxConstants.au3>
#include <Misc.au3>
#include <WindowsConstants.au3>
#include <TrayConstants.au3>
#pragma compile(Icon, DruckerInfo.ico)
Local $computer = @ComputerName
; 1. GUI Fenstername
Local $hGUI = GUICreate("DruckerInfo", 550, 400)
GUISetFont(9)
Local $sFile = @ScriptDir & "\DruckerInfo.ico"
GUISetIcon($sFile)
; 2. Rechnername
GUICtrlCreateLabel("Rechnername: ", 20, 12.5, 100, 20)
; 2.1 RechnernameInputBox
$sComputer = GUICtrlCreateInput($computer, 105, 10, 100, 20, BitOR(0x0004, 0x1000, 0x0008))
$vDLL = 'user32.dll'
; 2.2. RechnernameAbfrageButton
$tabAbfragen = GUICtrlCreateButton("Abfragen", 205, 10, 100, 20)
GUICtrlCreateLabel("Status: ", 310, 12.5, 50, 20)
$status = "Fertig!"
$lStatus = GUICtrlCreateLabel($status, 350, 12.5, 250, 20)
Global $idProgressbar1 = GUICtrlCreateProgress(310, 30, 239, 20, $PBS_Smooth)
GUICtrlSetColor(-1, 32250)
$iWait = 20
$iSavePos = 0
; 3. Trennlinie
GUICtrlCreateGraphic(0, 50, 550, 1, $SS_BLACKFRAME)
; 4. Standarddrucker
GUICtrlCreateLabel("Standarddrucker: ", 20, 60)
$standardprinter = RegRead("\\" & @ComputerName & "\" & "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\windows", "Device")
$standardprinter = StringSplit($standardprinter, ",")
$standardprinter = $standardprinter[1]
; 4.1 StandarddruckerLabel
$l_standardprinter = GUICtrlCreateLabel($standardprinter, 120, 60, 300)
; 5. Druckerliste
GUICtrlCreateLabel("Installierte Drucker: ", 20, 90)
GUISetFont(9)
$liste = GUICtrlCreateList("", 20, 110, 350, 250)
; 6. Buttons
$tabtestdruck = GUICtrlCreateButton("Testdruck", 375, 110, 100, 20)
$tabdruckereinstellung = GUICtrlCreateButton("Einstellungen", 375, 150, 100, 20)
$tabdruckereigenschaft = GUICtrlCreateButton("Eigenschaften", 375, 190, 100, 20)
$tabdruckerfenster = GUICtrlCreateButton("Warteschlange", 375, 230, 100, 20)
$tabdruckerordner = GUICtrlCreateButton("Druckerordner", 375, 270, 100, 20)
$tabbeenden = GUICtrlCreateButton("Beenden", 225, 360, 100, 20)
GUISetState(@SW_SHOW, $hGUI)
TrayIcon()
For $i = 1 To 100
$reg = RegEnumVal("\\" & @ComputerName & "\" & "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Devices", $i)
If @error <> 0 Then ExitLoop
GUICtrlSetData($liste, $reg, $standardprinter)
Next
Local $iMsg = 0
While 1
$iMsg = GUIGetMsg()
Switch $iMsg
Case $tabAbfragen
$h = 0
For $h = $iSavePos To 100
Next
Abfragen()
Case $tabtestdruck
Testdruck()
Case $tabdruckereinstellung
DruckerEinstellung()
Case $tabdruckereigenschaft
DruckerEigenschaft()
Case $tabdruckerfenster
DruckerFenster()
Case $tabdruckerordner
druckerordner()
Case $tabbeenden
ExitLoop
Case $GUI_EVENT_CLOSE
ExitLoop
EndSwitch
WEnd
Func TrayIcon()
Local $sTrayIcon = TraySetIcon(@ScriptDir & '\DruckerInfo.ico')
TraySetState($TRAY_ICONSTATE_SHOW)
EndFunc ;==>TrayIcon
Func printerInfo()
GUICtrlSetData($idProgressbar1, 0)
GUICtrlSetData($lStatus, "Abfrage wird ausgeführt")
;MsgBox(0, "", GUICtrlRead($sComputer))
If RunWait("ping.exe -n 1 " & GUICtrlRead($sComputer), "", @SW_HIDE) == 0 Then
Else
MsgBox(0, "Fehler", "Rechner nicht erreichbar" & @CRLF & "Rechnername falsch", 1)
EndIf
GUICtrlSetData($liste, "")
$standardprinter = RegRead("\\" & GUICtrlRead($sComputer) & "\" & "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\windows", "Device")
$standardprinter = StringSplit($standardprinter, ",")
$standardprinter = $standardprinter[1]
GUICtrlSetData($l_standardprinter, $standardprinter)
For $i = 1 To 100
$reg = RegEnumVal("\\" & GUICtrlRead($sComputer) & "\" & "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Devices", $i)
If @error <> 0 Then ExitLoop
GUICtrlSetData($liste, $reg, $standardprinter)
Next
Sleep(250)
GUICtrlSetData($lStatus, "Fertig!")
GUICtrlSetData($idProgressbar1, $h)
EndFunc ;==>printerInfo
Func druckerordner()
Run("rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL PrintersFolder")
EndFunc ;==>druckerordner
Func Testdruck()
$drucker = GUICtrlRead($liste)
$instring = StringInStr($drucker, "\\")
If $drucker == "" Then
MsgBox(16, "TestDruck", "Es wurde kein Drucker ausgewählt!")
ElseIf $instring == 0 Then
RunWait("rundll32 printui.dll,PrintUIEntry /n""\\" & GUICtrlRead($sComputer) & "\" & $drucker & """ /k")
MsgBox(64, "TestDruck", "Der TestDruck wurde an den Drucker """ & $drucker & """ abgeschickt!" & @CRLF & "Bitte überprüfen Sie den Ausdruck.")
Else
RunWait("rundll32 printui.dll,PrintUIEntry /n " & $drucker & " /k")
MsgBox(64, "TestDruck", "Der TestDruck wurde an den Drucker """ & $drucker & """ abgeschickt!" & @CRLF & "Bitte überprüfen Sie den Ausdruck.")
EndIf
EndFunc ;==>Testdruck
Func DruckerFenster()
$drucker = GUICtrlRead($liste)
$instring = StringInStr($drucker, "\\")
If $drucker == "" Then
MsgBox(16, "Drucker-Warteschlange", "Es wurde kein Drucker ausgewählt!")
ElseIf $instring = 0 Then
RunWait("rundll32 printui.dll,PrintUIEntry /n""\\" & GUICtrlRead($sComputer) & "\" & $drucker & """ /o")
Else
RunWait("rundll32 printui.dll,PrintUIEntry /n " & $drucker & " /o")
EndIf
EndFunc ;==>DruckerFenster
Func DruckerEigenschaft()
$drucker = GUICtrlRead($liste)
;~ MsgBox(0, "", GUICtrlRead($liste))
;~ MsgBox(0, "", $standardprinter[$i])
;~ MsgBox(0, "", GUICtrlRead($scomputer))
$instring = StringInStr($drucker, "\\")
If $drucker == "" Then
MsgBox(16, "Drucker-Eigenschaften", "Es wurde kein Drucker ausgewählt!")
ElseIf $instring = 0 Then
RunWait("rundll32 printui.dll,PrintUIEntry /n""\\" & GUICtrlRead($sComputer) & "\" & $drucker & """ /p")
Else
RunWait("rundll32 printui.dll,PrintUIEntry /n " & $drucker & " /p")
EndIf
EndFunc ;==>DruckerEigenschaft
Func DruckerEinstellung()
$drucker = GUICtrlRead($liste)
$instring = StringInStr($drucker, "\\")
If $drucker == "" Then
MsgBox(16, "Drucker-Einstellungen", "Es wurde kein Drucker ausgewählt!")
ElseIf $instring = 0 Then
RunWait("rundll32 printui.dll,PrintUIEntry /n""\\" & GUICtrlRead($sComputer) & "\" & $drucker & """ /e")
Else
RunWait("rundll32 printui.dll,PrintUIEntry /n " & $drucker & " /e")
EndIf
EndFunc ;==>DruckerEinstellung
Func Abfragen()
printerInfo()
EndFunc ;==>Abfragen
Func CLOSEClicked()
Exit
EndFunc ;==>CLOSEClicked
Func Beenden()
Exit
EndFunc ;==>Beenden
GUIDelete($hGUI)

Alles anzeigen

Concara hast du eine Idee wie ich das Problem mit dem Auslesen der installierten Drucker per remote löse?

Habe schon verschiedene Pfade gefunden aber diese liefern mir leider nicht die selben Informationen:

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Environments\Windows NT x86\Drivers\Version-3

Oder gibt es noch eine ganz andere Möglichkeit die installierten Drucker auszulesen?

Concara · 18. März 2019

Hallo Lashandan!

Also ja es gibt noch den HKEY_USER Zweig in der Registry.

Computer\HKEY_USERS\S-1-5-21-2320686219-2347650492-1140758951-1001\Software\Microsoft\Windows NT\CurrentVersion\Devices

Ich habe in der Arbeit noch ein Script, das die Id zu einem User herausfindet. Ich werde morgen nachsehen, bin nicht mehr in der Arbeit.

Ich nehme mal an du schreibst dieses Tool für eine kleine Firma.

Deshalb habe ich auch das requireAdministrator eingefügt.

Ist es eine AD Domaine?

Eine Workgroup ?

Ohne Administratorenrechte auf den Jeweiligen PCs kannst du rein garnichts auslesen, auch nicht mit den unten angegebenen VBS Scripts.

Was genau willst du mit dem Programm eigentlich erreichen?

Denn wenn es eine Firma ist, dann werdet ihr doch eher einen Printserver verwenden.

Auf diesem werden dann die Standardeinstellungen vorgegeben.

Wenn es eine AD Domaine ist, dann kann man auch per GPOs Einstellungen vornehmen.

Oder habt ihr sehr viele Drucker die per USB am jeweiligen PC angeschlossen sind?

Zum Managen der Drucker gibt es ab Windows 7 eventuell auch schon Vista diesen Ordner (C:\Windows\System32\Printing_Admin_Scripts\de-DE) mit VBS Scripten.

Info unter https://docs.microsoft.com/de-…/windows-commands/prncnfg

Lashandan · 18. März 2019

Hey Concara ,

ich werde morgen ebenfalls mal den HKEY_USER Zweig testen.

Und du liegst völlig richtig in deiner Annahme.

Ich arbeite in einem Unternehmen mit über 500 Rechnern - und wir verwenden für die Rechner eine AD-Domain.

Für die meisten Drucker haben wir einen Printserver, dennoch haben wir auch einen beachtlichen Teil an Druckern die lokal per USB angeschlossen sind.

Die Adminrechte habe ich ausnahmslos.

Ich möchte ganz simpel folgendes erreichen;

- Rechnernamen eingeben und den installierten Standarddrucker angezeigt bekommen, weiterhin natürlich auch alle anderen Drucker die für den jeweiligen Rechner installiert sind.

- viele Rechner haben die klassischen PDF-Printer und einen Hauptdrucker der über den Printserver kommt - dieser ist auch gleichzeitig der Standarddrucker

- Wir haben aber auch viele Rechner die an mehreren Orten in unserem Unternehmen drucken müssen

- je granularer und genauer das Skript arbeitet, desto besser

Ich möchte nichtmal zwingend die Einstellungen der Drucker ändern.

In der Praxis reicht es mir, angezeigt zu bekommen an welchem Rechner welche Drucker installiert sind.

Einstellungen, Testseiten drucken usw. ist nur ein kleiner Bonus für den Anwender.

Die GPOs werden bei uns vom Mutterkonzern vorgegeben und darauf habe ich nur bedingten Einfluss.

Ich werde morgen nochmal ein bisschen testen.

Freue mich von dir zu lesen und warte gespant auf dein Skript für die ID zum jeweiligen User

Bis dahin erstmal,

gute Nacht

gmmg · 20. März 2019

Hallo Lasandan,

über Powershell kannst du die Ausgabe wie folgt machen (funktioniert auch als normaler User auf einen Export Pfad wo der User Schreibrechte hat).

get-WmiObject -class Win32_printer | ft name, systemName, shareName >> d:\printers.txt

Das sollte die Netzwerk und lokal installierten Drucker beinhalten.

Gruß gmmg

Concara · 20. März 2019

Hi Lashandan!

Sorry ich hatte etwas Stress in der Arbeit, deshalb erst jetzt meine Rückmeldung.

Hier der Code der dir ID zum Username findet. Es ist eine wimc Abfrage. Leider Dauert die etwas.

Spoiler anzeigen

C

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\..\Program Files (x86)\AutoIt3\Aut2Exe\Icons\AutoIt_Old4.ico
#AutoIt3Wrapper_UseX64=y
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <File.au3>
#include <AutoItConstants.au3>
Local $s_Computer = @ComputerName
While 2
Local $line = ""
Local $commandline = ""
Local $id = ""
Local $s_clean_Name = ""
Local $s_ProductName = ""
Local $s_LastLoggedOnUser = ""
Local $s_Printer = ""
Local $standardprinter = ""
Local $s_Print = ""
$s_Computer = InputBox("PC Name", "Enter the Computername.", $s_Computer)
If @error = 1 Then Exit
If Not Ping($s_Computer, 500) Then ContinueLoop
$s_ProductName = RegRead("\\" & $s_Computer & "\HKLM\Software\Microsoft\Windows NT\CurrentVersion\", "ProductName")
If StringInStr($s_ProductName, "XP") Or StringInStr($s_ProductName, "2000") Or StringInStr($s_ProductName, "2003") Then
$s_LastLoggedOnUser = RegRead("\\" & $s_Computer & "\HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\", "DefaultUserName")
Else
$s_LastLoggedOnUser = RegRead("\\" & $s_Computer & "\HKLM\Software\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\", "LastLoggedOnUser")
EndIf
$s_clean_Name = _Name_clean($s_LastLoggedOnUser)
$s_clean_Name = StringLeft($s_clean_Name, 20)
$line = ""
$commandline = @ComSpec & ' /A /C "wmic useraccount where name="' & $s_clean_Name & '" get sid"'
$id = Run($commandline, "", @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
StdinWrite($id)
While 1
Local $stdoutread = StdoutRead($id)
If @error Then ExitLoop
If $stdoutread <> "" Then
$line &= $stdoutread
EndIf
WEnd
While 1
Local $stderrread = StderrRead($id)
If @error Then ExitLoop
If $stderrread <> "" Then
$line = ""
EndIf
WEnd
If $line <> "" Then
$line = StringStripWS($line, 7)
$line = StringReplace($line, "SID ", "")
If StringInStr($line, " ") Then
$line = StringTrimRight($line, StringLen($line) - StringInStr($line, " "))
EndIf
$line = StringStripWS($line, 8)
EndIf
For $i = 1 To 100
$reg = RegEnumVal("\\" & $s_Computer & "\" & "HKEY_USERS\" & $line & "\Software\Microsoft\Windows NT\CurrentVersion\Devices", $i)
If @error = -1 Then ContinueLoop
If $reg <> "" Then
$s_Printer &= $reg & @CR
EndIf
Next
$standardprinter = RegRead("\\" & $s_Computer & "\" & "HKEY_USERS\" & $line & "\Software\Microsoft\Windows NT\CurrentVersion\windows", "Device")
$standardprinter = StringSplit($standardprinter, ",")
$standardprinter = $standardprinter[1]
$s_Print = "User: " & $s_clean_Name & @CR & "ID: " & $line & @CR & "PC: " & $s_Computer & @CR & "Standard: " & $standardprinter & @CR & "Drucker:" & @CR & $s_Printer
MsgBox(0, "", $s_Print)
$s_Print = StringReplace($s_Print, @CR, ";")
_FileWriteLog(@ScriptDir & "\drucker.csv", $s_Print)
WEnd
Func _Name_clean($s_Name_dirty)
Local $s_Name_clean
If StringInStr($s_Name_dirty, "@") And StringInStr($s_Name_dirty, "\") Then
$s_Name_clean = StringTrimLeft($s_Name_dirty, StringInStr($s_Name_dirty, "\"))
$s_Name_clean = StringTrimRight($s_Name_clean, StringLen($s_Name_clean) - StringInStr($s_Name_clean, "@") + 1)
ElseIf StringInStr($s_Name_dirty, "\") Then
$s_Name_clean = StringTrimLeft($s_Name_dirty, StringInStr($s_Name_dirty, "\"))
ElseIf StringInStr($s_Name_dirty, "@") Then
$s_Name_clean = StringTrimRight($s_Name_dirty, StringLen($s_Name_dirty) - StringInStr($s_Name_dirty, "@") + 1)
EndIf
Return $s_Name_clean
EndFunc ;==>_Name_clean

Alles anzeigen

gmmg · 21. März 2019

Die SID lässt sich auch im AD auslesen ...

Code

#include <AD.au3>
_ad_open()
If @error Then Exit MsgBox(16, "Active Directory Example Skript", "Function _AD_Open encountered a problem. @error = " & @error & ", @extended = " & @extended)
$ssamaccountname = @username
$aproperties = _ad_getobjectproperties($ssamaccountname)
If @error Then
;ConsoleWrite($ssamaccountname & @CRLF)
Else
For $x = 1 To $aproperties[0][0]
If $aproperties[$x][0] = "objectSid" Then
$sid = $aproperties[$x][1]
;ConsoleWrite($ssamaccountname & ";" & $sid & @CRLF)
MsgBox(0,"", $ssamaccountname & @crlf & $sid)
EndIf
Next
EndIf
_ad_close()

Alles anzeigen

Gruß gmmg

**Bitnugger** · 21. März 2019

Zitat von Lashandan

Oder gibt es noch eine ganz andere Möglichkeit die installierten Drucker auszulesen?

Ja, gibt es... hier ein Bsp.:

C

;~ #include <WinAPI.au3> ; AutoIt <= 3.3.14.2
#include <WinAPIConv.au3> ; AutoIt >= 3.3.14.3
_Example()
Func _Example()
Local $aComputer = _GetComputer()
ConsoleWrite('$aComputer = ' & Join($aComputer, ',') & @CRLF & @CRLF)
If IsArray($aComputer) Then
For $i = 0 To UBound($aComputer) - 1 Step 1
_GetPrintersInfo($aComputer[$i])
If @error Then ConsoleWrite('! Keine Antwort von "' & $aComputer[$i] & '" bekommen!' & @CRLF & @CRLF)
Next
EndIf
EndFunc ;==>_Example
Func _GetPrintersInfo($strComputer = ".")
Local $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
If Not IsObj($objWMIService) Then Return SetError(1)
Local $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Printer", 'WQL', 48)
For $objItem In $colItems
ConsoleWrite("-------------------------------------------" & @CRLF)
ConsoleWrite("Win32_Printer instance from '" & $strComputer & "'" & @CRLF)
ConsoleWrite("-------------------------------------------" & @CRLF)
ConsoleWrite("Attributes : " & $objItem.Attributes & @CRLF)
ConsoleWrite("Availability : " & $objItem.Availability & @CRLF)
ConsoleWrite("AvailableJobSheets : " & Join($objItem.AvailableJobSheets, ",") & @CRLF)
ConsoleWrite("AveragePagesPerMinute : " & $objItem.AveragePagesPerMinute & @CRLF)
ConsoleWrite("Capabilities : " & Join($objItem.Capabilities, ",") & @CRLF)
ConsoleWrite("CapabilityDescriptions : " & Join($objItem.CapabilityDescriptions, ",") & @CRLF)
ConsoleWrite("Caption : " & $objItem.Caption & @CRLF)
ConsoleWrite("CharSetsSupported : " & Join($objItem.CharSetsSupported, ",") & @CRLF)
ConsoleWrite("Comment : " & $objItem.Comment & @CRLF)
ConsoleWrite("ConfigManagerErrorCode : " & $objItem.ConfigManagerErrorCode & @CRLF)
ConsoleWrite("ConfigManagerUserConfig : " & $objItem.ConfigManagerUserConfig & @CRLF)
ConsoleWrite("CreationClassName : " & $objItem.CreationClassName & @CRLF)
ConsoleWrite("CurrentCapabilities : " & Join($objItem.CurrentCapabilities, ",") & @CRLF)
ConsoleWrite("CurrentCharSet : " & $objItem.CurrentCharSet & @CRLF)
ConsoleWrite("CurrentLanguage : " & $objItem.CurrentLanguage & @CRLF)
ConsoleWrite("CurrentMimeType : " & $objItem.CurrentMimeType & @CRLF)
ConsoleWrite("CurrentNaturalLanguage : " & $objItem.CurrentNaturalLanguage & @CRLF)
ConsoleWrite("CurrentPaperType : " & $objItem.CurrentPaperType & @CRLF)
ConsoleWrite("Default : " & $objItem.Default & @CRLF)
ConsoleWrite("DefaultCapabilities : " & Join($objItem.DefaultCapabilities, ",") & @CRLF)
ConsoleWrite("DefaultCopies : " & $objItem.DefaultCopies & @CRLF)
ConsoleWrite("DefaultLanguage : " & $objItem.DefaultLanguage & @CRLF)
ConsoleWrite("DefaultMimeType : " & $objItem.DefaultMimeType & @CRLF)
ConsoleWrite("DefaultNumberUp : " & $objItem.DefaultNumberUp & @CRLF)
ConsoleWrite("DefaultPaperType : " & $objItem.DefaultPaperType & @CRLF)
ConsoleWrite("DefaultPriority : " & $objItem.DefaultPriority & @CRLF)
ConsoleWrite("Description : " & $objItem.Description & @CRLF)
ConsoleWrite("DetectedErrorState : " & $objItem.DetectedErrorState & @CRLF)
ConsoleWrite("DeviceID : " & $objItem.DeviceID & @CRLF)
ConsoleWrite("Direct : " & $objItem.Direct & @CRLF)
ConsoleWrite("DoCompleteFirst : " & $objItem.DoCompleteFirst & @CRLF)
ConsoleWrite("DriverName : " & $objItem.DriverName & @CRLF)
ConsoleWrite("EnableBIDI : " & $objItem.EnableBIDI & @CRLF)
ConsoleWrite("EnableDevQueryPrint : " & $objItem.EnableDevQueryPrint & @CRLF)
ConsoleWrite("ErrorCleared : " & $objItem.ErrorCleared & @CRLF)
ConsoleWrite("ErrorDescription : " & $objItem.ErrorDescription & @CRLF)
ConsoleWrite("ErrorInformation : " & Join($objItem.ErrorInformation, ",") & @CRLF)
ConsoleWrite("ExtendedDetectedErrorState : " & $objItem.ExtendedDetectedErrorState & @CRLF)
ConsoleWrite("ExtendedPrinterStatus : " & $objItem.ExtendedPrinterStatus & @CRLF)
ConsoleWrite("Hidden : " & $objItem.Hidden & @CRLF)
ConsoleWrite("HorizontalResolution : " & $objItem.HorizontalResolution & @CRLF)
ConsoleWrite("InstallDate : " & $objItem.InstallDate & @CRLF)
ConsoleWrite("JobCountSinceLastReset : " & $objItem.JobCountSinceLastReset & @CRLF)
ConsoleWrite("KeepPrintedJobs : " & $objItem.KeepPrintedJobs & @CRLF)
ConsoleWrite("LanguagesSupported : " & Join($objItem.LanguagesSupported, ",") & @CRLF)
ConsoleWrite("LastErrorCode : " & $objItem.LastErrorCode & @CRLF)
ConsoleWrite("Local : " & $objItem.Local & @CRLF)
ConsoleWrite("Location : " & $objItem.Location & @CRLF)
ConsoleWrite("MarkingTechnology : " & $objItem.MarkingTechnology & @CRLF)
ConsoleWrite("MaxCopies : " & $objItem.MaxCopies & @CRLF)
ConsoleWrite("MaxNumberUp : " & $objItem.MaxNumberUp & @CRLF)
ConsoleWrite("MaxSizeSupported : " & $objItem.MaxSizeSupported & @CRLF)
ConsoleWrite("MimeTypesSupported : " & Join($objItem.MimeTypesSupported, ",") & @CRLF)
ConsoleWrite("Name : " & $objItem.Name & @CRLF)
ConsoleWrite("NaturalLanguagesSupported : " & Join($objItem.NaturalLanguagesSupported, ",") & @CRLF)
ConsoleWrite("Network : " & $objItem.Network & @CRLF)
ConsoleWrite("PaperSizesSupported : " & Join($objItem.PaperSizesSupported, ",") & @CRLF)
ConsoleWrite("PaperTypesAvailable : " & Join($objItem.PaperTypesAvailable, ",") & @CRLF)
ConsoleWrite("Parameters : " & $objItem.Parameters & @CRLF)
ConsoleWrite("PNPDeviceID : " & $objItem.PNPDeviceID & @CRLF)
ConsoleWrite("PortName : " & $objItem.PortName & @CRLF)
ConsoleWrite("PowerManagementCapabilities: " & Join($objItem.PowerManagementCapabilities, ",") & @CRLF)
ConsoleWrite("PowerManagementSupported : " & $objItem.PowerManagementSupported & @CRLF)
ConsoleWrite("PrinterPaperNames : " & _WideCharToMultiByte(Join($objItem.PrinterPaperNames, ",")) & @CRLF)
ConsoleWrite("PrinterState : " & $objItem.PrinterState & @CRLF)
ConsoleWrite("PrinterStatus : " & $objItem.PrinterStatus & @CRLF)
ConsoleWrite("PrintJobDataType : " & $objItem.PrintJobDataType & @CRLF)
ConsoleWrite("PrintProcessor : " & $objItem.PrintProcessor & @CRLF)
ConsoleWrite("Priority : " & $objItem.Priority & @CRLF)
ConsoleWrite("Published : " & $objItem.Published & @CRLF)
ConsoleWrite("Queued : " & $objItem.Queued & @CRLF)
ConsoleWrite("RawOnly : " & $objItem.RawOnly & @CRLF)
ConsoleWrite("SeparatorFile : " & $objItem.SeparatorFile & @CRLF)
ConsoleWrite("ServerName : " & $objItem.ServerName & @CRLF)
ConsoleWrite("Shared : " & $objItem.Shared & @CRLF)
ConsoleWrite("ShareName : " & $objItem.ShareName & @CRLF)
ConsoleWrite("SpoolEnabled : " & $objItem.SpoolEnabled & @CRLF)
ConsoleWrite("StartTime : " & $objItem.StartTime & @CRLF)
ConsoleWrite("Status : " & $objItem.Status & @CRLF)
ConsoleWrite("StatusInfo : " & $objItem.StatusInfo & @CRLF)
ConsoleWrite("SystemCreationClassName : " & $objItem.SystemCreationClassName & @CRLF)
ConsoleWrite("SystemName : " & $objItem.SystemName & @CRLF)
ConsoleWrite("TimeOfLastReset : " & $objItem.TimeOfLastReset & @CRLF)
ConsoleWrite("UntilTime : " & $objItem.UntilTime & @CRLF)
ConsoleWrite("VerticalResolution : " & $objItem.VerticalResolution & @CRLF)
ConsoleWrite("WorkOffline : " & $objItem.WorkOffline & @CRLF & @CRLF)
Next
EndFunc ;==>_GetPrintersInfo
Func _GetComputer()
Local $iPID = Run('net view', '', @SW_HIDE, $STDOUT_CHILD)
ProcessWaitClose($iPID)
Return StringRegExp(StdoutRead($iPID), '(?m)\\\\([\w|-]+)', 3)
EndFunc ;==>_GetComputer
Func Join($aArray, $sDelimiter)
Local $sJoin
If IsArray($aArray) Then
For $sItem In $aArray
$sJoin &= $sItem & $sDelimiter
Next
EndIf
Return $sJoin ? StringTrimRight($sJoin, 1) : ''
EndFunc ;==>Join
; Konvertiert den Text, damit Umlaute und Sonderzeichen in SciTE und in der Eingabeaufforderung korrekt dargestellt werden!
Func _WideCharToMultiByte($vText, $iCodePage = @Compiled ? 1 : 65001, $bRetNoStruct = True, $bRetBinary = False)
$vText = String($vText) ; Damit _WinAPI_WideCharToMultiByte nicht abstürzt, wenn kein String übergeben wurde!
Return _WinAPI_WideCharToMultiByte($vText, $iCodePage, $bRetNoStruct, $bRetBinary)
EndFunc ;==>_WideCharToMultiByte

Alles anzeigen

Lashandan · 2. April 2019

Hallo nochmal in die Runde und nochmal vielen Dank an alle Helfer.

Letztlich hat mich der Code von Bitnugger am meisten zum Ziel geführt.

Hier nun also der finale Code:

C

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=DruckerInfo.ico
#AutoIt3Wrapper_Outfile=DruckerInfo.exe
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <MsgBoxConstants.au3>
#include <Misc.au3>
#include <WindowsConstants.au3>
#include <TrayConstants.au3>
#include <WinAPI.au3>
#pragma compile(Icon, DruckerInfo.ico)
#RequireAdmin
;~ If IsAdmin() Then MsgBox(0, "", "Das Programm wird mit Adminrechten ausgeführt", 1)
Local $computer = @ComputerName
; 1. GUI Fenstername
Local $hGUI = GUICreate("DruckerInfo", 550, 400)
GUISetFont(9)
Local $sFile = @ScriptDir & "\DruckerInfo.ico"
GUISetIcon($sFile)
; 2. Rechnername
GUICtrlCreateLabel("Rechnername: ", 20, 12.5, 100, 20)
; 2.1 RechnernameInputBox
$sComputer = GUICtrlCreateInput($computer, 105, 10, 100, 20, BitOR(0x0004, 0x1000, 0x0008))
$vDLL = 'user32.dll'
; 2.2. RechnernameAbfrageButton
$tabAbfragen = GUICtrlCreateButton("Abfragen", 205, 10, 100, 20)
GUICtrlCreateLabel("Status: ", 310, 12.5, 50, 20)
$status = "Fertig!"
$lStatus = GUICtrlCreateLabel($status, 370, 12.5, 250, 20)
GUICtrlCreateLabel("Fortschritt: ", 310, 32.5, 100, 20)
Global $idProgressbar1 = GUICtrlCreateProgress(370, 30, 100, 20, $PBS_Smooth)
GUICtrlSetColor(-1, 32250)
$iWait = 20
$iSavePos = 0
; 3. Trennlinie
GUICtrlCreateGraphic(0, 50, 550, 1, $SS_BLACKFRAME)
; 4. Standarddrucker
GUICtrlCreateLabel("Standarddrucker: ", 20, 60, 120 , 30)
;~ $standardprinter = RegRead("\\" & @ComputerName & "\" & "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\windows", "Device")
;~ $standardprinter = StringSplit($standardprinter, ",")
;~ $standardprinter = $standardprinter[1]
; 4.1 StandarddruckerLabel
$standardprinter = 'Bitte auf Abfragen drücken!'
$l_standardprinter = GUICtrlCreateLabel($standardprinter, 120, 60, 300)
; 5. Druckerliste
GUICtrlCreateLabel("Installierte Drucker: ", 20, 90)
GUISetFont(9)
$liste = GUICtrlCreateList("", 20, 110, 500, 250)
; 6. Buttons
;~ $tabtestdruck = GUICtrlCreateButton("Testdruck", 375, 110, 100, 20)
;~ $tabdruckereinstellung = GUICtrlCreateButton("Einstellungen", 375, 150, 100, 20)
;~ $tabdruckereigenschaft = GUICtrlCreateButton("Eigenschaften", 375, 190, 100, 20)
;~ $tabdruckerfenster = GUICtrlCreateButton("Warteschlange", 375, 230, 100, 20)
;~ $tabdruckerordner = GUICtrlCreateButton("Druckerordner", 375, 270, 100, 20)
;~ $tabbeenden = GUICtrlCreateButton("Beenden", 225, 360, 100, 20)
GUISetState(@SW_SHOW, $hGUI)
TrayIcon()
;~ For $i = 1 To 100
;~ $reg = RegEnumVal("\\" & @ComputerName & "\" & "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Devices", $i)
;~ If @error <> 0 Then ExitLoop
;~ GUICtrlSetData($liste, $reg, $standardprinter)
;~ Next
Local $iMsg = 0
While 1
$iMsg = GUIGetMsg()
Switch $iMsg
Case $tabAbfragen
$h = 0
For $h = $iSavePos To 100
Next
Abfragen()
;~ Case $tabtestdruck
;~ Testdruck()
;~ Case $tabdruckereinstellung
;~ DruckerEinstellung()
;~ Case $tabdruckereigenschaft
;~ DruckerEigenschaft()
;~ Case $tabdruckerfenster
;~ DruckerFenster()
;~ Case $tabdruckerordner
;~ druckerordner()
;~ Case $tabbeenden
;~ ExitLoop
Case $GUI_EVENT_CLOSE
ExitLoop
EndSwitch
WEnd
Func TrayIcon()
Local $sTrayIcon = TraySetIcon(@ScriptDir & '\DruckerInfo.ico')
TraySetState($TRAY_ICONSTATE_SHOW)
EndFunc ;==>TrayIcon
Func _GetPrintersInfo($strComputer = ".")
GUICtrlSetData($l_standardprinter, "Kein Standarddrucker hinterlegt!")
GUICtrlSetData($idProgressbar1, 0)
GUICtrlSetData($lStatus, "Abfrage wird ausgeführt")
GUICtrlSetData($liste, "")
Local $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
If Not IsObj($objWMIService) Then Return SetError(1)
Local $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Printer", 'WQL', 48)
For $objItem In $colItems
ConsoleWrite("-------------------------------------------" & @CRLF)
ConsoleWrite("Win32_Printer instance from '" & $strComputer & "'" & @CRLF)
ConsoleWrite("-------------------------------------------" & @CRLF)
;~ ConsoleWrite("Attributes : " & $objItem.Attributes & @CRLF)
;~ ConsoleWrite("Availability : " & $objItem.Availability & @CRLF)
;~ ConsoleWrite("AvailableJobSheets : " & Join($objItem.AvailableJobSheets, ",") & @CRLF)
;~ ConsoleWrite("AveragePagesPerMinute : " & $objItem.AveragePagesPerMinute & @CRLF)
;~ ConsoleWrite("Capabilities : " & Join($objItem.Capabilities, ",") & @CRLF)
ConsoleWrite("CapabilityDescriptions : " & Join($objItem.CapabilityDescriptions, ",") & @CRLF)
ConsoleWrite("Caption : " & $objItem.Caption & @CRLF)
$reg = ($objItem.Caption & @CRLF)
;~ ConsoleWrite("CharSetsSupported : " & Join($objItem.CharSetsSupported, ",") & @CRLF)
ConsoleWrite("Comment : " & $objItem.Comment & @CRLF)
;~ ConsoleWrite("ConfigManagerErrorCode : " & $objItem.ConfigManagerErrorCode & @CRLF)
;~ ConsoleWrite("ConfigManagerUserConfig : " & $objItem.ConfigManagerUserConfig & @CRLF)
ConsoleWrite("CreationClassName : " & $objItem.CreationClassName & @CRLF)
;~ ConsoleWrite("CurrentCapabilities : " & Join($objItem.CurrentCapabilities, ",") & @CRLF)
;~ ConsoleWrite("CurrentCharSet : " & $objItem.CurrentCharSet & @CRLF)
;~ ConsoleWrite("CurrentLanguage : " & $objItem.CurrentLanguage & @CRLF)
;~ ConsoleWrite("CurrentMimeType : " & $objItem.CurrentMimeType & @CRLF)
;~ ConsoleWrite("CurrentNaturalLanguage : " & $objItem.CurrentNaturalLanguage & @CRLF)
;~ ConsoleWrite("CurrentPaperType : " & $objItem.CurrentPaperType & @CRLF)
ConsoleWrite("Default : " & $objItem.Default & @CRLF)
;~ MsgBox(0, "", $objItem.Default)
;~ ConsoleWrite("DefaultCapabilities : " & Join($objItem.DefaultCapabilities, ",") & @CRLF)
;~ ConsoleWrite("DefaultCopies : " & $objItem.DefaultCopies & @CRLF)
;~ ConsoleWrite("DefaultLanguage : " & $objItem.DefaultLanguage & @CRLF)
;~ ConsoleWrite("DefaultMimeType : " & $objItem.DefaultMimeType & @CRLF)
;~ ConsoleWrite("DefaultNumberUp : " & $objItem.DefaultNumberUp & @CRLF)
;~ ConsoleWrite("DefaultPaperType : " & $objItem.DefaultPaperType & @CRLF)
;~ ConsoleWrite("DefaultPriority : " & $objItem.DefaultPriority & @CRLF)
ConsoleWrite("Description : " & $objItem.Description & @CRLF)
;~ ConsoleWrite("DetectedErrorState : " & $objItem.DetectedErrorState & @CRLF)
ConsoleWrite("DeviceID : " & $objItem.DeviceID & @CRLF)
;~ ConsoleWrite("Direct : " & $objItem.Direct & @CRLF)
;~ ConsoleWrite("DoCompleteFirst : " & $objItem.DoCompleteFirst & @CRLF)
ConsoleWrite("DriverName : " & $objItem.DriverName & @CRLF)
;~ ConsoleWrite("EnableBIDI : " & $objItem.EnableBIDI & @CRLF)
;~ ConsoleWrite("EnableDevQueryPrint : " & $objItem.EnableDevQueryPrint & @CRLF)
;~ ConsoleWrite("ErrorCleared : " & $objItem.ErrorCleared & @CRLF)
;~ ConsoleWrite("ErrorDescription : " & $objItem.ErrorDescription & @CRLF)
;~ ConsoleWrite("ErrorInformation : " & Join($objItem.ErrorInformation, ",") & @CRLF)
;~ ConsoleWrite("ExtendedDetectedErrorState : " & $objItem.ExtendedDetectedErrorState & @CRLF)
;~ ConsoleWrite("ExtendedPrinterStatus : " & $objItem.ExtendedPrinterStatus & @CRLF)
;~ ConsoleWrite("Hidden : " & $objItem.Hidden & @CRLF)
;~ ConsoleWrite("HorizontalResolution : " & $objItem.HorizontalResolution & @CRLF)
;~ ConsoleWrite("InstallDate : " & $objItem.InstallDate & @CRLF)
;~ ConsoleWrite("JobCountSinceLastReset : " & $objItem.JobCountSinceLastReset & @CRLF)
;~ ConsoleWrite("KeepPrintedJobs : " & $objItem.KeepPrintedJobs & @CRLF)
;~ ConsoleWrite("LanguagesSupported : " & Join($objItem.LanguagesSupported, ",") & @CRLF)
;~ ConsoleWrite("LastErrorCode : " & $objItem.LastErrorCode & @CRLF)
ConsoleWrite("Local : " & $objItem.Local & @CRLF)
;~ ConsoleWrite("Location : " & $objItem.Location & @CRLF)
;~ ConsoleWrite("MarkingTechnology : " & $objItem.MarkingTechnology & @CRLF)
;~ ConsoleWrite("MaxCopies : " & $objItem.MaxCopies & @CRLF)
;~ ConsoleWrite("MaxNumberUp : " & $objItem.MaxNumberUp & @CRLF)
;~ ConsoleWrite("MaxSizeSupported : " & $objItem.MaxSizeSupported & @CRLF)
;~ ConsoleWrite("MimeTypesSupported : " & Join($objItem.MimeTypesSupported, ",") & @CRLF)
ConsoleWrite("Name : " & $objItem.Name & @CRLF)
;~ ConsoleWrite("NaturalLanguagesSupported : " & Join($objItem.NaturalLanguagesSupported, ",") & @CRLF)
ConsoleWrite("Network : " & $objItem.Network & @CRLF)
;~ ConsoleWrite("PaperSizesSupported : " & Join($objItem.PaperSizesSupported, ",") & @CRLF)
;~ ConsoleWrite("PaperTypesAvailable : " & Join($objItem.PaperTypesAvailable, ",") & @CRLF)
;~ ConsoleWrite("Parameters : " & $objItem.Parameters & @CRLF)
;~ ConsoleWrite("PNPDeviceID : " & $objItem.PNPDeviceID & @CRLF)
ConsoleWrite("PortName : " & $objItem.PortName & @CRLF)
;~ ConsoleWrite("PowerManagementCapabilities: " & Join($objItem.PowerManagementCapabilities, ",") & @CRLF)
;~ ConsoleWrite("PowerManagementSupported : " & $objItem.PowerManagementSupported & @CRLF)
;~ ConsoleWrite("PrinterPaperNames : " & _WideCharToMultiByte(Join($objItem.PrinterPaperNames, ",")) & @CRLF)
;~ ConsoleWrite("PrinterState : " & $objItem.PrinterState & @CRLF)
;~ ConsoleWrite("PrinterStatus : " & $objItem.PrinterStatus & @CRLF)
;~ ConsoleWrite("PrintJobDataType : " & $objItem.PrintJobDataType & @CRLF)
;~ ConsoleWrite("PrintProcessor : " & $objItem.PrintProcessor & @CRLF)
;~ ConsoleWrite("Priority : " & $objItem.Priority & @CRLF)
;~ ConsoleWrite("Published : " & $objItem.Published & @CRLF)
;~ ConsoleWrite("Queued : " & $objItem.Queued & @CRLF)
;~ ConsoleWrite("RawOnly : " & $objItem.RawOnly & @CRLF)
;~ ConsoleWrite("SeparatorFile : " & $objItem.SeparatorFile & @CRLF)
;~ ConsoleWrite("ServerName : " & $objItem.ServerName & @CRLF)
;~ ConsoleWrite("Shared : " & $objItem.Shared & @CRLF)
;~ ConsoleWrite("ShareName : " & $objItem.ShareName & @CRLF)
;~ ConsoleWrite("SpoolEnabled : " & $objItem.SpoolEnabled & @CRLF)
;~ ConsoleWrite("StartTime : " & $objItem.StartTime & @CRLF)
;~ ConsoleWrite("Status : " & $objItem.Status & @CRLF)
;~ ConsoleWrite("StatusInfo : " & $objItem.StatusInfo & @CRLF)
;~ ConsoleWrite("SystemCreationClassName : " & $objItem.SystemCreationClassName & @CRLF)
ConsoleWrite("SystemName : " & $objItem.SystemName & @CRLF)
;~ ConsoleWrite("TimeOfLastReset : " & $objItem.TimeOfLastReset & @CRLF)
;~ ConsoleWrite("UntilTime : " & $objItem.UntilTime & @CRLF)
;~ ConsoleWrite("VerticalResolution : " & $objItem.VerticalResolution & @CRLF)
;~ ConsoleWrite("WorkOffline : " & $objItem.WorkOffline & @CRLF & @CRLF)
if $objItem.Default = True Then
GUICtrlSetData($l_standardprinter, $objItem.Caption)
EndIf
GUICtrlSetData($liste, $reg, $l_standardprinter)
Next
GUICtrlSetData($idProgressbar1, $h)
GUICtrlSetData($lStatus, "Fertig!")
Sleep(250)
EndFunc ;==>_GetPrintersInfo
Func druckerordner()
Run("rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL PrintersFolder")
EndFunc ;==>druckerordner
Func Testdruck()
$drucker = GUICtrlRead($liste)
$instring = StringInStr($drucker, "\\")
If $drucker == "" Then
MsgBox(16, "TestDruck", "Es wurde kein Drucker ausgewählt!")
ElseIf $instring == 0 Then
RunWait("rundll32 printui.dll,PrintUIEntry /n""\\" & GUICtrlRead($sComputer) & "\" & $drucker & """ /k")
MsgBox(64, "TestDruck", "Der TestDruck wurde an den Drucker """ & $drucker & """ abgeschickt!" & @CRLF & "Bitte überprüfen Sie den Ausdruck.")
Else
RunWait("rundll32 printui.dll,PrintUIEntry /n " & $drucker & " /k")
MsgBox(64, "TestDruck", "Der TestDruck wurde an den Drucker """ & $drucker & """ abgeschickt!" & @CRLF & "Bitte überprüfen Sie den Ausdruck.")
EndIf
EndFunc ;==>Testdruck
Func DruckerFenster()
$drucker = GUICtrlRead($liste)
$instring = StringInStr($drucker, "\\")
If $drucker == "" Then
MsgBox(16, "Drucker-Warteschlange", "Es wurde kein Drucker ausgewählt!")
ElseIf $instring = 0 Then
RunWait("rundll32 printui.dll,PrintUIEntry /n""\\" & GUICtrlRead($sComputer) & "\" & $drucker & """ /o")
Else
RunWait("rundll32 printui.dll,PrintUIEntry /n " & $drucker & " /o")
EndIf
EndFunc ;==>DruckerFenster
Func DruckerEigenschaft()
$drucker = GUICtrlRead($liste)
$instring = StringInStr($drucker, "\\")
If $drucker == "" Then
MsgBox(16, "Drucker-Eigenschaften", "Es wurde kein Drucker ausgewählt!")
ElseIf $instring = 0 Then
RunWait("rundll32 printui.dll,PrintUIEntry /n""\\" & GUICtrlRead($sComputer) & "\" & $drucker & """ /p")
Else
RunWait("rundll32 printui.dll,PrintUIEntry /n " & $drucker & " /p")
EndIf
EndFunc ;==>DruckerEigenschaft
Func DruckerEinstellung()
$drucker = GUICtrlRead($liste)
$instring = StringInStr($drucker, "\\")
If $drucker == "" Then
MsgBox(16, "Drucker-Einstellungen", "Es wurde kein Drucker ausgewählt!")
ElseIf $instring = 0 Then
RunWait("rundll32 printui.dll,PrintUIEntry /n""\\" & GUICtrlRead($sComputer) & "\" & $drucker & """ /e")
Else
RunWait("rundll32 printui.dll,PrintUIEntry /n " & $drucker & " /e")
EndIf
EndFunc ;==>DruckerEinstellung
Func Abfragen()
_GetPrintersInfo(GUICtrlRead($sComputer))
EndFunc ;==>Abfragen
Func CLOSEClicked()
Exit
EndFunc ;==>CLOSEClicked
Func Beenden()
Exit
EndFunc ;==>Beenden
Func Join($aArray, $sDelimiter)
Local $sJoin
If IsArray($aArray) Then
For $sItem In $aArray
$sJoin &= $sItem & $sDelimiter
Next
EndIf
Return $sJoin ? StringTrimRight($sJoin, 1) : ''
EndFunc ;==>Join
; Konvertiert den Text, damit Umlaute und Sonderzeichen in SciTE und in der Eingabeaufforderung korrekt dargestellt werden!
Func _WideCharToMultiByte($vText, $iCodePage = @Compiled ? 1 : 65001, $bRetNoStruct = True, $bRetBinary = False)
$vText = String($vText) ; Damit _WinAPI_WideCharToMultiByte nicht abstürzt, wenn kein String übergeben wurde!
Return _WinAPI_WideCharToMultiByte($vText, $iCodePage, $bRetNoStruct)
EndFunc ;==>_WideCharToMultiByte
GUIDelete($hGUI)

Alles anzeigen

Habe mich allerdings noch dazu entschlossen die Funktionen für die Druckeinstellungen etc. vorerst auszukommentieren.

Wenn ich hierfür mal wieder mehr Zeit habe, werde ich mich da nochmal ransetzen.

Umbenannt: Installierte Drucker Remote auslesen

Lashandan 19. März 2019

Lashandan 19. März 2019

Lashandan 2. April 2019

Teilen