Inutbox Variable mit ini-Datei abgleichen

scriptler

Hallo Leute,

ich habe ein WOL-Script bei dem ich in eine Inputbox einen Benutzernamen eintragen möchte und dieser einer bestimmten MAC zugeordnet wird, welche in einer ini-Datei steht.

Bsp.: Wenn User1 seinen Namen eingibt, soll das Script aus der ini-Datei die MAC1 nehmen und als Variable in mein Script einbauen
Wenn User2 seinen Namen eingibt, soll das Script aus der ini-Datei die MAC2 nehmen und als Variable in mein Script einbauen usw.

Code

$USR1=Iniread(@Scriptdir & "\wol.ini", "USER1", "USR",""); Benutzer
$MAC1=Iniread(@Scriptdir & "\wol.ini", "USER1", "MAC",""); MAC-Adresse PC

$USR2=Iniread(@Scriptdir & "\wol.ini", "USER2", "USR",""); Benutzer
$MAC2=Iniread(@Scriptdir & "\wol.ini", "USER2", "MAC",""); MAC-Adresse PC


$USR_IN = GUICtrlCreateInput("Benutzername", 100, 10, 120, 21, -1, $WS_EX_CLIENTEDGE)

RunWait('"' & @ComSpec & '" /k ' & @ScriptDir & 'wol.exe ' & $MAC_IN & ' 192.168.1.0 255.255.255.0', @SystemDir)

Ich hab nur keine wirkliche Idee wie ich das Umsetzten kann, könnt Ihr mir helfen?

Ich hab an sowas gedacht wie: If $USR_IN = USR1 then $MAC_IN = $MAC1 ,aber da bin ich bestimmt auf dem Holzweg...

Danke

MojoeB

ich würde sagen so falsch liegst du nicht

$sUSR_IN=GUICtrlRead( $USR_IN ) <- damit kommst du an deinen eingeben Wert

Velted

Moin,

wenn Du die aktuelle AutoIt Version 3.3.16.0 mit Maps benutzt, könnte das so oder ähnlich gehen:

Code

Global $sIniDat = @Scriptdir & "\wol.ini"
Global $mIniMap = ReadIni($sIniDat)
If @error Then
    MsgBox(16, "Fehler", "Fehler beim Zugriff auf die Datei " & $sIniDat & "!")
    Exit
EndIf
; ...
; ...
$USR_IN = GUICtrlCreateInput("Benutzername", 100, 10, 120, 21, -1, $WS_EX_CLIENTEDGE)
; ...
; ...
$sUsr = GUICtrlRead($USR_IN)
If MapExists($mIniMap, $sUsr) Then
    $sMac = $mIniMap[$sUsr]
    RunWait('"' & @ComSpec & '" /k ' & @ScriptDir & 'wol.exe ' & $sMac & ' 192.168.1.0 255.255.255.0', @SystemDir)
    ; ...
    ; ...
EndIf
; ======================================================================================================================
Func ReadIni($sIni)
    Local $aSections = IniReadSectionNames($sIni)
    If @error Then Return SetError(1, 0, 0)
    Local $mMap[]
    Local $sUsr, $sMac, $sSec
    For $I = 1 To UBound($aSections)
        $sSec = $aSections[$I]
        $sUsr = Iniread($sIni, $sSec, "USR", "")
        If ($sUsr <> "") Then
            $sMac = Iniread($sIni, $sSec, "MAC", "")
            If ($sMac <> "") Then $mMap[$sUsr] = $sMac
        EndIf
    Next
    Return $mMap
EndFunc

Alles anzeigen

**autoBert**

Zitat von Velted

, könnte das so oder ähnlich gehen:

sicher könnte es so gehen. Ich würde die Benutzerverwaltung aber Windows überlassen und deshalb

Code

@UserProfileDir