Такс... Способ определения процессора, материнской платы и видеокарты вроде бы нашел
(хоть и геморный)). Кому надо:
Код:
#NoTrayIcon
$file=@ScriptDir & "\Hardware.txt"
$sProcessor = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString")
$sMotherBoardManufacturer = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BaseBoardManufacturer")
$sMotherBoardModel = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BaseBoardProduct")
$run = "cscript " & @ScriptDir & "\video.vbs>" & @ScriptDir & "\video.ini"
RunWait(@COMSPEC & " /c " & $run, "", @SW_HIDE)
$video = IniRead(@ScriptDir & "\video.ini", "video", "VideoProcessor", "")
FileOpen($file, 2)
FileWrite($file, "Процессор - " & $sProcessor & @CRLF)
FileWrite($file, "Материнская плата - " & $sMotherBoardManufacturer & " " & $sMotherBoardModel &@CRLF)
FileWrite($file, "Видеокарта - " & $video)
FileClose($file)
FileDelete(@ScriptDir & "\video.ini")
Exit
и
video.vbs, который, собственно, и определяет видеокарту:
Код:
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM CIM_VideoController",,48)
For Each objItem in colItems
Wscript.Echo "[video]"
Wscript.Echo "VideoProcessor=" & objItem.VideoProcessor
Next
VBS взят
отсюда
Ну не знаю я, как передать инфу из результата обработки VBS-скрипта Поэтому пришлось мудрить с ini-файлом - из vbs писать этот ини-файл и потом AutoIt'ом читать его.
Теперь ещё бы определить звук, сеть, жесткие диски и объем оперативы...
UPD с материнской платой на других компах фокус не прокатил