Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно
D_Master


Сообщения: n/a

Профиль | Цитировать


Такс... Способ определения процессора, материнской платы и видеокарты вроде бы нашел (хоть и геморный)). Кому надо:
Код: Выделить весь код
#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 с материнской платой на других компах фокус не прокатил

Последний раз редактировалось D_Master, 05-03-2009 в 11:43. Причина: Upd


Отправлено: 00:43, 05-03-2009 | #2