Modelname auslesen und im Ordner nach der gleichnamigen Datei suchen und öffnen

Sumale.my

Hallo zusammen,

mit folgendem Script, mache ich den Modelname der Notebooks ausfindig:

AutoIt

$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"


$Output=""
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", "WQL", _
                                        $wbemFlagReturnImmediately + $wbemFlagForwardOnly)


If IsObj($colItems) then
   For $objItem In $colItems
    $Output = $Output & $objItem.Name
    if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop
    $Output=""
   Next
Else
   Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_ComputerSystemProduct" )
Endif

Alles anzeigen

Mit diesem Script, kann ich nach der vermeindlichen Datei suchen:

AutoIt

$sSelectedFile = _WinAPI_ShellOpenFolderAndSelectItems('C:\recovery.txt')
MsgBox(0, "Selected file", $sSelectedFile)

Wie kann ich nun beide Scripte miteinander verbinden?

Die gesuchte Datei die direkt zu öffnen ist, nennt sich: keydef$modelname
$modelname steht natürlich für das zu erkennende Modeltyp.

Ich danke auch hier im Voraus.

LG

**Kanashius**

Einfach das 2te hinter das erste Script packen und die Strings mit & zusammenfügen.

AutoIt

$text="Text!"
$satz="Text"&" ein "&" anderer "&$text

Sumale.my

Ich verstehe was du meinst, aber nicht wie man das umsetzen muss.

AutoIt

#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#Include <WinAPIEx.au3>




; Generated by AutoIt Scriptomatic


$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"


$Modelname=""
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", "WQL", _
                                        $wbemFlagReturnImmediately + $wbemFlagForwardOnly)


If IsObj($colItems) then
   For $objItem In $colItems
    $Modelname = $Modelname & "Name: " & $objItem.Name & @CRLF
    if Msgbox(1,"WMI Output",$Modelname) = 2 then ExitLoop
    $Modelname=""
   Next
Else
   Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_ComputerSystemProduct" )
Endif


$sSelectedFile = _WinAPI_ShellOpenFolderAndSelectItems('C:\keydef'& $Modelname &'.txt')
MsgBox(0, "Selected file", $sSelectedFile)

Alles anzeigen

Ich brauche diese MSGBOX z.B gar nicht:

AutoIt

if Msgbox(1,"WMI Output",$Modelname) = 2 then ExitLoop

Diese dient nur zur Überprüfung, ob auch das gewünschte Ergenis erzielt wird.
Aber bisher erhalte ich nur "0" als Ergebnis. Das Model "Predator G3-710" wird richtig ausgegeben, allerdings in dieser MSGBOX, was ja überflüssig wäre.

Edit://
Ich habe es wohl doch hinbekommen:

AutoIt

#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#Include <WinAPIEx.au3>




; Generated by AutoIt Scriptomatic


$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"


$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", "WQL", _
                                        $wbemFlagReturnImmediately + $wbemFlagForwardOnly)


If IsObj($colItems) then
   For $objItem In $colItems
    $Modelname = $objItem.Name
   Next
Else
   Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_ComputerSystemProduct" )
Endif


_WinAPI_ShellOpenFolderAndSelectItems('C:\keydef'& $Modelname &'.txt')

Alles anzeigen

Jetzt habe ich nur eine weitere Frage

In dem Fall nenn sich das keydef file: "keydefPredator G3-710"

Eigentlich gibt es aber "eu" "jp" und "us" = keydefPredator G3-710us.txt

Es soll eigentlich auch immer das "us" file gefunden werden, wenn dies nicht vorhanden ist, dann das "eu" und wenn das das auch nicht gibt, dann das "jp", sollten alle nicht gefunden werden, eine Fehlermeldung.

Edit2//
So bekomme ich Syntaxerror

AutoIt

#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#Include <WinAPIEx.au3>
#include <WinAPIFiles.au3>




; Generated by AutoIt Scriptomatic


$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"


$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", "WQL", _
                                        $wbemFlagReturnImmediately + $wbemFlagForwardOnly)


If IsObj($colItems) then
   For $objItem In $colItems
    $Modelname = $objItem.Name
   Next
Else
   Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_ComputerSystemProduct" )
Endif




$keyDef = 'C:\keydef'& $Modelname &'us.txt'


$iFileExists = FileExists($keyDef)


    ; Display a message of whether the file exists or not.
    If $iFileExists Then
        _WinAPI_ShellOpenFolderAndSelectItems($keyDef)
    ElseIf
        _WinAPI_ShellOpenFolderAndSelectItems('C:\keydef'& $Modelname &'eu.txt')
	Else
		MsgBox($MB_SYSTEMMODAL, "", "Nur Japanisch.")
    EndIf
EndFunc   ;==>Example

Alles anzeigen

Edit3//
Ebfalls

AutoIt

#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#Include <WinAPIEx.au3>




; Generated by AutoIt Scriptomatic


$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"


$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", "WQL", _
                                        $wbemFlagReturnImmediately + $wbemFlagForwardOnly)


If IsObj($colItems) then
   For $objItem In $colItems
    $Modelname = $objItem.Name
   Next
Else
   Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_ComputerSystemProduct" )
Endif




$keyDefUS = 'C:\keydef'& $Modelname &'us.txt'
$keyDefEU = 'C:\keydef'& $Modelname &'eu.txt'


$iFileExistsUS = FileExists($keyDefUS)
$iFileExistsEU = FileExists($keyDefEU)


    ; Display a message of whether the file exists or not.
    If $iFileExistsUS Then
        _WinAPI_ShellOpenFolderAndSelectItems($keyDefUS)
    ElseIf $iFileExistsEU Then
		_WinAPI_ShellOpenFolderAndSelectItems($keyDefEU)
	Else
		MsgBox($MB_SYSTEMMODAL, "", "Nur Japanisch.")
    EndIf
EndFunc   ;==>Example

Alles anzeigen

Edit4//
Habe es hinbekommen. Kann mir nur jemand sagen, ob der Code allgemein so verwendet werden kann?

AutoIt

#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#Include <WinAPIEx.au3>




; Generated by AutoIt Scriptomatic


$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"


$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", "WQL", _
                                        $wbemFlagReturnImmediately + $wbemFlagForwardOnly)


If IsObj($colItems) then
   For $objItem In $colItems
    $Modelname = $objItem.Name
   Next
Else
   Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_ComputerSystemProduct" )
Endif




$keyDefUS = 'C:\keydef'& $Modelname &'us.txt'
$keyDefEU = 'C:\keydef'& $Modelname &'eu.txt'


$iFileExistsUS = FileExists($keyDefUS)
$iFileExistsEU = FileExists($keyDefEU)


    ; Display a message of whether the file exists or not.
    If $iFileExistsUS Then
        _WinAPI_ShellOpenFolderAndSelectItems($keyDefUS)
    ElseIf $iFileExistsEU Then
		_WinAPI_ShellOpenFolderAndSelectItems($keyDefEU)
	Else
		MsgBox($MB_SYSTEMMODAL, "", "Nur Japanisch.")
    EndIf

Alles anzeigen