[AUTOIT]sGetInfo UDF
Publicado: 27 Jul 2014, 21:43
por Scorpio
Bueno, esto es una idea que se me ocurrio y desarrollamos Yo y Blau, para no tener que usar WMI ni tirar de API's, te ahorras bastante codigo y no falla.
Codigo:
//Regards.
Codigo:
#cs ----------------------------------------------------------------------------
Script Name: sGetInfo UDF
AutoIt Version: 3.3.8.1
Author: Scorpio & Blau
Date: 27/07/2014
Script Function:
Get the basic information of the system using the Windows Registry.
#ce ----------------------------------------------------------------------------
MsgBox(64, "Test sGetInfo", "Username: " & sGetInfo("username") & @CRLF & _
"Computername: " & sGetInfo("computername") & @CRLF & _
"CPU: " & sGetInfo("cpu") & @CRLF & _
"GPU: " & sGetInfo("gpu") & @CRLF & _
"Architecture: " & sGetInfo("architecture") & @CRLF & _
"Motherboard: " & sGetInfo("motherboard") & @CRLF & _
"Manufacturer: " & sGetInfo("manufacturer") & @CRLF & _
"Default Browser: " & sGetInfo("browser"))
Func sGetInfo($sInfo)
Select
Case $sInfo = "Username"
Return RegRead("HKEY_CURRENT_USER\Volatile Environment", "USERNAME")
Case $sInfo = "Computername"
Return RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName", "ComputerName")
Case $sInfo = "CPU"
Return RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString")
Case $sInfo = "GPU"
If @OSArch = "X64" Then
Return RegRead("HKEY_LOCAL_MACHINE64\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winsat", "PrimaryAdapterString")
Else
Return RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winsat", "PrimaryAdapterString")
EndIf
Case $sInfo = "Architecture"
Return RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment", "PROCESSOR_ARCHITECTURE")
Case $sInfo = "Motherboard"
Return RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BaseBoardProduct")
Case $sInfo = "Manufacturer"
Return RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BaseBoardManufacturer")
Case $sInfo = "Browser"
$sValue = RegRead("HKEY_CLASSES_ROOT\HTTP\shell\open\command\", "")
Return StringLeft($sValue, StringInStr($sValue, ".exe") + 4)
Case Else
Return "Error - No match was found."
EndSelect
EndFunc