StringSplit innhalber einer Funktion, funktioniert nicht

Sumale.my

Hallo zusammen,

ich habe folgende Funktion:

Code

Func _SystemInfo()
    $WMI = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & @ComputerName & "\root\cimv2")
    $getBIOS = $WMI.ExecQuery("Select * from Win32_BIOS")
    
    For $element In $getBIOS
        Global $getBiosVersion = $element.SMBIOSBIOSVersion
        Global $getSerial = StringReplace(StringReplace($element.SerialNumber, "SSN12345678901234567", "Nicht vorhanden !"), "na", "Nicht vorhanden !")
    Next

EndFunc   ;==>_SystemInfo

Ich habe es um getModel erweitert:

Code

Func _SystemInfo()
    $WMI = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & @ComputerName & "\root\cimv2")
    $getBIOS = $WMI.ExecQuery("Select * from Win32_BIOS")
    
    For $element In $getBIOS
        Global $getBiosVersion = $element.SMBIOSBIOSVersion
        Local $test = StringSplit("1111" & ".DATMODEL", ".")
        Global $getModelName = $modelnamegood[2]
        Global $getSerial = StringReplace(StringReplace($element.SerialNumber, "SSN12345678901234567", "Nicht vorhanden !"), "na", "Nicht vorhanden !")
    Next
EndFunc   ;==>_SystemInfo

Alles anzeigen

Code

Local $test = StringSplit("1111" & ".DATMODEL", ".")

Code

Global $getModelName = $modelnamegood[2]

Ich kann es so nicht ausgeben, es kommt

Error: Subscript used on non-accessible variable.

Es wollte eigentlich so gesplittet werden oder?

[1] 1111

[2] DATMODEL

Und ich möchte "DATMODEL" ausgeben.

include array ist auch vorhanden

Code

$getSerial und $getBiosVersion wird mir ausgegeben

Danke für Hilfe.

LG

**AspirinJunkie**

Zitat von Sumale.my

Global $getModelName = $modelnamegood[2]

Du hast die Variable $modelnamegood vorher nie definiert.

**Musashi**

Wo wird $modelnamegood[2] definiert ? Poste bitte mal das gesamte Skript.

Nebenbei : Globals innerhalb einer Funktion zu deklarieren ist suboptimal

Gruß Musashi

Sumale.my

Bitte mit $test[2] ersetzen.

Ich erhalte immer diesen oben genannten Fehler.

Wenn ich die Variablen nicht mit Global deklarieren, bekomme ich die Meldung, dass einige Variablen nicht global deklariert würden ?!

Zu lang, daher extern

Script: https://pastebin.com/teQ8eMuJ

functions.au3: https://pastebin.com/epFN10Fa

GUI: https://pastebin.com/YRWyi0Ty

**AspirinJunkie**

Im Testcode mit $test[2] ersetzt führt dazu dass kein Fehler kommt.

Mach ein Minimalbeispiel was so kurz wie möglich ist, den Fehler bei dir reproduziert und direkt bei anderen lauffähig ist ohne dass sie auch nur ein einziges Zeichen ändern müssen.

Dann kann man dir helfen.

Und mit gewisser Wahrscheinlichkeit wirst du beim Erstellen eines solchen Minimalbeispieles selbst auf die Fehlerquelle stoßen.

Edit: Da du ja jetzt das ganze Riesenkonstrukt hochgestellt hast: Keine Ahnung ob wer Lust hat das ganze durchzuarbeiten - ich zumindest nicht.

Woher bist du dir auch so sicher dass der Fehler im StringSplit liegt?
Mach dir doch nur mal ein Miniskript welches nur aus dieser Funktion und deren Aufruf besteht. Du wirst feststellen dass der angesprochene Fehler nicht kommt.

Seziere dein Skript schrittweise vom Kleinen zum Großen - damit grenzt du die Fehlerquelle ein.

Exakt dafür sind Minimalbeispiele gedacht.

Ich zumindest werde mich mit dem Gesamtskript nicht auseinander setzen.

Mach ein Minimalbeispiel was den Fehler verursacht und die Chance dass sich damit jemand beschäftigt ist ungleich höher.

**Musashi**

Zitat von Sumale.my

Wenn ich die Variablen nicht mit Global deklarieren, bekomme ich die Meldung, dass einige Variablen nicht global deklariert würden ?!

Hallo Sumale.my !

Das ist mit Abstand der tautologischte Satz, den ich seit Langem gelesen habe (Sorry)

Um Dir zu helfen, folge bitte dem Rat von AspirinJunkie :

Zitat von AspirinJunkie

Mach ein Minimalbeispiel was so kurz wie möglich ist, den Fehler bei dir reproduziert und direkt bei anderen lauffähig ist ohne dass sie auch nur ein einziges Zeichen ändern müssen.

Edit :

Sorry noch mal, aber als ich nachts nach Hause gekommen bin, hat mich mein Humor einfach übermannt

Die WMI-Klasse Win32_BIOS liefert folgende Daten, siehe :

https://msdn.microsoft.com/en-us/library/…7(v=vs.85).aspx

Welche Information genau suchst Du für $getModelName ?

Zitat von Sumale.my

Local $test = StringSplit("1111" & ".DATMODEL", ".")

Was möchtest Du damit erreichen ?

Du erstellst den String "1111.DATMODEL" um ihn anschließend mit StringSplit in ein Array aufzuteilen (Delimiter = .)

Gruß Musashi

Sumale.my

Hallo zusammen,

erst einmal Danke für die Antworten und entschuldigt, dass ich mich unverständlich ausgedrückt habe.

Das gesamte Script funktioniert bisher Reibungslos, natürlich bin ich für jeden Vorschlag/Idee dankbar, wie man etwas besser realisieren kann,

Auf den Firmenrechner (ASUS), lese ich mittels "$element.SMBIOSBIOSVersion" Das Model und die Bios-Version aus. Die Asus Geräte geben folgendes zurück: Beispiel: X751SA.705

Ich möchte lediglich X751SA und 705 als einzelne Variablen zurück geben.

Da auf dem heimischen Rechner "SMBIOSBIOSVersion" was anderes zurück gibt wie z.B "A7CN40WW", nehme ich als Test "

Code

StringSplit("X751SA.305", ".")

Und dieses Beispiel funktioniert:

Code

Func _SystemInfo()
    $WMI = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & @ComputerName & "\root\cimv2")
    $getBIOS = $WMI.ExecQuery("Select * from Win32_BIOS")

    For $element In $getBIOS
        Local $splitBios = StringSplit("X751SA.705", ".")
        Global $getBiosVersion = $splitBios[2]
        Global $getModelName = $splitBios[1]
        Global $getSerial = StringReplace(StringReplace($element.SerialNumber, "SSN12345678901234567", "Nicht vorhanden !"), "na", "Nicht vorhanden !")
    Next

EndFunc   ;==>_SystemInfo

Alles anzeigen

Ich habe wohl vorher irgendeinen Dummen Fehler eingebaut.

Wie kann ich denn überprüfen, ob "$splitBios" den Zeichensatz "X751SA.705" enhält um zu splitten und wenn nicht, dass dann Platzhalter für "getBios..." und/oder "getModel.." eingesetzt werden?

Aber nun zu den Globals, wenn ich diese entferne und die Funktion so ausieht:

Code

Func _SystemInfo()
    $WMI = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & @ComputerName & "\root\cimv2")
    $getBIOS = $WMI.ExecQuery("Select * from Win32_BIOS")

    For $element In $getBIOS
        Local $splitBios = StringSplit("X751SA.705", ".")
        $getBiosVersion = $splitBios[2]
        $getModelName = $splitBios[1]
        $getSerial = StringReplace(StringReplace($element.SerialNumber, "SSN12345678901234567", "Nicht vorhanden !"), "na", "Nicht vorhanden !")
    Next

EndFunc   ;==>_SystemInfo

Alles anzeigen

Erhalte ich beim kompilieren diese Fehler

Zitat

+>14:56:33 Starting AutoIt3Wrapper v.17.224.935.0 Keyboard:00000407 OS:WIN_10/ CPU:X64 OS:X64 Environment(Language:0407) CodePage: utf8.auto.check:

+> SciTEDir => C:\Program Files (x86)\ISN AutoIt Studio\Data UserDir => C:\Users\Lenovo\AppData\Local\AutoIt v3\SciTE\AutoIt3Wrapper SCITE_USERHOME => C:\Users\Lenovo\AppData\Local\AutoIt v3\SciTE

>Running AU3Check (3.3.14.2) from:C:\Program Files (x86)\AutoIt3 input:C:\Users\Lenovo\Documents\ISN AutoIt Studio\Projects\Final Test Tools v3\Final_Test_Tools_v3.au3

"C:\Users\Lenovo\Documents\ISN AutoIt Studio\Projects\Final Test Tools v3\functions.au3"(160,77) : warning: $getModelName: possibly used before declaration.

$keydefus = @WorkingDir & "WTP\asus-wtp\bin\keydef\keydef" & $getModelName &

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

"C:\Users\Lenovo\Documents\ISN AutoIt Studio\Projects\Final Test Tools v3\functions.au3"(208,36) : warning: $getSerial: possibly used before declaration.

$serial = StringStripWS($getSerial,

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

"C:\Users\Lenovo\Documents\ISN AutoIt Studio\Projects\Final Test Tools v3\fttgui.isf"(55,58) : warning: $getBiosVersion: possibly used before declaration.

$menu_bios = GUICtrlCreateMenu("BIOS: " & $getBiosVersion)

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

"C:\Users\Lenovo\Documents\ISN AutoIt Studio\Projects\Final Test Tools v3\functions.au3"(160,77) : error: $getModelName: undeclared global variable.

$keydefus = @WorkingDir & "WTP\asus-wtp\bin\keydef\keydef" & $getModelName &

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

"C:\Users\Lenovo\Documents\ISN AutoIt Studio\Projects\Final Test Tools v3\functions.au3"(208,36) : error: $getSerial: undeclared global variable.

$serial = StringStripWS($getSerial,

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

"C:\Users\Lenovo\Documents\ISN AutoIt Studio\Projects\Final Test Tools v3\fttgui.isf"(55,58) : error: $getBiosVersion: undeclared global variable.

$menu_bios = GUICtrlCreateMenu("BIOS: " & $getBiosVersion)

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

C:\Users\Lenovo\Documents\ISN AutoIt Studio\Projects\Final Test Tools v3\Final_Test_Tools_v3.au3 - 3 error(s), 3 warning(s)

!>14:56:35 AU3Check ended. Press F4 to jump to next error.rc:2

>Running:(3.3.14.2):C:\Program Files (x86)\AutoIt3\aut2exe\aut2exe.exe /in "C:\Users\Lenovo\Documents\ISN AutoIt Studio\Projects\Final Test Tools v3\Final_Test_Tools_v3.au3" /out "C:\Users\Lenovo\AppData\Local\AutoIt v3\Aut2exe\~AU2E46.tmp.exe" /nopack /icon "G:\WTP\finaltest\redicon.ico" /comp 2

+>14:56:38 Aut2exe.exe ended.C:\Users\Lenovo\AppData\Local\AutoIt v3\Aut2exe\~AU2E46.tmp.exe. rc:0

+>14:56:38 Created program:C:\Users\Lenovo\Documents\ISN AutoIt Studio\Release\Final Test Tools v3\FinalTestToolsv3.exe

+>14:56:39 AutoIt3Wrapper Finished.

Alles anzeigen

[Blockierte Grafik: http://fs5.directupload.net/images/171019/uwbzifqm.png]

Daher habe ich die Globals drin gelassen.

**alpines**

Zitat von Sumale.my

Wie kann ich denn überprüfen, ob "$splitBios" den Zeichensatz "X751SA.705" enhält um zu splitten und wenn nicht, dass dann Platzhalter für "getBios..." und/oder "getModel.." eingesetzt werden?

Wenn du nur prüfen willst ob ein Punkt vorhanden ist, dann nimm einfach StringInStr.

Wenn du allerdings das Format also ZeichenketteNummerZeichenKettePunktNummer erkennen möchtest, dann solltest du StringRegExp verwenden.

**AspirinJunkie**

Zitat von Sumale.my

Wie kann ich denn überprüfen, ob "$splitBios" den Zeichensatz "X751SA.705" enhält um zu splitten und wenn nicht, dass dann Platzhalter für "getBios..." und/oder "getModel.." eingesetzt werden?

In dem du den Rückgabewert von StringSplit ($splitBios) per Ubound() überprüfst ob mindestens 3 Elemente im Array vorhanden sind oder @error auf ungleich 0 prüfst. Siehe Hilfe zu StringSplit. Irgendwann scheint es bei dir eben nicht diese Form zu haben und StringSplit hat nichts zum Splitten, weswegen der Zugriff auf das dritte Element versagt. Für den Fall brauchst du wie gesagt ein Errorhandling.

Zitat von Sumale.my

Aber nun zu den Globals, wenn ich diese entferne und die Funktion so ausieht:

[...]

Erhalte ich beim kompilieren diese Fehler

Du versuchst außerhalb von Funktionen auf Variablen, welche lokal definiert sind (ob explizit per Local oder implizit wie hier per Dim), zuzugreifen.

Außerhalb existieren diese jedoch nicht was zu diesem Fehler führt. Du umgehst das ganze in dem du die Variablen als global definierst.
Wenn man jedoch Werte in einer Funktion ermittelt und außerhalb weiter verwenden möchte gibt man diese in der Regel als Rückgabewert zurück (mit Return).
In deinem Fall sind es mehrere, so dass du diese in ein Array packen kannst und dieses dann als Rückgabewert der Funktion nimmst.

Hier zum besseren Verständnis (ist übrigens auch ein Minimalbeispiel...):

AutoIt

#include <Array.au3>

$a_Test = _Test()
_ArrayDisplay($a_Test)


Func _Test()
    Local $A = @AutoItExe
    Local $B = @ScriptFullPath
    Local $C = @AutoItVersion

    Local $a_Return[] = [$A,$B,$C]
    Return $a_Return
EndFunc

Alles anzeigen

Es gibt durchaus Situation wo eine Variable an vielen verschiedenen Stellen im Programm verwendet wird.
Dort kann es Sinn machen diese einmalig global zu definieren. Aber dann macht man dies (gewisse Coding-Konventionen) am Anfang des Skriptes, außerhalb von Funktionen.

Sumale.my

Bin ich hier irgendwo auf dem richtigen weg ?

C

#include <MsgBoxConstants.au3>
#include <Array.au3>

Local $d = "."
Local $info = "X751SA.705"
$pairs = StringSplit($info, $d , 2)
For $i = 0 To UBound($pairs) - 1
    If $pairs[$i] = "" Then ContinueLoop
    ConsoleWrite($pairs[$i] & @CRLF)
Next


MsgBox(52, "model:", $pairs[0])
MsgBox(52, "bios:", $pairs[1])

Alles anzeigen

**alpines**

So halb, das Skript wird crashen wenn du als Bios "ABC123" nimmst, weil du ohne Abfrage immernoch auf das Array zugreifst.

Sumale.my

Puhh, ich habe einfach noch zu wenig Erfahrung.

alpines,

würdest du mir meine Funktion dementsprechend einmal vernünftig aufbauen? Ich wäre dir sehr dankbar und weiß das zu schätzen!!

Die aktuelle Funktion:

Code

Func _SystemInfo()
    $WMI = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & @ComputerName & "\root\cimv2")
    $getBIOS = $WMI.ExecQuery("Select * from Win32_BIOS")
    For $element In $getBIOS
        Local $splitBios = StringSplit("X751SA.705", ".")
        Global $getBiosVersion = $splitBios[2]
        Global $getModelName = $splitBios[1]
        Global $getSerial = StringReplace(StringReplace($element.SerialNumber, "SSN12345678901234567", "Nicht vorhanden !"), "na", "Nicht vorhanden !")
    Next
EndFunc   ;==>_SystemInfo

**Musashi**

Hallo Sumale.my !

Zitat von Sumale.my

Bin ich hier irgendwo auf dem richtigen weg ?

Na ja

AutoIt

#include <Array.au3>

Opt('MustDeclareVars', 1)  ; Variablen müssen vor der Verwendung deklariert werden

Global $aBIOSInfo = _GetBIOSInfo()
IF Not @error Then
    _ArrayDisplay($aBIOSInfo)
Else
    ConsoleWrite("Fehler in der Funktion _GetBIOSInfo" & @CRLF)
EndIf

; ----------------------------------------------
Func _GetBIOSInfo()
    Local $objWMI, $colItems, $objItem
    Local $sBIOSVersion, $sManufacturer, $sSerialNumber
    Local $aReturn[5]
    Local $sModelName = '', $sVersion = ''  ; Werte werden durch StringSplit besetzt

    $objWMI = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & @ComputerName & "\root\cimv2")
    $colItems = $objWMI.ExecQuery("SELECT * FROM Win32_BIOS", "WQL", 0x10 + 0x20)
    If IsObj($colItems) Then
        For $objItem In $colItems
            $sBIOSVersion = $objItem.BIOSVersion(0)
            $sManufacturer = $objItem.Manufacturer
            $sSerialNumber = StringReplace(StringReplace($objItem.SerialNumber, "SSN12345678901234567", "Nicht vorhanden !"), "na", "Nicht vorhanden !")

            ; $sBIOSVersion auswerten :
            ; ModelName und Version aus $sBIOSVersion extrahieren
            ; * siehe Kommentar


            ; Rückgabearray besetzen :
            $aReturn[0] = $sBIOSVersion
            $aReturn[1] = $sManufacturer
            $aReturn[2] = $sSerialNumber
            $aReturn[3] = $sModelName
            $aReturn[4] = $sVersion
            Return $aReturn
        Next
    Else
        SetError(1)
    EndIf
EndFunc ;==>_GetBIOSInfo

Alles anzeigen

* Kommentar :

An dieser Stelle gehst Du immer davon aus, dass die BIOSVersion nach dem Muster 'X751SA.705' aufgebaut ist. Das ist aber nicht zwingend der Fall, bei mir enthält BIOSVersion z.B. 'ALASKA - 1072009'. Machst Du jetzt ein StringSplit mit Delimiter . , dann enthält das Array nur ein Element. Ein Zugriff auf $pairs[1] würde, wie alpines bereits schrieb, einen Fehler auswerfen.

Gruß Musashi

**alpines**

Bei mir wird bei SMBIOSBIOSVersion "To Be Filled By O.E.M." angezeigt, sollte ich mir darum Sorgen machen?

Also aufpassen wenn man nach Punkten splittet.

**BugFix**

alpines: Jetzt hast du ja auch die Globals in der Func belassen.

**alpines**

BugFix ich glaube du hast was auf den Augen. Am besten du lädst die Seite nochmal

**Musashi**

Hallo alpines !

Zitat von alpines

Bei mir wird bei SMBIOSBIOSVersion "To Be Filled By O.E.M." angezeigt, sollte ich mir darum Sorgen machen?

Ich denke nicht

Bei mir sieht es wie folgt aus :

BiosVersion = ALASKA - 1072009

Manufacturer = American Megatrends Inc.

Seriennummer = To be filled by O.E.M.

SMBIOSBIOSVersion = V30.0

Gruß Musashi

**BugFix**

Zitat von alpines

ich glaube du hast was auf den Augen. Am besten du lädst die Seite nochmal

Ich kann alle Änderungen nachverfolgen . Und in: Version vom 19. Oktober 2017, 17:18 (alpines) war dem noch so.

**alpines**

Zitat von BugFix

Ich kann alle Änderungen nachverfolgen . Und in: Version vom 19. Oktober 2017, 17:18 (alpines) war dem noch so.

Ich weiß, ich nämlich auch. Der Code war sowieso nicht gut, ich hab nur das nötigste geändert und mich dann entschieden ihn zu löschen weil Musashi das ganze besser gemacht hat.

Sumale.my

Ein großes Danke an alle die gerade mitwirken.

Bei allen ASUS Geräten, wurde vorher immer via CMD wie folgt ausgelesen:

Code

@echo off
set _root=%~dp0\
PUSHd %_root%

wmic bios get smbiosbiosversion > %_root%\exbios.txt

Die Ausgabe war immer, egal welches Model: "MODEL.VERSION", darum wollte (muss?) ich das via "." splitten.

Ich habe leider kein ASUS Gerät Zuhause um zu testen, ob ich mit der obigen Funktion testen kann, aber ich erinnere mich daran, dass ich sonst falsche Informationen erhalte.

Ich dachte da an sowas wie if-else, falls kein "." vorkommt....

Kompliziert