Hi
das Proggy liest diverse Informationen vom (Remote-) Rechner aus und ermittelt den angemeldeten Benutzer.
Für Ergänzungen und Wünsche bin ich offen.
Grüße
Guido
Spoiler anzeigen
; ===========================================================================================
;
; Script Information
;
; Title: Remote - Informationen
; Author: Guido Eink
; Description: Informationen zu Remote-Rechner und angemeldeten Benutzer
;
; ===========================================================================================
;Konstanten und Variablen für die GUI
#include < GUIConstants.au3 >
;Fenster erstellen
GUICreate("Remote Info 1.0", 650, 300)
GUISetBkColor("0xFFFFCA")
GUISetFont(9, 400, 0, "Arial")
Global $rechnerinput
[/autoit] [autoit][/autoit] [autoit]GUICtrlCreateLabel("Rechner:", 10, 10)
GUICtrlSetFont(-1, 10, 800)
$rechner_input = GUICtrlCreateInput("", 100, 10, 140, 20)
$btn_rechnerinput = GUICtrlCreateButton("Suchen", 270, 10, 60, 20)
;Rechner-Info
GUICtrlCreateLabel("Hersteller:", 10, 60)
GUICtrlSetFont(-1, 10, 800)
$hersteller = GUICtrlCreateLabel("", 110, 60,150,20)
GUICtrlCreateLabel("Modell:", 10, 80)
GUICtrlSetFont(-1, 10, 800)
$modell = GUICtrlCreateLabel("", 110, 80,300,20)
GUICtrlCreateLabel("IP-Adresse:", 10, 110)
GUICtrlSetFont(-1, 10, 800)
$ipadresse = GUICtrlCreateLabel("", 110, 110,300,20)
GUICtrlCreateLabel("Subnet-Maske:", 10, 130)
GUICtrlSetFont(-1, 10, 800)
$subnetmaske = GUICtrlCreateLabel("", 110, 130,300,20)
GUICtrlCreateLabel("Gateway:", 10, 150)
GUICtrlSetFont(-1, 10, 800)
$gateway = GUICtrlCreateLabel("", 110, 150,300,20)
GUICtrlCreateLabel("DNSServer:", 10, 170)
GUICtrlSetFont(-1, 10, 800)
$dnsserver = GUICtrlCreateLabel("", 110, 170,300,40)
GUICtrlCreateLabel("MAC-Adresse:", 10, 210)
GUICtrlSetFont(-1, 10, 800)
$macadresse = GUICtrlCreateLabel("", 110, 210,300,20)
GUICtrlCreateLabel("DHCP-Server:", 10, 230)
GUICtrlSetFont(-1, 10, 800)
$dhcpserver = GUICtrlCreateLabel("", 110, 230,300,20)
;User-Info
GUICtrlCreateLabel("Angemeldet:", 340, 60)
GUICtrlSetFont(-1, 10, 800)
$username = GUICtrlCreateLabel("", 450, 60,150,20)
;Laufwerke
GUICtrlCreateLabel("Laufwerk C:",340,90,100,20)
GUICtrlSetFont(-1, 10, 800)
GUICtrlCreateLabel("gesamt:",340,110)
GUICtrlCreateLabel("frei:",340,130)
$gesamtspace = GUICtrlCreateLabel("", 450, 110,100,20)
$freespace = GUICtrlCreateLabel("", 450, 130,100,20)
;Betriebssystem
GUICtrlCreateLabel("Betriebssystem:",340,160,100,20)
GUICtrlSetFont(-1, 10, 800)
$betriebssystem = GUICtrlCreateLabel("", 450, 160,200,20)
GUICtrlCreateLabel("Service Pack:",340,180,100,20)
$servicepack = GUICtrlCreateLabel("", 450, 180,200,20)
func _Info()
Local $rechner
Local $wmiRoot
Local $wmiColl
Local $ip, $gw
$rechner = GUICtrlRead($rechner_input)
$wmiRoot = ObjGet("winmgmts:\\" & $rechner & "\root\CIMV2")
if @error then
MsgBox(48,"Fehler", "Rechner existiert nicht oder Firewall aktiv!")
Return 0
EndIf
$wmiColl= $wmiRoot.ExecQuery("Select * FROM Win32_ComputerSystem ")
For $wmiObj In $wmiColl
GUICtrlSetData($username,String($wmiObj.UserName))
GUICtrlSetData($hersteller,String($wmiObj.Manufacturer))
GUICtrlSetData($modell,String($wmiObj.Model))
Next
$wmiColl = 0
$wmiColl= $wmiRoot.ExecQuery("Select * FROM Win32_NetworkAdapterConfiguration ")
For $wmiObj In $wmiColl
$ip = StringSplit(String($wmiObj.IPAddress (0)),".")
$gw = StringSplit(String($wmiObj.DefaultIPGateway (0)),".")
if StringUpper($wmiObj.DNSHostName) == StringUpper($rechner) and $ip[0] == $gw[0] then
GUICtrlSetData($ipadresse,String($wmiObj.IPAddress (0) & @crlf))
GUICtrlSetData($subnetmaske,String($wmiObj.IPSubnet (0) & @crlf))
GUICtrlSetData($gateway,String($wmiObj.DefaultIPGateway (0) & @crlf))
GUICtrlSetData($dnsserver,String($wmiObj.DNSServerSearchOrder (0) & @crlf) & String($wmiObj.DNSServerSearchOrder (1) & @crlf))
GUICtrlSetData($macadresse,String($wmiObj.MACAddress (0) & @crlf))
if String($wmiObj.DHCPServer (0)) == "" Then
GUICtrlSetData($dhcpserver,"Nein")
Else
GUICtrlSetData($dhcpserver,String($wmiObj.DHCPServer (0) & @crlf))
EndIf
EndIf
Next
$wmiColl = 0
$wmiColl = $wmiRoot.ExecQuery("SELECT * FROM Win32_LogicalDisk")
For $wmiObj In $wmiColl
if $wmiObj.Caption == "C:" Then
GUICtrlSetData($freespace,string(Round($wmiObj.FreeSpace/1024/1024/1024,1) & " GB" & @crlf))
GUICtrlSetData($gesamtspace,string(Round($wmiObj.Size/1024/1024/1024,1) & " GB" & @crlf))
EndIf
Next
$wmiColl = 0
$wmiColl = $wmiRoot.ExecQuery("SELECT * FROM Win32_OperatingSystem")
For $wmiObj In $wmiColl
GUICtrlSetData($betriebssystem,string($wmiObj.Caption & @crlf))
GUICtrlSetData($servicepack,string($wmiObj.CSDVersion & @crlf))
Next
$wmiColl = 0
EndFunc
[/autoit] [autoit][/autoit] [autoit];Fenster aufrufen
GUISetState(@SW_SHOW)
$msg = 0
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $btn_rechnerinput
_Info()
EndSelect
WEnd