Computerinfos

    ich hab mal ein kleines tool gemacht mit dem man
    ip/macadressen
    adminrechte
    benutzer/Computername
    Betriebssystem und Service Pack
    sowie Ram infos

    Spoiler anzeigen
    [autoit]

    #NoTrayIcon
    #include <GUIConstantsEx.au3>

    [/autoit] [autoit][/autoit] [autoit]

    $computername = @ComputerName
    $user = @UserName
    $IP1 = @IPAddress1
    $IP2 = @IPAddress2
    $IP3 = @IPAddress3
    $IP4 = @IPAddress4
    $MAC1 = _GetMACFromIP($IP1)
    $MAC2 = _GetMACFromIP($IP2)
    $MAC3 = _GetMACFromIP($IP3)
    $MAC4 = _GetMACFromIP($IP4)
    $OS = @OSVersion
    $SP = @OSServicePack
    $mem = MemGetStats()
    If IsAdmin() Then
    $admin = "Ja"
    Else
    $admin = "Nein"
    EndIf

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    GUICreate("Infos",200,650)
    GUICtrlCreateLabel("Computerame = "& $computername,10,10)
    GUICtrlCreateLabel("Benutzername = "& $user,10,30)
    GUICtrlCreateGroup("IP",5,50,120,120)
    If $IP1 = "127.0.0.1" Then
    GUICtrlCreateLabel("Fehler - Localhost",10,70)
    Else
    GUICtrlCreateLabel("1 = "& $IP1,10,70)
    EndIf
    If $IP2 = "0.0.0.0" Then
    Else
    GUICtrlCreateLabel("2 = "& $IP2,10,90)
    EndIf
    If $IP3 = "0.0.0.0" Then
    Else
    GUICtrlCreateLabel("3 = "& $IP3,10,110)
    EndIf
    If $IP4 = "0.0.0.0" Then
    Else
    GUICtrlCreateLabel("4 = "& $IP4,10,130)
    EndIf
    GUICtrlCreateGroup("MAC",5,170,120,120)
    If $IP1 = "127.0.0.1" Then
    Else
    GUICtrlCreateLabel("1 = "& $MAC1,10,190)
    EndIf
    If $IP2 = "0.0.0.0" Then
    Else
    GUICtrlCreateLabel("2 = "& $MAC2,10,210)
    EndIf
    If $IP3 = "0.0.0.0" Then
    Else
    GUICtrlCreateLabel("3 = "& $MAC3,10,230)
    EndIf
    If $IP4 = "0.0.0.0" Then
    Else

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateLabel("4 = "& $MAC4,10,250)
    EndIf
    GUICtrlCreateGroup("Betriebssystem",5,290,120,120)
    GUICtrlCreateLabel($OS,10, 330)
    GUICtrlCreateLabel($SP,10,350)
    GUICtrlCreateLabel("Adminrechte = "& $admin,10,450)
    GUICtrlCreateGroup("RAM",5,470,170,120)
    GUICtrlCreateLabel('Gesamter RAM = '& $mem[1] &' kb',10,490)
    GUICtrlCreateLabel('Genutzter RAM = '& $mem[0] &' %',10,530)
    GUICtrlCreateLabel("Verfügbarer RAM ="& $mem[2] &" kb",10,510)
    GUISetState()

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    While (true)
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func _GetMACFromIP($sIP)
    Local $MAC, $MACSize
    Local $i, $s, $r, $iIP
    $MAC = DllStructCreate("byte[6]")
    $MACSize = DllStructCreate("int")
    DllStructSetData($MACSize, 1, 6)
    $r = DllCall("Ws2_32.dll", "int", "inet_addr", "str", $sIP)
    $iIP = $r[0]
    $r = DllCall("iphlpapi.dll", "int", "SendARP", "int", $iIP, "int", 0, "ptr", DllStructGetPtr($MAC), "ptr", DllStructGetPtr($MACSize))
    $s = ""
    For $i = 0 To 5
    If $i Then $s = $s & ":"
    $s = $s & Hex(DllStructGetData($MAC, 1, $i + 1), 2)
    Next
    Return $s
    EndFunc ;==>_GetMACFromIP

    [/autoit]