Beiträge von Lashandan

Lashandan · 8. Juni 2020

Und natürlich noch der Code, finde es ja selbst immer schrecklich wenn man keine Lösung zur eingehenden Frage findet.

AutoIt

; COM-Fehlerbehandlungsroutine initialisieren
Local $oMyError = ObjEvent("AutoIt.Error","MyErrFunc")

; Objekt für den HTTP-Post-Request
Local $objHTTP = ObjCreate("Microsoft.XMLHTTP")

; Objekt für die XML-Datei in DOM
Local $o_XML = ObjCreate("Microsoft.XMLDOM")

; Iput-Box für die Eingabe
$strValue = InputBox("Eingabemaske", "Bitte Personalnummer eingeben!", "4230")

; Erstellen der SOAP-Hülle
$strEnvelope = '<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:urn="urn:mwm-org:soap:soap">' & _
   '<soapenv:Header/>' & _
   '<soapenv:Body>'   & _
      '<urn:onhand>' & _
         '<urn:piPersNr>'&$strValue&'</urn:piPersNr>' & _
         '<urn:gpcBCR_Connection_Obj>?</urn:gpcBCR_Connection_Obj>' & _
      '</urn:onhand>' & _
   '</soapenv:Body>' & _
'</soapenv:Envelope>'

; Soapadresse
$objHTTP.Open('POST', 'http://ADRESSE:PORT/soap?wsdl', False)

; Standard-SOAP/XML-Header für den Content-Typ
$objHTTP.setRequestHeader ("Content-Type", "text/xml")

; Header für die aufzurufende Methode
$objHTTP.setRequestHeader ("onhand", "urn:mwm-org:soap:soap#opcAntwort")

; SOAP-Aufruf
$objHTTP.send ($strEnvelope)

; Response-Text
$strReturn = $objHTTP.responseText

; XML parsen
If Not $o_XML.loadXML($strReturn) Then Exit MsgBox(48, "Fehler", "Fehler beim Laden des XML-Strings")

; Element extrahieren (Auswahl über XPath-Selektoren)
$s_opcAntwort = $o_XML.SelectSingleNode('//opcAntwort')

; Antwort
MsgBox(0,"opcAntwort", $s_opcAntwort.text)


Func MyErrFunc()
$HexNumber=hex($oMyError.number,8)
ConsoleWrite("We intercepted a COM Error !" & @CRLF & @CRLF & _
             "err.description is: " & @TAB & $oMyError.description & @CRLF & _
             "err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _
             "err.number is: " & @TAB & $HexNumber & @CRLF & _
             "err.lastdllerror is: " & @TAB & $oMyError.lastdllerror & @CRLF & _
             "err.scriptline is: " & @TAB & $oMyError.scriptline & @CRLF & _
             "err.source is: " & @TAB & $oMyError.source & @CRLF & _
             "err.helpfile is: " & @TAB & $oMyError.helpfile & @CRLF & _
             "err.helpcontext is: " & @TAB & $oMyError.helpcontext & @CRLF & _
            "" _
            )
SetError(1) ; die nach Antwort dieser Funktion zu prüfen ist
Endfunc; MyErrFunc()

Alles anzeigen

der nächste wird auch darüber stolpern also noch ein weiterer Hinweis.
Um den evelope-string zu definieren, kann man SoapUI (und anderen Alternativen) zur Hilfe nehmen:

Man ruft dazu also die WSDL-URL auf und bindet diese ins SoapUI ein.

Danach erhält man folgende Information.

Hier finde ich also die Funktion(en)

In Request 1 finde ich dann denn gesamten String für $strEnvelope.

Die entsprechende Antwort auf die gesendete Personalnummer erhalte ich ebenfalls.

Alles andere ergibt sich dann mit dem o.g. Code und sieht als Antwort so aus:

Vielen Dank nochmal an alle!

Lashandan · 8. Juni 2020

Lottich vielen Dank für deine Antwort, mit stringsplit bzw. stringbetween kann ich aber nicht alle Möglichkeiten abfangen da es meist alphanumerische Felder sind die ich abfrage.

AspirinJunkie genau danach habe ich gesucht und mein Ansatz war ja dann schonmal nicht ganz falsch
Besten Dank -

Lashandan · 5. Juni 2020

Hallo in die Runde,

ich beschäftige mich seit kurzer Zeit mit SOAP.

Die Schnittstelle etc. ist abgestimmt, ich bekomme auch bereits ein Ergebnis.

Nun möchte ich aber einen ganz speziellen Wert aus dem return ausgeben.

Folgendes erhalte ich zurück:

Code

<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:wsa="http://schemas.xmlsoap.org/ws/2004/08/addressing">
   <SOAP-ENV:Header>
      <wsa:MessageID SOAP-ENV:mustUnderstand="0">uuid:21110c70-a727-11ea-8274-ce09341d2009</wsa:MessageID>
      <wsa:To SOAP-ENV:mustUnderstand="0">http://schemas.xmlsoap.org/ws/2004/08/addressing/role/anonymous</wsa:To>
   </SOAP-ENV:Header>
   <SOAP-ENV:Body>
      <ns1:onhandResponse xmlns:ns1="urn:mwm-org:soap:soap">
         <ns1:result xsi:nil="true"/>
         <opcAntwort xmlns="urn:mwm-org:soap:soap">Fischer, Lars</opcAntwort>
      </ns1:onhandResponse>
   </SOAP-ENV:Body>
</SOAP-ENV:Envelope>

Alles anzeigen

Wie gelingt es mir nun, genau den Inhalt von opcAntwort auszugeben?

Habe es hiermit versucht:

AutoIt

; Load the return envelope into a DOM
$loadXML = $objReturn.loadXML ($strReturn)


; Query the return envelope
$strQuery = "SOAP-ENV:Envelope/SOAP-ENV:Body/opcAntwort"

$objReturn.selectSingleNode($strQuery)
$Soap = $objReturn.Text

MsgBox(0, "Soap", $Soap)

Alles anzeigen

aber hier erhalte ich:

Code

uuid:93098820-a727-11ea-8274-ce09341d2009 http://schemas.xmlsoap.org/ws/2004/08/addressing/role/anonymous Nachname, Vorname

Kann mir jemand weiterhelfen?

Lashandan · 29. Mai 2020

Vielen Dank für eure Hilfen und Hinweise.

alpines Das wird auf jeden Fall noch Interessant, wenn ich mehrere Parameter mitgeben möchte.

BugFix genau so möchte ich es lösen

Moombas Danke vielmals! Genau nach so einer Möglichkeit habe ich gesucht, dass ich die jeweilige Funktion an die Progressbar zurückmelden kann wenn diese fertig ist.

Danke an alle

Lashandan · 28. Mai 2020

Hi Leute,

ich widme mich mal wieder dem leidigen Thema eine Progressbar zu platzieren.

Folgendes möchte ich:

- Ich habe ein GUI in dem ein Rechnername zum Abfragen eingetragen werden kann.

- Nach dem Klick auf den Button Abfragen durchläuft eine While-Schleife diverse Funktionen die mir Informationen zu verschiedenen Rechnern ausgeben

- diese erscheinen dann nach und nach in dem GUI

nun soll das Ganze noch durch eine ProgressBar aufgewertet werden, damit der Nutzer auch weiß, wann die Abfrage fertig ist.

Ist es möglich, jede Funktion am Ende einen Wert an die Progressbar zu übergeben der die Funktion sozusagen "fertig" meldet?

Wenn ja wie?

Ich brauche auch keine Zeiten oder geschätzte Dauer sondern wirklich eine jeweilige Rückmeldung wenn eine Funktion fertig ist.

Die letzte Funktion übermittelt dann quasi das Ende und danach soll die Progressbar schließen.

Hab das Netzt und das Forum hier schon durchsucht aber nichts für meinen Zweck gefunden was mich zufrieden stellt

Hab bis jetzt nur sloppy-Code und schmeiße den mal hier rein:

C

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#include <Date.au3>
#include <MsgBoxConstants.au3>
#include <GUIConstants.au3>
#include <Inet.au3>
#include <WinAPI.au3>
#include <Math.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Documents\AutoIt\RechnerUptime\Form1.kxf
$Form1 = GUICreate("Form1", 615, 437, 200, 129)
$Group1 = GUICtrlCreateGroup("Eingaben", 16, 8, 577, 57)
global $iComputer = GUICtrlCreateInput("WDEST1987", 120, 32, 121, 22, BitOR($ES_CENTER,$ES_UPPERCASE))

GUICtrlSetFont(-1, 9, 400, 0, "Calibri")
$Label1 = GUICtrlCreateLabel("Rechnername:", 34, 32, 82, 18)
;GUICtrlSetFont(-1, 9, 400, 0, "Calibri")
$go = GUICtrlCreateButton("Abfragen", 248, 32, 75, 25)
;GUICtrlSetFont(-1, 9, 400, 0, "Calibri")

;$Progress1 = GUICtrlCreateProgress(336, 32, 241, 17, BitOR($PBS_SMOOTH,$WS_BORDER))

GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Rechnerinformationen", 16, 80, 577, 345)
;GUICtrlSetFont(-1, 9, 400, 0, "Calibri")

;#################___ Rechnername ___#################
$Icon1 = GUICtrlCreateIcon("C:\Windows\System32\shell32.dll", -16, 32, 104, 32, 32)
$Label2 = GUICtrlCreateLabel("Rechnername:", 72, 112, 82, 18)
$lRechnername = GUICtrlCreateLabel("Rechnername", 168, 112, 100, 18)

;#################___ Letzter Start ___#################
$Icon2 = GUICtrlCreateIcon("C:\Windows\System32\shell32.dll", -28, 32, 144, 32, 32)
$Label4 = GUICtrlCreateLabel("Letzter Start:", 72, 152, 70, 18)
$lLetzter_Start = GUICtrlCreateLabel("Letzter Start", 168, 152, 300, 18)

;#################___ Uptime ___#################
$Icon3 = GUICtrlCreateIcon("C:\Windows\System32\shell32.dll", -22, 32, 184, 32, 32)
$Label6 = GUICtrlCreateLabel("Uptime:", 72, 192, 47, 18)
$lUptime = GUICtrlCreateLabel("Uptime", 168, 192, 300, 18)

;#################___ IP-Adresse ___#################
$Icon4 = GUICtrlCreateIcon("C:\Windows\System32\shell32.dll", -222, 32, 224, 32, 32)
$Label8 = GUICtrlCreateLabel("IP-Adresse:", 72, 232, 65, 18)
$lIPAdresse = GUICtrlCreateLabel("Label9", 168, 232, 300, 18)

;#################___ Arbeitsspeicher ___#################
$Icon5 = GUICtrlCreateIcon("C:\Windows\System32\shell32.dll", -13, 32, 264, 32, 32)
$Label10 = GUICtrlCreateLabel("Arbeitsspeicher:", 72, 272, 93, 18)
$lArbeitsspeicher = GUICtrlCreateLabel("Label11", 168, 272, 300, 18)

;#################___ Prozessor ___#################
$Icon6 = GUICtrlCreateIcon("C:\Windows\System32\imageres.dll", -145, 32, 304, 32, 32)
$Label12 = GUICtrlCreateLabel("Prozessor:", 72, 312, 59, 18)
$lProzessor = GUICtrlCreateLabel("Label13", 168, 312, 450, 24)

;#################___ Betriebssystem ___#################
$Icon7 = GUICtrlCreateIcon("C:\Windows\System32\imageres.dll", -2, 32, 344, 32, 32)
$Label14 = GUICtrlCreateLabel("Betriebssystem:", 72, 352, 91, 18)
$lBetriebssystem = GUICtrlCreateLabel("Label15", 168, 352, 350, 24)

;#################___ Serial ___#################
$Icon8 = GUICtrlCreateIcon("C:\Windows\System32\shell32.dll", -45, 32, 384, 32, 32)
$Label16 = GUICtrlCreateLabel("Serial:", 72, 392, 39, 18)
$lSerialNumber = GUICtrlCreateLabel("Label17", 168, 392, 300, 18)

;#################___ Rechnermodell ___#################
$Icon9 = GUICtrlCreateIcon("C:\Windows\System32\shell32.dll", -208, 336, 104, 32, 32)
$Label18 = GUICtrlCreateLabel("Rechnermodell:", 376, 112, 90, 18)
$lModell = GUICtrlCreateLabel("Label19", 480, 112, 300, 18)

;#################___ Hersteller ___#################
$Icon10 = GUICtrlCreateIcon("C:\Windows\System32\shell32.dll", -208, 336, 144, 32, 32)
$Label20 = GUICtrlCreateLabel("Hersteller:", 376, 152, 62, 18)
$lHersteller = GUICtrlCreateLabel("Label19", 480, 152, 300, 18)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While true
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $go
            local $start = 0, $iEnd = 0, $iHours = 0, $iMins = 0, $iSecs = 0
            ProgressOn("Status der Abfrage", "Abfrage läuft...", "", 350, 350, 0)
            $start = TimerInit()
            $GesamtDauer = _TicksToTime($iEnd, $iHours, $iMins, $iSecs)
            for $i = 1 to $GesamtDauer Step 1
                 $iPercent = Int($i / $GesamtDauer * 100)
                 ProgressSet($iPercent, $i  & "/" & $GesamtDauer & @TAB & "(" & $iPercent & "%)")

            next
            $sComputer = GuiCtrlRead($iComputer)
            _Uptime($sComputer)
            GetMemWMI($sComputer)
            _LowMetricIP($sComputer)
            CheckCPU($sComputer)
            getOS($sComputer)
            getSerialNumber($sComputer)
            Modell($sComputer)
            Hersteller($sComputer)
            ProgressSet($iPercent, "Completed!")
            ProgressOff()

    EndSwitch
WEnd

Func _Uptime($sComputer)
    $iPing = Ping($sComputer, 500)
        If Not $iPing Then Return "Rechner nicht erreichbar/offline"
    $oWMIService = ObjGet("winmgmts:\\" & $sComputer & "\root\cimv2")
        If Not IsObj($oWMIService) Then Return "Fehler beim Verbinden (Admin-PC)"
    $oColOperatingSystems = $oWMIService.ExecQuery("Select LastBootUpTime from Win32_OperatingSystem")
        For $oOS In $oColOperatingSystems
            Local $sBootup = $oOS.LastBootUpTime
            Local $sLastBootupTime = __WMIDateStringToDate($sBootup)
        Next
    $oColOperatingSystems = 0
    $oWMIService = 0
    Local $sUpTime = __FormatUptime($sLastBootupTime)
    GUICtrlSetData($lLetzter_Start, __WMIDateStringToDate($sBootup))
    GUICtrlSetData($lRechnername, $sComputer)
    ;Return "Rechnername: " & $sComputer & @CRLF & "Last Boot: " & $sLastBootupTime & @CRLF & "Uptime: " & $sUpTime & @CRLF & "IP-Adresse: "
EndFunc   ;==>_Uptime

Func GetMemWMI($sComputer)
;~     ConsoleWrite("Abfrage startet..." & @CRLF)
;~     Local $sLogFileOS = @ScriptDir & "\" & "Arbeitsspeicher" & "_Stand_" & @YEAR & @MON & @MDAY & ".txt"
;~     Local $hOpenLFileOS = FileOpen($sLogFileOS, $FO_Append)
    Local $mem, $colItems, $colItem, $ping, $x
    Local $sError1 = $sComputer & ";Error 1: " & ";Host ist Offline" & @CRLF
    Local $sConsoleError1 = $sComputer & " Error 1: " & "Host ist Offline" & @CRLF
    Local $sError2 = $sComputer & ";Error 2: " & ";Host nicht erreichbar" & @CRLF
    Local $sConsoleError2 = $sComputer & " Error 2: " & "Host nicht erreichbar" & @CRLF
    Local $sError3 = $sComputer & ";Error 3: " & ";Bad destination" & @CRLF
    Local $sConsoleError3 = $sComputer & " Error 3: " & "Bad destination" & @CRLF
    Local $sError4 = $sComputer & ";Error 4: " & ";Kein Zugriff" & @CRLF
    Local $sConsoleError4 = $sComputer & " Error 4: " & "Kein Zugriff" & @CRLF
    $ping = Ping($sComputer, 500)
    $mem = ''
    Switch @error
        Case 1
            ;MsgBox(64, @error, "Host is offline")
;~         FileWriteLine($hOpenLFileOS, $sError1)
;~         ConsoleWrite($sConsoleError1)
        Case 2
            ;MsgBox(64, @error, "Host is unreachable")
;~         FileWriteLine($hOpenLFileOS, $sError2)
;~         ConsoleWrite($sConsoleError2)
        Case 3
            ;MsgBox(64, @error, "Bad destination")
;~         FileWriteLine($hOpenLFileOS, $sError3)
;~         ConsoleWrite($sConsoleError3)
        Case 4
            ;MsgBox(64, @error, "Other errors")
;~         FileWriteLine($hOpenLFileOS, $sError4)
;~         ConsoleWrite($sConsoleError4)
        Case Else
;~         ConsoleWrite($sComputer & " Ping: " & $ping & @CRLF)
            $objWMIService = ObjGet("winmgmts:{impersonationLevel = impersonate}!\\" & $sComputer & "\root\cimv2")
            If IsObj($objWMIService) Then
                $colItems = $objWMIService.ExecQuery("Select Capacity from Win32_PhysicalMemory", "WQL", 0x30)
                For $objItem In $colItems
                    $mem += $objItem.Capacity
                Next
;~             MsgBox(0,"", $mem)
                $sResultMem = $sComputer & " verfügt über: " & Round($mem / 1024 ^ 3, 2) & " GB" & @CRLF
;~             ConsoleWrite($sComputer & " Arbeitsspeicher: " & Round($mem / 1024 ^3, 2) & " GB" & @CRLF)
;~             FileWriteLine($hOpenLFileOS, $sComputer & " Arbeitsspeicher: " & Round($mem / 1024 ^3, 2) & " GB")
            Else
                $sResultMem = "Recher nicht erreichbar"
;~             ConsoleWrite($sComputer & " Rechner nicht ABFRAGBAR" & @CRLF)
;~             FileWriteLine($hOpenLFileOS, $sComputer & " Rechner nicht ABFRAGBAR" & @CRLF)
            EndIf
    EndSwitch
;~     FileClose($hOpenLFileOS)
;~     ConsoleWrite("Abfrage ende!" & @CRLF)
    GUICtrlSetData($lArbeitsspeicher, $sResultMem)
EndFunc   ;==>GetMemWMI

Func _LowMetricIP($sHost = $sComputer)
    Local $objAdapter, $iMetric = 500, $sActualIP
    Local $objWMIService = ObjGet("winmgmts:{impersonationLevel = impersonate}!\\" & $sHost & "\root\cimv2")
    If Not IsObj($objWMIService) Then Return SetError(1, 0, 0)
    Local $colAdapter = $objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration WHERE IPEnabled = True", "WQL", 0x30)
    If IsObj($colAdapter) Then
        For $objAdapter In $colAdapter
            If $objAdapter.IPConnectionMetric < $iMetric And IsString($objAdapter.DefaultIPGateway(0)) Then ; ggf. kann auch die Gateway-Prüfung entfallen !
                $sActualIP = $objAdapter.IPAddress(0)
                $iMetric = $objAdapter.IPConnectionMetric
            EndIf
        Next
        GUICtrlSetData($lIPAdresse, $sActualIP)
        If $sActualIP Then Return $sActualIP
    EndIf
    Return SetError(2, 0, 0)
EndFunc   ;==>_LowMetricIP

Func CheckCPU($sComputer)
    $wbemFlagReturnImmediately = 0x10
    $wbemFlagForwardOnly = 0x20
    $colItems = ""
    $objWMIService = ObjGet("winmgmts:\\" & $sComputer & "\root\CIMV2")
    $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Processor", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    If IsObj($colItems) Then
        For $objItem In $colItems
            $CPUSpeed = $objItem.CurrentClockSpeed
        Next
    EndIf
    $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Processor", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    If IsObj($colItems) Then
        For $objItem In $colItems
            $Cores = $objItem.NumberOfLogicalProcessors
        Next
    Else
        $Cores = "Konnte nicht ermittelt werden."
    EndIf
    $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Processor", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    If IsObj($colItems) Then
        For $objItem In $colItems
            $Processors = $objItem.NumberOfCores
        Next
    Else
        $Processors = "Konnte nicht ermittelt werden."
    EndIf
    GUICtrlSetData($lProzessor, "Kerne: " & $Cores & @CRLF & "Prozessor"&"(en)"&": " & $Processors & " je " & Ceiling($CPUSpeed) / 1000 & " Ghz")
    ;Return "Kerne: " & $Cores & @CRLF & "Taktung: " & @CRLF & "Prozessor: " & $Processors & @CRLF & Ceiling($CPUSpeed) / 1000 & " Ghz"
EndFunc   ;==>CheckCPU

Func getOS($sComputer)
    $wbemFlagReturnImmediately = 0x10
    $wbemFlagForwardOnly = 0x20
    $colItems = ""
    $strComputer = $sComputer
    $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
    $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", _
            $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    If IsObj($colItems) Then
        For $objItem In $colItems
            $OS = $objItem.Name
        Next
    EndIf
    GUICtrlSetData($lBetriebssystem, $OS)
    Return "OS: " & $OS
EndFunc   ;==>getOS

Func getSerialNumber($sComputer)
    $wbemFlagReturnImmediately = 0x10
    $wbemFlagForwardOnly = 0x20
    $colItems = ""
    $strComputer = $sComputer

    $Output = ""
    $Output = $Output & "Computer: " & $strComputer & @CRLF
    $Output = $Output & "==========================================" & @CRLF
;~     $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
    $objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2")

    $aBIOS = $objWMIService.ExecQuery("Select * from Win32_BIOS")
    For $element In $aBIOS
        $SerialNumber = $element.SerialNumber
    Next
    GUICtrlSetData($lSerialNumber, $SerialNumber)
    Return "Seriennummer: " & $SerialNumber
EndFunc   ;==>getSerialNumber

Func Modell($sComputer)
    $strComputer = $sComputer
    $aComputer = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2").ExecQuery("SELECT Model FROM Win32_ComputerSystem", "WQL", 0).ItemIndex(0).Model
    GUICtrlSetData($lModell, $aComputer)
    Return "Modell: " & $aComputer
EndFunc   ;==>Abutze

Func Hersteller($sComputer)
    local $iHours, $iMins, $iSecs
    $strComputer = $sComputer
    $sHersteller = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2").ExecQuery("Select Name, Manufacturer, Model from Win32_ComputerSystem", "WQL", 0).ItemIndex(0).Manufacturer
    GUICtrlSetData($lHersteller, $sHersteller)
    Global $iEnd = TimerDiff($start)

    Return "Hersteller: " & $sHersteller
EndFunc   ;==>Hersteller


Func __WMIDateStringToDate($sBootup)
    Return StringLeft($sBootup, 4) & "/" & StringMid($sBootup, 5, 2) & "/" & StringMid($sBootup, 7, 2) & " " & StringMid($sBootup, 9, 2) & ":" & StringMid($sBootup, 11, 2) & ":" & StringMid($sBootup, 13, 2)
EndFunc   ;==>__WMIDateStringToDate

Func __FormatUptime($sLastBootupTime)
    Local $aDateDiffs = [[0, 24, " day"], [0, 60, " hour"], [0, 60, " minute"], [0, 1, " second"]]
    Local $aDateDiff = StringSplit("D|h|n|s", "|")
    Local $sNow = _NowCalc()
    For $sDiff = 1 To $aDateDiff[0]
        $aDateDiffs[$sDiff - 1][0] = _DateDiff($aDateDiff[$sDiff], $sLastBootupTime, $sNow)
    Next
    Local $iUbound = UBound($aDateDiffs) - 1
    For $iX = $iUbound To 0 Step -1
        If $iX > 0 Then
            If $aDateDiffs[$iX - 1][0] > 0 Then $aDateDiffs[$iX][0] = ($aDateDiffs[$iX][0] - ($aDateDiffs[$iX - 1][0] * $aDateDiffs[$iX - 1][1]))
        EndIf
    Next
    Local $sUpTime = ""
    For $iX = 0 To $iUbound
        If $aDateDiffs[$iX][0] > 0 Then
            $sUpTime &= $aDateDiffs[$iX][0] & $aDateDiffs[$iX][2]
            If $aDateDiffs[$iX][0] > 1 Then $sUpTime &= "s"
            If $iX < $iUbound Then $sUpTime &= ", "
        EndIf
    Next
    GUICtrlSetData($lUptime, $sUpTime)
    Return $sUpTime
EndFunc   ;==>__FormatUptime

Alles anzeigen

Lashandan · 29. April 2019

Ich nehme alles zurück.

Trivialer Fehler meinerseits.

Wir nutzen verschiedene Netze und ein Wechsel ins freie Netzt ließ mich die Datei sauber laden und dann auch erfolgreich installieren.

Jetzt gehts ans Testen

Lashandan · 26. April 2019

Zitat von Musashi

Hi Lashandan

Ich habe es nur ganz kurz überflogen, nicht getestet :

1. Statt :

ShellExecute($sExe, $sString & " " & $start)

Sleep(1000)

könnest Du :

ShellExecuteWait... verwenden.

2. Func Aufruf() :

-> Niemals Global Deklarationen in einer Funktion verwenden.

Gruß Musashi

Alles anzeigen

Hi Musashi

Ich möchte ja, dass sich mehrere Instanzen gleichzeitig starten und nicht das aufeinander gewartet wird, bis die andere fertig ist.

Dann hätte ich mit ShellExecuteWait() nichts gekonnt.

Die globalen Deklarationen habe ich auf local geändert.

Das hätte mir schon vorher auffallen müssen

Danke dafür

Lashandan · 26. April 2019

BugFix

Habs jetzt durchdrungen und verstanden.

Aufrufskript:

C

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Change2CUI=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Array.au3>
#include <AutoITConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>

Global $ComputerList = @ScriptDir & "\computer.txt"
Local  $sExe = @ScriptDir & "\" & "Verarbeitungsprogramm.exe"

Aufruf()

Func Aufruf()
    $n = FileReadToArray($ComputerList)
    Global $cProzesse = InputBox("Instanzen", "Es sind " & Ubound($n) & " Einträge in " & $ComputerList & "." & @CRLF & "Wieviele Instanzen möchten Sie starten?" & @CRLF & _
                                                "1-Instanz: " & @TAB & Ceiling(Ubound($n) / 1) & @TAB  & " Durchläufe pro Instanz." & @CRLF & _
                                                "2-Instanzen: " & @TAB & Ceiling(Ubound($n) / 2) & @TAB  & " Durchläufe pro Instanz." & @CRLF & _
                                                "3-Instanzen: " & @TAB & Ceiling(Ubound($n) / 3) & @TAB  & " Durchläufe pro Instanz." & @CRLF & _
                                                "4-Instanzen: " & @TAB & Ceiling(Ubound($n) / 4) & @TAB  & " Durchläufe pro Instanz."& @CRLF & _
                                                "5-Instanzen: " & @TAB & Ceiling(Ubound($n) / 5) & @TAB  & " Durchläufe pro Instanz." & @CRLF & _
                                                "6-Instanzen: " & @TAB & Ceiling(Ubound($n) / 6) & @TAB  & " Durchläufe pro Instanz." & @CRLF & _
                                                "7-Instanzen: " & @TAB & Ceiling(Ubound($n) / 7) & @TAB  & " Durchläufe pro Instanz." & @CRLF & _
                                                "8-Instanzen: " & @TAB & Ceiling(Ubound($n) / 8) & @TAB  & " Durchläufe pro Instanz.", "Bitte eine Zahl eintragen", "", 350, 280, 850, 350)
    Global $i = Ceiling(Ubound($n) / $cProzesse)
    Global $sString = ''
    for $start = 1 to $cProzesse
        Local $sString = ''
        for $sStartIntervall = 1 to $i
            $sWorkString = FileReadLine($ComputerList, (($start*$i)-($i-$sStartIntervall)))
            if $sString <> '' Then
                $sString = $sString & ";"
            EndIf
            $sString = $sString & $sWorkString
        Next
        ShellExecute($sExe, $sString & " " & $start)
        Sleep(1000)
    Next
EndFunc   ;==>Aufruf

Alles anzeigen

Hier musste ich am Ende aber einen Sleep(1000) einbauen.

Denn sonst kloppen sich die jeweiligen Verarbeitungsprogramme um die Einträge und es kommt zu Fehlern in der Exportdatei.

Verarbeitungsprogramm:

C

#include <Array.au3>
#include <AutoITConstants.au3>
#include <WinHttp.au3>
#include <MsgBoxConstants.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>

If $CMDLINE[0] Then
;~     MsgBox(0,"", $CMDLINE[2])
    Local $sString = $CMDLINE[1]
    Local $run = StringSplit($sString, ";")
    for $i = 1 to Ubound($run) -1
        Local $sLogFileOS = @ScriptDir & "\" & "Arbeitsspeicher" & "_Stand_" & @YEAR & @MON & @MDAY & ".txt"

        Local $sError1 = $run[$i] & ";Error 1: " & ";Host ist Offline" & ";mit Instanz: " & $CMDLINE[2]  & @CRLF
        Local $sConsoleError1 = $run[$i]  & " Error 1: " & "Host ist Offline" & @CRLF

        Local $sError2 = $run[$i] & ";Error 2: " & ";Host nicht erreichbar" & ";mit Instanz: " & $CMDLINE[2] & @CRLF
        Local $sConsoleError2 = $run[$i]  & " Error 2: " & "Host nicht erreichbar" & @CRLF

        Local $sError3 = $run[$i] & ";Error 3: " & ";Bad destination" & ";mit Instanz: " & $CMDLINE[2] & @CRLF
        Local $sConsoleError3 = $run[$i]  & " Error 3: " & "Bad destination" & @CRLF

        Local $sError4 = $run[$i] & ";Error 4: " & ";Kein Zugriff" & ";mit Instanz: " & $CMDLINE[2] & @CRLF
        Local $sConsoleError4 = $run[$i]  & " Error 4: " & "Kein Zugriff" & @CRLF

    ;~     MsgBox(0, "", $CMDLINE[$i])
        ConsoleWrite("Abfrage startet..." & @CRLF)
        $ping = Ping($run[$i], 500)
        $mem = ''
        Switch @error
        Case 1
;~              MsgBox(64, @error, "Host is offline")
            Local $hOpenLFileOS = FileOpen($sLogFileOS, $FO_Append)
             FileWriteLine($hOpenLFileOS, $sError1)
             ConsoleWrite($sConsoleError1)
            FileClose($hOpenLFileOS)
        Case 2
    ;~         ;MsgBox(64, @error, "Host is unreachable")
            Local $hOpenLFileOS = FileOpen($sLogFileOS, $FO_Append)
             FileWriteLine($hOpenLFileOS, $sError2)
             ConsoleWrite($sConsoleError2)
            FileClose($hOpenLFileOS)
        Case 3
    ;~         ;MsgBox(64, @error, "Bad destination")
            Local $hOpenLFileOS = FileOpen($sLogFileOS, $FO_Append)
            FileWriteLine($hOpenLFileOS, $sError3)
             ConsoleWrite($sConsoleError3)
            FileClose($hOpenLFileOS)
        Case 4
    ;~         ;MsgBox(64, @error, "Other errors")
            Local $hOpenLFileOS = FileOpen($sLogFileOS, $FO_Append)
             FileWriteLine($hOpenLFileOS, $sError4)
             ConsoleWrite($sConsoleError4)
            FileClose($hOpenLFileOS)
        Case Else
            ConsoleWrite($run[$i] & " Ping: " & $ping & @CRLF)
            $objWMIService = ObjGet("winmgmts:{impersonationLevel = impersonate}!\\" & $run[$i] & "\root\cimv2")
            If IsObj($objWMIService) Then
                $colItems = $objWMIService.ExecQuery("Select Capacity from Win32_PhysicalMemory", "WQL", 0x30)
                For $objItem In $colItems
                    $mem += $objItem.Capacity
                Next
;~                 MsgBox(0,"", Round($mem / 1024 ^3, 2) & " GB" & @CRLF)
                ConsoleWrite($run[$i] & " Arbeitsspeicher: " & Round($mem / 1024 ^3, 2) & " GB" & @CRLF)
                Local $hOpenLFileOS = FileOpen($sLogFileOS, $FO_Append)
                FileWriteLine($hOpenLFileOS, $run[$i] & ";Arbeitsspeicher: " & Round($mem / 1024 ^3, 2) & " GB" & ";mit Instanz: " & $CMDLINE[2] & @CRLF)
                FileClose($hOpenLFileOS)
            Else
                ConsoleWrite($run[$i] & " Rechner nicht ABFRAGBAR" & @CRLF)
                Local $hOpenLFileOS = FileOpen($sLogFileOS, $FO_Append)
                FileWriteLine($hOpenLFileOS, $run[$i] & ";Rechner nicht ABFRAGBAR" & ";mit Instanz: " & $CMDLINE[2] & @CRLF)
                FileClose($hOpenLFileOS)
            EndIf
        EndSwitch
    Next
    ConsoleWrite("Abfrage ende!" & @CRLF)
EndIf

Alles anzeigen

Lashandan · 25. April 2019

BugFix

Vielen Dank für das Aufrufskript.

Ich stehe aber grade irgendwie im Wald.

Aus dem Aufrufskript werden die Parameter ausgegeben.

Wie binde ich diese nun korrekt in die kompilierte work.exe ein?

Im Verarbeitungsskript muss ich diese Paramter ja bekannt geben bzw. mit ihnen in der Funktion arbeiten.

Leider verstehe ich das nicht so ganz.

Lashandan · 25. April 2019

BugFix vielen Dank für deine schnelle Unterstützung

Folgendes habe ich bis jetzt.

Code

Func Aufruf()

Global $cProzesse = InputBox("Instanzen", "Wie viele Instanzen möchten Sie starten?", "Bitte eine Zahl eintragen", "", 250, 250, 850, 350)
$n = FileReadToArray($ComputerList)
Global $i = Ubound($n) / $cProzesse

for $start = 1 to $cProzesse
;~ Local $sString = ''
for $sStartIntervall = 1 to $i
$sWorkString = FileReadLine($ComputerList, (($start*$i)-($i-$sStartIntervall)))
if $sString <> '' Then
$sString = $sString & ";"
EndIf
$sString = $sString & $sWorkString
Next



MsgBox(0, "", $sString)
Next
;~ Return $sString
EndFunc ;==>Aufruf

Alles anzeigen

Als nächstes möchte ich das Verarbeitungsskript erstellen.

Wie übergebe ich den String richtig, sodass das Verarbeitungsskript diesen Zeile für Zeile verarbeitet?

Lashandan · 25. April 2019

Hallo liebe AutoIter,

ich brauche eure Unterstützung bei folgendem Vorhaben.

Ich habe eine Textdatei mit n Einträgen pro Zeile (für das Beispiel sagen wir mal 100 Einträge).

Diese Einträge möchte ich zählen lassen.

Dafür nehme ich $n = FileReadToArray($Textdatei)

Weiterhin definiere ich eine Variable die für die Anzahl der zu startenden Instanzen stehen soll.

Als Beispiel $i = 10 für 10 zu startende Instanzen

Jede Instanz soll 10 Einträge aus der Textdatei lesen und zum Weiterverarbeiten nutzen.

Also $p = Ubound($n) / $i

Jetzt soll mittels for-Schleife die Funktion aufgerufen werden und wie folgt arbeiten (Beispiel: for $x = 1 to $i):

_Funktion(1) lese die Einträge aus der Textdatei von 1-10 und verarbeite sie.

_Funktion(2) lese die Einträge aus der Textdatei von 11-20 und verarbeite sie.

_Funktion(3) lese die Einträge aus der Textdatei von 21-30 und verarbeite sie usw.

Ist dies möglich?

Wenn ja, wie gehe ich vor?

Lashandan · 24. April 2019

Zitat von ISI360

OK. Hast du auch sicher alle Dateien aus dem Archiv mit entpackt? Lt. der Fehlermeldung fehlt hier die ISN_UDF_RDC.au3 im Ordner "Includes"?

Ich bekomme bereits beim Entpacken einen Fehler:

Lashandan · 23. April 2019

Auch hierbei erhalte ich leider eine Fehlermeldung:

Lashandan · 23. April 2019

Zitat von ISI360

Da müsstest du bitte die Source Version herunterladen und über die AutoIt_Studio.au3 starten. Dann sind auch die Fehlermeldungen Detailierter.
Da aber in wenigen Tagen ein neues Update (1.09) erscheint, bitte ich dich vlt. noch um etwas geduld.

In Ordnung, dann werde ich mich einfach noch etwas gedulden

Danke vorab!

Lashandan · 23. April 2019

Hi ISI360

ich habe heute erst dein ISN AutoIt Studio entdeckt und wollte direkt loslegen und damit arbeiten...

leider erhalte ich immer wieder an verschiedenen Stellen folgende Fehlermeldung:

Kannst du damit was anfangen bzw. mir erläutern was falsch läuft?

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.

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

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?

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

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.

Beiträge von Lashandan

XML selectSingleNode

XML selectSingleNode

XML selectSingleNode

Progressbar Problem

Progressbar Problem

ISN AutoIt Studio

Eine Funktion mehrfach starten

Eine Funktion mehrfach starten

Eine Funktion mehrfach starten

Eine Funktion mehrfach starten

Eine Funktion mehrfach starten

ISN AutoIt Studio

ISN AutoIt Studio

ISN AutoIt Studio

ISN AutoIt Studio

Umbenannt: Installierte Drucker Remote auslesen

Umbenannt: Installierte Drucker Remote auslesen

Umbenannt: Installierte Drucker Remote auslesen

Umbenannt: Installierte Drucker Remote auslesen

Umbenannt: Installierte Drucker Remote auslesen