necrostaz
Сообщений: 172
Оценки: 0
Присоединился: 2007-02-27 15:54:59.460000
|
копай в сторону WMI вот пример на Windows Host Script (vb): On Error Resume Next
strComputer = "."
Set objWMIService = _
GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
'motherboard
Set mothItems = _
objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
mothstr = "Материнская плата: " & VbCrlf & vbLf
For Each objItem in mothItems
mothstr = mothstr & "Модель: " & vbtab & objItem.Model & VbCrlf
mothstr = mothstr & "Производитель: " & vbtab & objItem.Manufacturer & VbCrlf
mothstr = mothstr & "----------------------" & VbCrlf '& vbLf
Next
Wscript.Echo mothstr
|