ich hab mal ein kleines tool gemacht mit dem man
ip/macadressen
adminrechte
benutzer/Computername
Betriebssystem und Service Pack
sowie Ram infos
Spoiler anzeigen
#NoTrayIcon
#include <GUIConstantsEx.au3>
$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
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
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()
While (true)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
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