[решено] Определение оборудования компьютера

Такс... Способ определения процессора, материнской платы и видеокарты вроде бы нашел (хоть и геморный)). Кому надо:

Код:

#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 с материнской платой на других компах фокус не прокатил :(