11 Years of Service
94%
[HIDE-THANKS]
[/HIDE-THANKS]
Code:
>;All info will be in "$InfoFile"
;LeVeL-23.eu
;Author: VLB2001
$InfoFile = "Computer name - " & @ComputerName & @CRLF
$InfoFile &= "OS version - " & @OSVersion & @CRLF
$InfoFile &= "CPU Architecture - " & @CPUArch & @CRLF
$InfoFile &= "OS Type - " & @OSType & @CRLF
$InfoFile &= "OS Build - " & @OSBuild & @CRLF
$InfoFile &= "OS Service Pack - " & @OSServicePack & @CRLF
$InfoFile &= "User name - " & @UserName & @CRLF
$InfoFile &= "Home drive - " & @HomeDrive & "\" & @CRLF
$InfoFile &= "IP address 1 - " & @IPAddress1 & @CRLF
$InfoFile &= "IP address 2 - " & @IPAddress2 & @CRLF
$InfoFile &= "IP address 3 - " & @IPAddress3 & @CRLF
$InfoFile &= "IP address 4 - " & @IPAddress4 & @CRLF
$InfoFile &= "Time - " & @HOUR & ":" & @MIN & ":" & @SEC & ":" & @MSEC & @CRLF
$InfoFile &= "Date - " & @MDAY & "." & @MON & "." & @YEAR & @CRLF
$InfoFile &= "Country name - " & RegRead("HKEY_CURRENT_USER\Control Panel\International\", "sCountry") & @CRLF
$InfoFile &= "Language name - " & RegRead("HKEY_CURRENT_USER\Control Panel\International\", "LocaleName") & @CRLF
$InfoFile &= "Language code - " & @OSLang & @CRLF
$InfoFile &= "Desktop Width - " & @DesktopWidth & " px" & @CRLF
$InfoFile &= "Desktop Height - " & @DesktopHeight & " px" & @CRLF
$InfoFile &= "Desktop Refresh rate - " & @DesktopRefresh & " Hz" & @CRLF
$InfoFile &= "Interpreter version - " & "[Autoit v3 - Version: " & @AutoItVersion & "]" & @CRLF
$InfoFile &= "Interpreter architecture - " & Get64() & @CRLF
$InfoFile &= "Is administrator - " & GetAdmin() & @CRLF
Func GetAdmin()
If IsAdmin() = 1 Then Return "Yes"
If IsAdmin() = 0 Then Return "No"
EndFunc ;==>GetAdmin
Func Get64()
If @AutoItX64 = 1 Then Return "64 bit"
If @AutoItX64 = 0 Then Return "32 bit"
EndFunc ;==>Get64
MsgBox(0, "Info", $InfoFile)
Last edited by a moderator: