Hey,
ich habn kleines Tool geschrieben welches euch so ca. alle Informationen in ein txt file packt.
Könnte man auch für böse Zwecke nutzen aber soweit ausbauen werd ich es deswegen hier nicht
Bzw. hab ich schon, gibts aber nicht
Status:
Online IP
Local IP
System Information
Betriebsystem
Boot Time
Computername
Angemelder User
Start UP Einträge.
Aktive Prozessanzahl
Aktive Prozesse
Festplattenspeicher
Installierte Software.
etc.
Source:
Spoiler anzeigen
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.6.1
Author: Kev
Script Function:
Lists everything
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit]#include <INet.au3>
#include <Array.au3>
#include <String.au3>
#include <Date.au3>
$boottime = _DateAdd('s', -Int(_Date_Time_GetTickCount()/1000), _NowCalc())
$date = @MON & "/" & @MDAY & "/" & @YEAR
Filedelete(@scriptdir & "\information.txt")
$source = _inetgetsource("http://www.wieistmeineip.de/")
$IP_arr = _StringBetween($source,"<h1 class=","</h1>")
$IP = StringTrimleft($IP_arr[0],5)
Filewrite(@scriptdir & "\information.txt","******************************************** START LOGGING ****************************************")
Filewrite(@scriptdir & "\information.txt",@crlf)
Filewrite(@scriptdir & "\information.txt","Start Logging: " & @Hour & ":" & @MIN & ":" & @SEC & " Uhr " & "---> Datum: " & $date & @crlf)
Filewrite(@scriptdir & "\information.txt","***************************************************************************************************")
Filewrite(@scriptdir & "\information.txt",@crlf)
Filewrite(@scriptdir & "\information.txt",@crlf)
Filewrite(@scriptdir & "\information.txt","Extern Host IP Adress: " & $IP & @crlf)
Filewrite(@scriptdir & "\information.txt","System: " & @OSArch & " Build: " & @OSBuild & @crlf)
Filewrite(@scriptdir & "\information.txt","Betriebssystem: " & @OSVersion & @crlf & "Language: " & @OSlang & @crlf & "Service Pack: " & @OSServicePack & @crlf)
Filewrite(@scriptdir & "\information.txt","Boot Time: " & $boottime & @crlf & @crlf)
Filewrite(@scriptdir & "\information.txt","Local IP 1: " & @IPAddress1 & @crlf)
Filewrite(@scriptdir & "\information.txt","Local IP 2: " & @IPAddress2 & @crlf)
Filewrite(@scriptdir & "\information.txt","Local IP 3: " & @IPAddress3 & @crlf)
Filewrite(@scriptdir & "\information.txt","Current User: " & @username & @crlf)
Filewrite(@scriptdir & "\information.txt","Computername: " & @ComputerName & @crlf)
Filewrite(@scriptdir & "\information.txt","MAC Adresse: " & _GetMACFromIP(@IPAddress1) &@crlf)
system()
Filewrite(@scriptdir & "\information.txt",@crlf)
autostart()
Filewrite(@scriptdir & "\information.txt",@crlf)
Filewrite(@scriptdir & "\information.txt","***************************************************************" & @crlf)
Filewrite(@scriptdir & "\information.txt","Process Read Start: " & @crlf)
Filewrite(@scriptdir & "\information.txt","***************************************************************" & @crlf)
$process = ProcessList()
Filewrite(@scriptdir & "\information.txt","Aktuelle Prozessanzahl: "& $process[0][0] & @crlf)
for $i = 1 to $process[0][0]
Filewrite(@scriptdir & "\information.txt","Prozess Nr." & $i & " --> " & $process[$i][0] & @crlf)
Next
Filewrite(@scriptdir & "\information.txt","***************************************************************")
Filewrite(@scriptdir & "\information.txt",@crlf)
Filewrite(@scriptdir & "\information.txt",@crlf)
softwarelist()
func softwarelist()
Global $count = 1, $all_keys = "", $main_key = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
While 1
$act_key = RegEnumKey ($main_key, $count)
if @error then ExitLoop
$act_name = RegRead ($main_key & "\" & $act_key, "Displayname")
$act_name = StringReplace ($act_name, " (remove only)", "")
If $act_name <> "" Then $all_keys = $all_keys & $act_name & @crlf
$count = $count + 1
WEnd
Filewrite(@scriptdir & "\information.txt","***************************************************************" & @crlf)
Filewrite(@scriptdir & "\information.txt","Installed Software:" & @crlf)
Filewrite(@scriptdir & "\information.txt","***************************************************************" & @crlf)
Filewrite(@scriptdir & "\information.txt",$all_keys)
$x = Filewrite(@scriptdir & "\information.txt","***************************************************************" & @crlf)
if $x = 1 then
msgbox(0,"","File erfolgreich erstellt")
else
msgbox(0,"","Fehler,File konnte nicht erstellt werden")
Endif
Endfunc
Func system()
$hdSizeC = DriveSpaceTotal( "c:\")
$hdFreeSizeC = DriveSpaceFree( "c:\")
$hdSizeD = DriveSpaceTotal( "d:\")
$hdFreeSizeD = DriveSpaceFree( "d:\")
Filewrite(@scriptdir & "\information.txt","Laufwerk C Größe : " & Round($hdSizeC) & "MB" & @CRLF & "Laufwerk C Frei : " & Round($hdFreeSizeC) & "MB" & @CRLF & "Laufwerk D Größe : " & Round($hdSizeD) & "MB" & @CRLF & "Laufwerk D Frei : " & Round($hdFreeSizeD) & "MB" & @CRLF)
If IsAdmin() Then
Filewrite(@scriptdir & "\information.txt","Rechte : Administrator" & @CRLF)
Else
Filewrite(@scriptdir & "\information.txt", "Rechte : User" & @CRLF)
EndIf
EndFunc ;==>system
Func autoStart()
Local $Count = 1
Local Const $regkey = 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run'
While 1
$key = RegEnumVal($regkey, $Count)
If @error <> 0 Then ExitLoop
$line = RegRead($regkey, $key)
Filewrite(@scriptdir & "\information.txt","Autostart Programme: ")
Filewrite(@scriptdir & "\information.txt",$line & @crlf)
If $line <> '' Then
If Not IsDeclared('avArray') Then Dim $avArray[1]
ReDim $avArray[UBound($avArray) + 1]
$avArray[0] = UBound($avArray) - 1
$avArray[UBound($avArray) - 1] = $line
EndIf
$Count = $Count + 1
WEnd
If Not IsDeclared('avArray') Then
SetError(1)
Return ('')
Else
SetError(0)
Return ($avArray)
EndIf
EndFunc ;==>autoStart
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
Have fun unso
//edit
MAC Adresse added.