|
VBS脚本应用-取本机硬件信息(1) '检测到计算机的主板,CPU(包括主频),内存,硬盘,显卡,网卡等相关信息
特别适合在局域网内用来察看和管理内部计算机的硬件配置情况
On Error Resume Next
temp=0
set wshshell=wscript.createObject("wscript.shell")
'启动WMI服务(没有这个服务就不行)
wshshell.run ("%comspec% /c regsvr32 /s scrrun.dll"),0,True
wshshell.run ("%comspec% /c sc config winmgmt start= auto"),0,True
wshshell.run ("%comspec% /c net start winmgmt"),0
'用一个文本来记录硬件信息
Set WshNetwork = WScript.CreateObject("WScript.Network")
computername=WshNetwork.ComputerName
set fso=createObject("scripting.filesystemObject")
tempfilter="c:\"& computername &".txt"
'这里是硬件信息纪录的存放位置,可以是网络共享路径(需有写入权限)
set tempfile=fso.createtextfile(tempfilter)
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
'主板
set board =objwmiservice.execQuery("select * from win32_baseboard")
for each item in board
board2=board2&"主板:" & item.ProdUCt
next
'CPU
set cpu =objwmiservice.execQuery("select * from win32_processor")
for each item in cpu
cpu2= cpu2&"CPU:" & item.Name
next
'内存
Set colItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMemory",,48)
For Each objItem in colItems
a=objitem.capacity
temp=temp+objitem.capacity
n=n+1
Next
memory=temp/1048576
if n=1 then
memory2= "内存: " & n & "条" &a&"M"
else
memory2= "内存: " & n & "条" &a&"M"&" 总计"&memory&"M"
end if
'硬盘
set disk =objwmiservice.execQuery("select * from win32_diskdrive")
for each item in disk
disk2= disk2&"硬盘: " & item.Model&" "
next
'显卡
set video =objwmiservice.execQuery("select * from win32_videocontroller",,48)
|
