Beiträge von hipfzwirgel

Hallo gmmg,

das ist genau das was ich meinte:

Zitat von hipfzwirgel

Hallo gmmg,

ich habe das schon einmal versucht. Aber leider scheiterte ich schon daran, das ich den Webdriver nicht richtig zum Einsatz bringen konnte. Mal
fehlte eine Funktion in der UDF. Dann war es eine veraltete oder falsche Version der UDF usw. Google Chrome kann ich aus Policy-Gründen leider nicht nutzen.

auch bei den Links die du aufgeführt hast, fehlen in den Paketen z.B. die JSON.UDF, usw.. Nach Downloadlinks sucht man sich (insbesondere in den Forenbeiträgen) den Wolf. Die Sourcen bei gitlab als Zip herunter zu laden geht zwar aber eine Anleitung welche Dateien man aus dem Wust an Files eigentlich benötigt: Fehlanzeige! Ebenso ist eine Step by Step Anleitung (mit angaben expliziter Downloadlinks) für die Einrichtung nirgends zu finden. In einem der Forenbeiträge ist sogar die Rede davon, dass die JSON UDF und Webhttp UDF ABSICHTLICH nicht im Paket mit drin sind und eine Angabe wo sie stattdessen zu finden sind fehlt. Warum sind die Dateien dann preconditions? Bestenfalls führen die Verlinkungen zu jeweils anderen Forenbeiträgen die auch keine auffindbaren Downloadlinks enthalten. Ebenso fehlen in den Beiträgen (zumindest für mich nicht ersichtlich) Versionsangaben welche der gefühlt hunderten erhältlichen JSON UDFs diejenige welche ist, die für den jeweiligen Use-Case die richtige ist.

Fazit: es scheint bewusst gewollt zu sein, dass die Webdrivergeschichte so wenig wie möglich Leute benutzen können.

==> Einfach mal EIN Downloadlink, der alle nötigen Resourcen gebündelt anbietet, wäre cool

Hallo gmmg und Velted,

allerherzlichsten Dank für eure Beiträge.

@ gmmg: ich werde mir zu gegebener Zeit das mit dem Webdriver nochmals anschauen. Werde ich ja doch öfter benötigen
zur Zeit benutze ich den Firefox. MS Edge wäre auch erlaubt. Verstehe ich das richtig? Wenn ich den o.g. Geckodriver installiere und die beiden UDF's in den Include-Ordner ablege,
dann sollte das funktionieren?

@ Velted: Einer der größten Fehler war, dass der Task-Scheduler das Programm als Admin startete. Dadurch war das UserProfil vom eigentlichen User nicht "rechtzeitig" geladen worden.
Darum liefen die weiteren Durchgänge dann durch, da da dann das Profil da war...Es hatte also nichts mit dem Code direkt zu tun.
Nachdem ich den Task angepasst hatte lief das Proggi wie es sollte

Hallo gmmg,

ich habe das schon einmal versucht. Aber leider scheiterte ich schon daran, das ich den Webdriver nicht richtig zum Einsatz bringen konnte. Mal
fehlte eine Funktion in der UDF. Dann war es eine veraltete oder falsche Version der UDF usw. Google Chrome kann ich aus Policy-Gründen leider nicht nutzen.

Es treibt mich in den Wahnsinn, das der Task gestern das Programm alle 30 min. startete und es sauber durchlief. Heute findet das Proggi wieder die Login-Seite nicht.

Wie kann es sein, dass die Webseite angezeigt wird, geladen ist, per Winlist ausgelesen werden kann aber Winactivate das Fenster nicht findet

Das kann doch nicht wahr sein....

Hallo Velted,

zunächst vielen lieben Dank für deine Antwort. Ich bin insofern ein kleines Stück weiter, als das beim vorigen Code einfach

mal das Winactivate gefehlt hat und die Loginseite somit nicht fokussiert wurde. Der Code ist jetzt wie folgt:

Func LoginToKVMWebInterface($sFirefoxPath, $sProfile, $sURL, $sAccount, $sPwd, $iKVMID)

	Local $sTempProfile = @TempDir & "\ffprofile_" & $iKVMID
	DirCreate($sTempProfile)

	Local $sCmd = '"' & $sFirefoxPath & '" -no-remote -profile "' & $sTempProfile & '" "' & $sURL & '"'
	Run($sCmd, "", @SW_HIDE)
	LogWrite(394, "INFO: Firefox fuer KVM-ID " & $iKVMID & " gestartet mit URL: " & $sURL)

	$bLoginWindow = WinActivate("Login")
	LogWrite(397, "Handle von WinActivate: " & $bLoginWindow)
	Local $hWnd = WinWaitActive($bLoginWindow, "", 60)
	If Not $hWnd Then
		LogWrite(399, "ERROR: Login-Fenster bei " & $sURL & " nicht gefunden!")
		KillFirefoxInstance($sTempProfile)
		DirRemove($sTempProfile, 1)
		Return SetError(1, 0, "")
	EndIf

Es ist dennoch zum Haare raufen (so denn man welche hat ), dass immer im ersten Durchgang (die Func wird ja per Schleife 4 mal aufgerufen) der Login nicht funktioniert, da die Seite
gem. Zeile 14 nicht gefunden wird, obwohl Winactivate die Seite fokussiert. Dennoch ist die Variable $bLoginWindow 0. Seltsamer Weise funktionieren die Aufrufe 2 bis 4 tadellos.
Die Zeile Opt("WinTitleMatchMode", 2) habe ich an den Anfang des Proggis gestellt.
Im Anhang ist die Website abgebildet...

Hallo Gemeinde,

ich muss eine Tabelle unserer KVM-Switche auslesen. Leider geht das nicht via SSH oder REST, etc.. D. h. mein Programm startet den Firefox, öffnet die LoginSeite und sendet die Logindaten.
Leider geht das nicht da er die Seite nicht findet. Laut Logfile: Logwrite(379,...).
Alle Versuche das via KI zu fixen funktionieren nicht. Findet jemand den Fehler oder hat eine Idee wie ich das so hinbekomme, dass die Loginseite auf jeden Fall gefunden wird?
Der Name der Website Login — Mozilla Firefox wurde durch Weblist verifiziert...

Func LoginToKVMWebInterface($sFirefoxPath, $sProfile, $sURL, $sAccount, $sPwd, $iKVMID)
	Opt("WinTitleMatchMode", 2)
	Local $sTempProfile = @TempDir & "\ffprofile_" & $iKVMID
	DirCreate($sTempProfile)

	Local $sCmd = '"' & $sFirefoxPath & '" -no-remote -profile "' & $sTempProfile & '" "' & $sURL & '"'
	Run($sCmd, "", @SW_HIDE)
	LogWrite(375, "INFO: Firefox fuer KVM-ID " & $iKVMID & " gestartet mit URL: " & $sURL)

	Local $bLoginWindow = WinWaitActive("Login — Mozilla Firefox", "", 20)
	If Not $bLoginWindow Then
		LogWrite(379, "ERROR: Login-Fenster bei " & $sURL & " nicht gefunden!")
		KillFirefoxInstance($sTempProfile)
		DirRemove($sTempProfile, 1)
		Return SetError(1, 0, "")
	EndIf

	; Anmeldedaten eingeben
	; Warten bis Login-Fenster erscheint
	Local $hWnd = WinWait("[REGEXPTITLE:^Login — Mozilla Firefox$]", "", 20)

	If $hWnd = 0 Then
		LogWrite(389, "FEHLER: Browser/Login-Fenster nicht gefunden")
		Return
	EndIf

	; Aktivieren und sicher warten
	WinActivate($hWnd)
	If Not WinWaitActive($hWnd, "", 10) Then
		LogWrite(392, "FEHLER: Fenster konnte nicht aktiviert werden")
		Return
	EndIf

	LogWrite(395, "Fenster aktiv")

	; WICHTIG: kurze Stabilisierung
	Sleep(1000)
	WinActivate($hWnd)
	; Anmeldedaten eingeben
	Send($sAccount)
	Sleep(200)
	Send("{TAB}")
	Sleep(200)
	Send($sPwd)
	Sleep(200)
	Send("{TAB}")
	Sleep(200)
	Send("{ENTER}")
;~ 	Sleep(3000)
	LogWrite(405, "INFO: Anmeldedaten gesendet fuer KVM-ID " & $iKVMID)

	; Auf erfolgreichen Login (Fenstertitel der Startseite) warten
	Local $bLoginSuccess = False
	For $i = 1 To 20
		Sleep(1000)
		Local $sTitle = WinGetTitle("[ACTIVE]")
		If StringInStr($sTitle, "Port Access") Or StringInStr($sTitle, "/home.asp") Then
			$bLoginSuccess = True
			ExitLoop
		EndIf
	Next

	If Not $bLoginSuccess Then
		LogWrite(419, "ERROR: Login fehlgeschlagen fuer KVM-ID " & $iKVMID & " bei URL: " & $sURL)
		KillFirefoxInstance($sTempProfile)
		DirRemove($sTempProfile, 1)
		Return SetError(2, 0, "")
	EndIf

	LogWrite(425, "INFO: Login erfolgreich fuer KVM-ID " & $iKVMID & " bei URL: " & $sURL)
	Return $sTempProfile

EndFunc   ;==>LoginToKVMWebInterface

Hallole alle Zusammen,

Ich hatte den Vorschlag gesehen aber ich befinde mich derzeit nicht @home und das auch noch für die nächsten drei Wochen. Da ich solange keinen Zugriff auf meinen Dienstrechner habe, kann ich den Vorschlag nicht umsetzen, bzw. testen. Bitte entschuldigt...

Hallo Gemeinde,

ich rufe mit ShellExecute($s_Pfad, "", "", "", "") eine Webschnittstelle auf mit dem Titel (<title>Direct Port Access via Url</title>), die ihrerseits per Javascript ein neues Fenster öffnet.
Im Browser bleibt der Tab bestehen, auch wenn ich das dazugehörige Javascriptfenster schließe. So sammeln sich ziemlich viele Tabs im Firefox an, die alle den genannten Fenstertitel tragen.

Könnte man nicht den Tab, nachdem er das javascript-Fenster geöffnet hat, per Autoit ändern (hinzufügen einer Nummer, z.B. L20), damit ich weiss, welcher Tab zu welchem Javascriptfenster gehört hat?

Hallole,

das ging jetzt tatsächlich schneller als gedacht. ich habe das mit Adlibregister umgesetzt,. Was soll ich Sagen:

ES LÄUFT SUPER!!!

Einen fetten Applaus für Kanashius

Vorgang erledigt...

; ich habe folgenden Codeschnipsel in die Splashscreen Func eingefügt und damit klappt es:

  ; Adlib aktivieren
    AdlibRegister("_CheckAbort", 200)
EndFunc

Func _CheckAbort()
    If Not IsHWnd($hGuiSp) Then Return
    Local $msg = GUIGetMsg()
    If $msg = $Button1 Then
        $g_bAbort = True
        LogWrite(@ScriptLineNumber, "Prozess vom Benutzer abgebrochen")
        _SplashStop()
    EndIf
EndFunc

Hallo Kanashius,

vielen lieben Dank für deine Erklärung. Offenbar hatte ich das falsch verstanden. Dann mache ich mich mal an die Umsetzung
könnte aber dauern , weil ich in ca. einer Stunde in den Urlaub aufbreche...

Hallole Zusammen,

zunächst einmal danke für die Beiträge

Ich glaube das Prob ist doch größer. Wenn ich in der Hauptfunktion die Splashscreen-Funktion aufrufe blockiert diese mir die Hauptfunktion und da die Hauptfunktion aber mind. 32 Rechnernamen in eine Website einträgt und dann einen String ermittelt, den ich dann wieder in das Excel-File eintrage dauert der Vorgang mit ziemlicher Sicherheit zu lang für Adlibregister (Kanashuis ' Ansatz).

; das ist der Aufruf in der Hauptfunktion:

; === Hauptfunktion pro Sheet ===
Func _Fetch_UBL_BySheet($sSheetName)

    LogWrite(@ScriptLineNumber, "_Fetch_UBL_BySheet() Start Sheet: " & $sSheetName)
   
     ; ==> dieser Aufruf blockiert die Func: 
    Local $hSplash = _SplashStart("Lese: " & $sSheetName)

    ; --- Excel öffnen ---
    Local $oExcel = _Excel_Open(True)
	ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $oExcel = ' & $oExcel & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
    If @error Or Not IsObj($oExcel) Then
        _SplashStop()
        LogWrite(@ScriptLineNumber, "_Fetch_UBL_BySheet() Fehler: Excel konnte nicht gestartet werden.")
        Return MsgBox(16, "Fehler", "Excel konnte nicht gestartet werden.")
    EndIf
    .
    .
    .
    EndFunc

Also wenn jemand eine Idee hätte wie ich den Splashscreen realisiert bekomme ohne die Hauptfunktion zu blockieren und mit einem Abbruch-Button, dann bitte her damit

Hallo Moombas,

Das war mein erster Versuch aber da der Splashscreen ja auch auf einer GUI basiert, reagiert GuiGetMsg nicht darauf.
Ich teste gerade folgendes: der Splashscreen wird ja in der Func _Fetch_UBL_BySheet($aSheets[$i]) aufgerufen. Ich deaktiviere also zunächst die Hauptgui

; Beispiel:
Case $idButtonReadSelected
			GUISetState(@SW_DISABLE, $Hauptform) ; Hauptform deaktiveren wg Form in _SplashStart() / alle Gui-Variablen müssen dort anders heissen!!
			For $i = 0 To 3
				If GUICtrlRead($idRadio[$i]) = $GUI_CHECKED Then
					_Fetch_UBL_BySheet($aSheets[$i])
					ExitLoop
				EndIf
			Next
			GUISetState(@SW_ENABLE, $Hauptform) ; Hauptform wieder aktivieren

und aktiviere sie im Nachgang wieder. Durch eine eigene While für die Splashscreen-Gui, kann ich nun den Button1 des Splashscreens abfangen:

; While in der Func _SplashStart($sText)
While 1 
		$nMsg = GUIGetMsg()
		Switch $nMsg
			Case $GUI_EVENT_CLOSE
				_SplashStop()

			Case $Button1
				_SplashStop()
		EndSwitch
	WEnd

soweit so gut. So kann ich den Button des Splashscreens abfangen. Die Func Splashstop() ist die vorhandene Funktion um den Splashscreen zu beenden, wenn die Func _Fetch_UBL_BySheet($aSheets[$i])
fertig ist und steht hier nur zum Testen. Jetzt muss ich nur noch heraus finden, wie ich beim Auslösen des Splash-Buttons den Excelprozess in der Func _Fetch_UBL_BySheet($aSheets[$i]) beenden kann, sowie die Func selbst und die Haupt-GUI wieder aktivere...
Hätte da jemand evtl. eine Idee?

Hallo Gemeinde,

ich habe ein kleines Programm entwickelt, das mir aus einer Excelliste Rechnernamen ausliest, und diese in eine Website einträgt.
Das Ergebnis wird dann wieder in die Excelliste eingetragen. Da dieser Vorgang lange dauern kann, habe ich einen Splashscreen erstellt.
Auf der Gui des Splashscreen befindet sich ein "Terminate-Button" um den Vorgang abzubrechen. Wie fange ich diesen Buttonklick richtig ab?
Ein Case in der Schleife der Haupt-GUI funzt nicht, logischer Weise...

; HauptGui:

; === GUI erstellen ===
GUICreate("UBL-Reader", 300, 250)
GUICtrlCreateLabel("Wähle einen KVM:", 20, 20)

Global $idRadio[4]
$idRadio[0] = GUICtrlCreateRadio("DeskRegal", 20, 50)
$idRadio[1] = GUICtrlCreateRadio("LapRegal", 20, 75)
$idRadio[2] = GUICtrlCreateRadio("RaritanBla", 20, 100)
$idRadio[3] = GUICtrlCreateRadio("RaritanBlupp", 20, 125)
GUICtrlSetState($idRadio[0], $GUI_CHECKED)

Global $idButtonReadSelected = GUICtrlCreateButton("Read Selected", 150, 60, 120, 30)
Global $idButtonReadAll = GUICtrlCreateButton("Read All", 150, 100, 120, 30)

GUISetState()

; === GUI Event-Loop ===
While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit

		Case $idButtonReadSelected
			For $i = 0 To 3
				If GUICtrlRead($idRadio[$i]) = $GUI_CHECKED Then
					_Fetch_UBL_BySheet($aSheets[$i])
					ExitLoop
				EndIf
			Next

		Case $idButtonReadAll
			For $i = 0 To 3
				_Fetch_UBL_BySheet($aSheets[$i])
			Next

	EndSwitch

WEnd
.
.
.

; === Splashscreen ===
Func _SplashStart($sText)

#Region ### START Koda GUI section ### Form=
$hGuiSp = GUICreate("sFileVersion", 542, 314, -1, -1)
GUISetFont(8, 800, 0, "Bosch Sans Bold")
GUISetBkColor(0xFFFFFF)
$SPPic2 = GUICtrlCreatePic("@ScriptDir\Band.jpg", 0, 0, 804, 11)
$SPPlease = GUICtrlCreateLabel("Please be patient", 45, 224, 450, 41, $SS_CENTER)
GUICtrlSetFont(-1, 22, 800, 0, "Sans Bold")
GUICtrlSetColor(-1, 0x000080)
$Label1 = GUICtrlCreateLabel("Searching UBL...", 154, 32, 233, 36)
GUICtrlSetFont(-1, 22, 800, 0, "Office Sans")
GUICtrlSetColor(-1, 0x000080)
$Button1 = GUICtrlCreateButton("terminate", 230, 285, 81, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


	;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
	Global $sFile9 = "./loading.gif"

	Global $hGIF = _GUICtrlCreateGIF($sFile9, "", 190, 122)
	GUICtrlSetTip($hGIF, "Loading...")
	;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

	GUIRegisterMsg(15, "_ValidateGIFs") ; WM_PAINT'
	GUISetState()
EndFunc


Func _ValidateGIFs($hWnd, $iMsg, $wParam, $lParam)

	#forceref $hWnd, $iMsg, $wParam, $lParam
	_GIF_ValidateGIF($hGIF)

EndFunc   ;==>_ValidateGIFs

Func _SplashStop()
	 If IsHWnd($hGuiSp) Then
        GUISetState(@SW_HIDE, $hGuiSp)
        Sleep(200)
        GUIDelete($hGuiSp)
        Sleep(300)
    EndIf
EndFunc

Hallo Aspirinjunkie,

danke für deinen Denkanstoß. Da die GUI-Probs sich erst einstellten, als ich die SetError-Routine hinzugefügt hatte, habe ich den Block wieder entfernt.
Die Original SSHREAD habe ich um die Fehler-Behandlung für den Fall, dass ein Computer zwar gefunden wird aber trotzdem nicht zur Verfügung steht erweitert und die ReadAllConsoles
auch in die Originalversion zurückgeführt. Jetzt läuft das Programm wie es soll. Wenn ein Rechner in der Liste gefunden wird, wird der Browser mit dem Video des Computers geöffnet.
Wenn nicht gefunden, Fehlermeldung und wenn gefunden aber nicht zu Verfügung, auch Fehlermeldung.

Danke Fall gelöst...

Hallo Gemeinde,

die Func ReadAllConsoles ruft nacheinander die Func SSHRead auf. Dadurch werden nacheinander die 4 SSH-Consolen unserer KVM-Switche ausgelesen in ein Array.
Das Array wird formatiert und gibt die Portnummer des gesuchten Computers und den Namen zurück. Da der Auslese-Vorgang etwas dauern kann habe ich einen Spinner hinzugefügt.
Wenn der Fall eintritt, dass der Computer zwar gefunden wurde aber trotzdem nicht zur Verfügung steht, da er heruntergefahren ist, wird eine Warnung ausgegeben und die Suche abgebrochen.
Leider schaffe ich es nicht, für diesem Fall, die Spinner-Gui zu beenden und auszublenden. GuiDelete gibt zwar die 1 zurück aber das Fenster bleibt weiter sichtbar.

Hat jemand eine Idee woran das Liegen könnte?

Func SSHRead($sKVM)
	Local $sFoundNumber = -1
	LogWrite(857, "SSHRead started for KVM: " & $sKVM)

	; Decrypt login credentials
	Local $s_Account = DeencryptionKVM($s_Konto, $sWert)
	Local $s_Pwd = DeencryptionKVM($s_Parole, $sWert)

	; Run SSH command using Plink
	Local $sOutFile = @TempDir & "\output.txt"
	Local $iPID = Run(@ComSpec & " /c " & $sVar4 & " " & $s_Account & "@" & $sKVM & " -pw " & $s_Pwd & " -batch > " & $sOutFile & " 2>&1", @TempDir, @SW_HIDE)

	LogWrite(867, "SSH command launched. PID: " & $iPID)
	Sleep(1500) ; Wait for output

	; Clear credentials from memory
	$s_Account = ""
	$s_Pwd = ""

	; Open and read output file
	Local $hFile = FileOpen($sOutFile, $FO_READ)
	If $hFile = -1 Then
		LogWrite(877, "Error opening output file.")
		Return SetError(1, 0, -1)
	EndIf

	Local $aArray = FileReadToArray($hFile)
	FileClose($hFile)

	If @error Or Not IsArray($aArray) Then
		LogWrite(885, "Error reading SSH output.")
		Return SetError(2, 0, -1)
	EndIf

	; Keep only relevant lines (indices 10–41)
	For $i = UBound($aArray) - 1 To 42 Step -1
		_ArrayDelete($aArray, $i)
	Next
	For $i = 9 To 0 Step -1
		_ArrayDelete($aArray, $i)
	Next

	LogWrite(897, "SSH output trimmed. Entries remaining: " & UBound($aArray))

	; Search through array
	For $i = 0 To UBound($aArray) - 1
		Local $sOriginalLine = $aArray[$i]
		Local $sLine = StringStripWS($sOriginalLine, $STR_STRIPALL)

		; Check for availability flags
		Local $bUnavailable = (StringInStr($sLine, "NotAvailable") Or StringInStr($sLine, "down"))

		; Extract computer name part
		Local $sCleanLine = StringRegExpReplace($sLine, "_[^_]*$", "") ; Remove trailing suffix after "_"
		Local $sName = StringRegExpReplace($sCleanLine, "^\d+-", "")    ; Remove leading number and dash
		$sName = StringRegExpReplace($sName, "^CERT[1-5]-", "")         ; Remove CERTx- prefix

		; Compare with entered computer name
		If StringCompare($sName, $s_Compname, 0) = 0 Then
			If $bUnavailable Then
				LogWrite(915, "Computer '" & $s_Compname & "' found but not available: '" & $sOriginalLine & "'")
				Return SetError(10, 0, -1) ; Code 10 = found but not available
			EndIf

			; Extract port number (digits before first "-")
			Local $sNum = StringRegExpReplace($sLine, "^(\d+)-.*$", "\1")
			LogWrite(921, "Computer '" & $s_Compname & "' found on port: " & $sNum)
			Return $sNum
		EndIf
	Next

	; Terminate plink.exe if still running
	Local $plinkPID = ProcessExists("plink.exe")
	If $plinkPID Then
		ProcessClose($plinkPID)
		ProcessWaitClose($plinkPID)
		LogWrite(931, "plink.exe process terminated.")
	EndIf

	FileDelete($sOutFile)
	LogWrite(935, "Computer '" & $s_Compname & "' NOT found on " & $sKVM)
	Return SetError(3, 0, -1)
EndFunc   ;==>SSHRead


Func ReadAllConsoles()
	LogWrite(941, "Starting console scan for computer: " & $s_Compname)

	Disablecontrols()
	ShowSpinnerGUI("🔍 Searching for '" & $s_Compname & "'...")

	Local $aKVMs[5] = [$sKVM1, $sKVM2l, $sKVM3, $sKVM4]
	Local $sFoundPort = ""
	Local $bFoundButUnavailable = False

	For $i = 0 To UBound($aKVMs) - 1
		Local $sPort = SSHRead($aKVMs[$i])

		Switch @error
			Case 0
				$sFoundPort = $sPort
				LogWrite(957, "Computer found and available. Port: " & $sPort)
				ExitLoop

			Case 10
				LogWrite(962, "Computer found on KVM but not available.")
				$bFoundButUnavailable = True
				ExitLoop

			Case Else
				LogWrite(968, "Computer not found on " & $aKVMs[$i])
		EndSwitch
	Next

	; Spinner GUI jetzt sicher beenden, bevor irgendetwas angezeigt oder abgebrochen wird
	HideSpinnerGUI()
	Sleep(500)

	If $bFoundButUnavailable Then
		LogWrite(975, "Computer found but not available (down or not reachable).")
		;MsgBox(48, "Information", "The computer '" & $s_Compname & "' was found, but is not available (down or unreachable).")
		EnableControls()
		Return
	EndIf

	If $sFoundPort = "" Then
		LogWrite(982, "Computer '" & $s_Compname & "' not found on any KVM.")
		;MsgBox(48, "Not Found", "The computer '" & $s_Compname & "' could not be found on any KVM.")
		EnableControls()
		Return
	EndIf

	LogWrite(989, "Generating URL with found port: " & $sFoundPort)
	GenerateUrl("", $sFoundPort)
EndFunc   ;==>ReadAllConsoles



; Die Spinner Funktionen:

Func ShowSpinnerGUI($sText)

	; Größe des Spinner-Fensters
	Local $iWidth = 400
	Local $iHeight = 80

	; Position der Haupt-GUI ermitteln
	Local $aPos = WinGetPos($Form1_1)
	Local $iX, $iY

	If @error Then
		; Falls nicht bekannt, einfach zentriert am Bildschirm
		$iX = -1
		$iY = -1
	Else
		; Zentriert relativ zur Haupt-GUI
		$iX = $aPos[0] + Int(($aPos[2] - $iWidth) / 2)
		$iY = $aPos[1] + Int(($aPos[3] - $iHeight) / 2)
	EndIf

	; Fenster mit Popup und Dialog-Rahmen erstellen
	$hSpinnerGUI = GUICreate("Search in progress...", $iWidth, $iHeight, $iX, $iY, BitOR($WS_POPUP, $WS_DLGFRAME), $WS_EX_TOPMOST)

	; Label mit Text und Spinner
	$idLabel = GUICtrlCreateLabel($sText & " " & $aSpinner[$iSpinnerIndex], 10, 30, 380, 40, $SS_CENTER)

	; Hintergrundfarbe setzen (weiß)
	GUISetBkColor(0xFFFFFF, $hSpinnerGUI)

	; Schriftgröße und Fett
	;GUICtrlSetFont($idLabel, 12, 600)
	GUICtrlSetFont($idLabel, 12, 600, 0, "Consolas") ; 12pt, fett, nicht kursiv, Consolas
	; Fenster anzeigen
	GUISetState(@SW_SHOW, $hSpinnerGUI)

	; Timer für Spinner starten
	AdlibRegister("UpdateSpinnerLabel", 100)

EndFunc   ;==>ShowSpinnerGUI


; Im Update-Loop nur Spinner-Zeichen austauschen, z.B. so:
Func UpdateSpinnerLabel()
	; Nur das rotierende Zeichen ändern, Text bleibt gleich lang
	Local $sBaseText = "🔍 search for '" & $s_Compname & "'... "
	$iSpinnerIndex = Mod($iSpinnerIndex + 1, UBound($aSpinner))
	GUICtrlSetData($idLabel, $sBaseText & " " & $aSpinner[$iSpinnerIndex])
EndFunc   ;==>UpdateSpinnerLabel


Func HideSpinnerGUI()
	AdlibUnRegister("UpdateSpinnerLabel")
	If $hSpinnerGUI Then
		Local $s_Handle = GUIDelete($hSpinnerGUI)
		ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $s_Handle = ' & $s_Handle & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
		$hSpinnerGUI = 0
	EndIf
EndFunc   ;==>HideSpinnerGUI

Hallo Kanashius,

ich habe nach deiner Anleitung gehandelt aber unter Response, gibt es leider keine Zeile die die gewünschten Daten wie z.B.
Port Name Type ...
1 Rechnername_L1 DVM-HDMI 8000 5A97 HUX1...

anzeigt. Es taucht auch keine json datei, auf sondern nur html, js und css Dateien. Die js-Dateien haben keine Antwort verfügbar.

Ich fürchte die Webseiten sind genauso schlecht umgesetzt wie die SSH-Schnittstelle der KVMs und die ist wirklich richtig grottig...

Hallo Kanashuis, hallo Solve-Smart,

zunächst vielen lieben Dank für eure Antworten. Ja man benötigt ein Login um sich die Konsole im Browser anzeigen zu lassen.

So wie ich den Quelltext verstehe wird der Inhalt der jeweiligen Seite per JS zur Laufzeit generiert. Auf der Website wird eine Tabelle dargestellt, die die Portnummer, den dort angeschlossenen Rechnernamen und noch u.a. die Seriennummer des am Zielrechner angeschlossenen USB-Dongle(DCIM) des KVM's anzeigt. Das sind auch die Infos dir wir für das Projekt benötigen.
Leider gibt es weder eine Möglichkeit via SSH oder sonst an diese Infos zu kommen. Es gäbe zwar laut Hersteller ein SDK für die KVMs aber diese Lizenz würde mehrere tausend €uro kosten.

Mit welchen WEB-Developer Infos könnte ich euch hier weiterhelfen?

Hallo Gemeinde,

für ein größeres Projekt benötigen wir die Seriennummern der am KVM-Switch angeschlossenen Dongles. Dies werden leider nur und ausschließlich auf einer Seite der WEB-Konsole des KVM angezeigt.
Ich habe nun versucht das Auslesen der Informationen via Firefox (Browser öffnen, Webconsole des KVMs öffnen, per Sendbefehle zur Maintenance-Website wechseln und den Inhalt kopieren...) zu machen. Soweit würde dies auch funktionieren, wenn da nicht die Eigenheiten des Firefox dazwischen funken würden, wie z.B.
das sich die Browserinstanz nicht richtig schliesst, bzw. beim neu öffnen eine Fehlermeldung erscheint, das der Browser noch in einer Instanz läuft oder er will die vorher geöffnete Instanz wieder herstellen, etc...

Kann man mit Autoit ein eigenes Browserfenster erstellen oder wie würdet ihr da rangehen?

Hm, ich habe jetzt die Schleife etwas geändert.

; ich habe 

Local $sLabel = DriveGetLabel($aDGD[$i] & "\")
If @error Then
	ContinueLoop
EndIf

;vor die "Label"-If gestellt und jetzt bekomme ich wieder das Label...
;offenbar wurde die Schleife immer beim ersten @error abgebrochen und in der Vergangenheit war der Stick immer auf D:
; seit heute ist er, warum auch immer, auf F:...	Fall erledigt

Hallo Gemeinde,

seit 2021 benutze ich folgenden Code in meinem Programm um festzustellen ob ein bestimmter USB-Stick
angeschlossen ist:

Local $Name = "SCCMBOOT"
Local $aArray1 = 0

Sleep(1500)
Local $aDGD = DriveGetDrive("REMOVABLE")
For $i = 1 To UBound($aDGD)
    If DriveGetLabel($aDGD[$i] & "\") = $Name Then
    ;~ ...
    ;~ ...
    EndIf
Next

Das Ergebnis in $aDGD sieht so aus: Row|Col 0
# 0|5
# 1|d:
# 2|f:
# 3|g:
# 4|h:
# 5|i:

Warum bekomme ich seit heute kein Label mehr zurück
Am Montag ging es noch.

Wenn ich DriveGetLabel("F:\") ausführe bekomme ich das Label des Sticks zurück

Liegt das eigentlich an Autoit oder am OS. Ich hatte das jetzt schon öfter das bestimmte Codes Monate oder wie in diesem Fall Jahre funktionieren, und dann auf einmal nicht mehr. Echt nervig...

Hallo Schnuffel,
Hallo Gemeinde,

Der Datenfluss ist folgendermaßen: Ich muss öfter ein sog. 0-Serientest machen. Dafür gibt es eine PDF-Checkliste (eben ein Formular) wo die Kopfdaten des zu testenden Computers und
verschiedene technische Daten wie z.B. Bios-Version, SDD, etc. ebenfalls in die Checkliste einzutragen sind. Danach ist ein Screenshot via HWiNFO zu erstellen und ein BIOS-Dump (Textdatei).
Alles zusammen muss dann zu einer Test-Protokoll-PDF gemerged werden, damit dieses auch weitergegeben werden kann. Bedingt durch vorgegebene Layoutanpassungen(z. B. Kopfzeile auf jeder Seite),
bessere Abbildung des Screenshots, etc. muss ich eben ein Rework der Protokolldatei machen.

Ich habe mir jetzt damit beholfen, das ich die Seite mit dem Screenshot (DinA4 quer), und das mehrseitige BIOS-Dump als Exceldateien angelegt habe. So kann ich zunächst die Kopfdaten per Autoit befüllen, den Screenshot einfügen und den Inhalt des BIOS-Dump auch in die notwendigen Seiten samt Kopfdaten mit Autoit einfügen und alles zu einer Datei mergen.

Excel war für mich die bessere Wahl, da dort a) die Zellen leichter zu adressieren sind und b) die Textboxen der Kopfzeile ebenfalls relativ easy zu beschreiben sind und
ich die BIOS-Angaben wie Bios-Option in die erste Spalte schreiben kann und den dazugehörigen Wert in eine weitere Spalte. Im Original sind dieses werte mittels Tabs formatiert, was in Word nicht wirklich schön ausgesehen hat... Vielen ieben Dank an dieser Stelle für all eure Ideen und Einlassungen. Sie haben mir sehr geholfen.