Показать полную графическую версию : [решено] Определение оборудования компьютера
D_Master
04-03-2009, 22:41
Всем привет!
Реально ли средствами AutoIt'а как можно точнее определить железо компьютера (чем больше железа определится, тем, разумеется, лучше :))?
Заранее спасибо.
D_Master
05-03-2009, 00:43
Такс... Способ определения процессора, материнской платы и видеокарты вроде бы нашел (хоть и геморный)). Кому надо:
#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 взят отсюда (http://www.sql.ru/forum/actualthread.aspx?tid=585612)
Ну не знаю я, как передать инфу из результата обработки VBS-скрипта :) Поэтому пришлось мудрить с ini-файлом - из vbs писать этот ини-файл и потом AutoIt'ом читать его.
Теперь ещё бы определить звук, сеть, жесткие диски и объем оперативы... :)
UPD с материнской платой на других компах фокус не прокатил :(
Во-первых любой vbs можно переделать в AutoIt, а во-вторых, за нас уже давно всё переделано: SysInfo 1.0 Beta - AutoIt Forums (http://www.autoitscript.com/forum/index.php?showtopic=54734)
D_Master
05-03-2009, 19:17
Creat0R, за ссылку огромнейшее спасибо!
Скрипт почему-то изначально нерабочий. Пришлось помучаться, пока форма показалась с информацией :)
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.