;===============================================================================
; _GetIPConfigData()
; Description:        : Gets all the IP related information about your computer
; Parameter(s):        : -
; Return Value(s):    : An array containing the folowing:
; $ret[0][0] = Host Name of Computer
; $ret[1 to *][0] = Type Of Adapter
; $ret[1 to *][1] = Name Of Adapter
; $ret[1 to *][2] = Adapter Description
; $ret[1 to *][3] = Physical Address of Adapter
; $ret[1 to *][4] = IP Address of Adapter
; $ret[1 to *][5] = Subnet Mask of IP Address of Adapter
; $ret[1 to *][6] = Default Gateway of Adapter
; $ret[1 to *][7] = Array of DNS servers this adapter uses
; Author(s):        : nfwu
; Note(s):            : Only works on a Windows machine
;
;===============================================================================


;Func _GetIPConfigData()

$search = FileFindFirstFile("*.txt") 

; Suche erfolgreich?
If $search = -1 Then
    MsgBox(0, "Error", "Keine Datei gefunden")
    Exit
EndIf

$file = FileOpen("test.txt", 1)

; Hat das Öffnen geklappt
If $file = -1 Then
    MsgBox(0, "Error", "Fehler beim öffnen.")
    Exit
EndIf

While 1
	$datei = FileFindNextFile($search)
	If @error Then ExitLoop
	



$data = StringSplit($datei, @CRLF)
    Local Const $adapter_no = 8
    Local $retval[1][$adapter_no]
    Local $curr_adapter = 0
    Local $tmp
    For $i = 1 to $data[0]
        If __GPA_EL($data[$i], "        Hostname. . . . . . . . . . . . . : ") Then
            $retval[0][0] = __GPA_GL($data[$i], "        Hostname. . . . . . . . . . . . . : ")
        ElseIf StringInStr($data[$i],"adapter") Then
            $tmp = StringSplit($data[$i],"adapter",1)
            $curr_adapter += 1
            ReDim $retval[$curr_adapter+1][$adapter_no]
            $retval[$curr_adapter][0] = $tmp[0]
            $retval[$curr_adapter][1] = $tmp[1]
        ElseIf __GPA_EL($data[$i], "        Beschreibung. . . . . . . . . . . : ") Then
            $retval[$curr_adapter][2] = __GPA_GL($data[$i], "        Beschreibung. . . . . . . . . . . : ")
        ElseIf __GPA_EL($data[$i], "        Physikalische Adresse . . . . . . : ") Then
            $retval[$curr_adapter][3] = __GPA_GL($data[$i], "        Physikalische Adresse . . . . . . : ")
        ElseIf __GPA_EL($data[$i], "        IP-Adresse. . . . . . . . . . . . : ") Then
            $retval[$curr_adapter][4] = __GPA_GL($data[$i], "        IP-Adresse. . . . . . . . . . . . : ")
        ElseIf __GPA_EL($data[$i], "        Subnetzmaske. . . . . . . . . . . : ") Then
            $retval[$curr_adapter][5] = __GPA_GL($data[$i], "        Subnetzmaske. . . . . . . . . . . : ")
        ElseIf __GPA_EL($data[$i], "        Standardgateway . . . . . . . . . : ") Then
            $retval[$curr_adapter][6] = __GPA_GL($data[$i], "        Standardgateway . . . . . . . . . : ")
        ElseIf __GPA_EL($data[$i], "        DNS-Server. . . . . . . . . . . . : ") Then
            __GPA_StackPush($retval[$curr_adapter][7], __GPA_GL($data[$i], "        DNS-Server. . . . . . . . . . . . : "))
        ElseIf __GPA_EL($data[$i], "                                            ") Then
            __GPA_StackPush($retval[$curr_adapter][7], __GPA_GL($data[$i], "                                            "))
        EndIf
    Next
;EndFunc

WEnd



Func __GPA_EL($data,$eqstr)
    Return StringLeft( $data, StringLen($eqstr)) == $eqstr
EndFunc
Func __GPA_GL($data,$eqstr)
    Return StringRight($data, Stringlen($data)-Stringlen($eqstr) )
EndFunc
Func __GPA_StackPush(ByRef $avArray, $sValue)
    IF IsArray( $avArray ) Then
        ReDim $avArray[Ubound($avArray)+1]
    Else
        Dim $avArray[1]
    EndIf
    $avArray[UBound($avArray)] = $sValue
    SetError(0)
    Return 1
EndFunc
FileClose($search)
FileClose($file)