VbScript获取本地机器的硬件配置

网上看到有人做了一个文件，居然要付钱下载，很生气。自己动手写了一个，没有将配置写入到文件。只是回显到控制台。当然可以很容易就回显到本地文件了。cscript xxx.vbs>>d:config.txt就可以了。呵呵简单吧！[@more@]

'On Error Resume Next
Dim fso,f1

strComputer = "."

If Err.Description = "" Then

'收集计算机用户信息
Set objWmi = GetObject("winmgmts:" & strComputer & "rootcimv2")

'收集本地计算机名称，若收集计算机登录帐户的话则使用objItem.UserName
Set colItems = objWmi.ExecQuery("Select * from Win32_ComputerSystem", , 48)
J = 0
For Each objItem In colItems
'If J = 0 Then f1.write (Trim(objItem.Name)) Else f1.write ("," & Trim(objItem.Name))
'J = J + 1
computerName= Trim(objItem.name)
Next

''create filename as computername
'Set fso = CreateObject("Scripting.FileSystemObject")
'Set f1 = fso.CreateTextFile("c:" & computerName & ".txt")
'收集CPU信息

'Set objWmi = GetObject("winmgmts:" & strComputer & "rootcimv2")
Set colItems = objWmi.ExecQuery("Select * from Win32_Processor", , 48)
J = 1
For Each objItem In colItems
'If J = 0 Then f1.write (Trim(objItem.Name)) Else f1.write ("," & Trim(objItem.Name))
'J = J + 1
wscript.echo "Cpu type:" & Trim(objItem.Name)
Next

'收集内存信息
'收集内存总容量
'Set objWmi = GetObject("winmgmts:" & strComputer & "rootcimv2")
Set colItems = objWmi.ExecQuery("Select * from Win32_ComputerSystem", , 48)
J = 2
For Each objItem In colItems
'If J = 0 Then f1.write (Trim(objItem.TotalPhysicalMemory)) Else f1.write ("," & Trim(objItem.TotalPhysicalMemory))
'J = J + 1
wscript.echo "physical Memery:" & Round(Round(objItem.TotalPhysicalMemory/1024)) & " Mb"
Next

'收集内存外频和数量信息
'Set objWmi = GetObject("winmgmts:" & strComputer & "rootcimv2")
'Set colItems = objWmi.ExecQuery("Select * from Win32_PhysicalMemory", , 48)
'J = 3
'For Each objItem In colItems
'If J = 0 Then f1.write (Trim(objItem.Description) & (objItem.DeviceLocator) & (objItem.Speed)) Else f1.write ("," & Trim(objItem.Description) & (objItem.DeviceLocator) & "," & Trim(objItem.Speed))
'J = J + 1
'wscript.echo "Cpu type:" & objItem.Name
'Next

'收集显卡信息
'Set objWmi = GetObject("winmgmts:" & strComputer & "rootcimv2")
Set colItems = objWmi.ExecQuery("Select * from Win32_VideoController", , 48)
J = 4
For Each objItem In colItems
'If J = 0 Then f1.write (Trim(objItem.Caption) & (objItem.VideoModeDescription)) Else f1.write ("," & Trim(objItem.Caption) & (objItem.VideoModeDescription))
'J = J + 1
wscript.echo "VideoController:" & objItem.Caption
Next

'收集硬盘基本信息
'Set objWmi = GetObject("winmgmts:" & strComputer & "rootcimv2")
Set colItems = objWmi.ExecQuery("Select * from Win32_DiskDrive", , 48)
J = 5
For Each objItem In colItems
'If J = 0 Then f1.write (Trim(objItem.Caption) & (objItem.Size)) Else f1.write ("," & Trim(objItem.Caption) & "," & (objItem.Size))
'J = J + 1
wscript.echo "HardDisk :" & objItem.Caption &" HardDisk Size: " & Round(Round(Round(objItem.Size/1000)/1000)/1000) & " G"
Next

'收集声卡信息
'Set objWmi = GetObject("winmgmts:" & strComputer & "rootcimv2")
Set colItems = objWmi.ExecQuery("Select * from Win32_SoundDevice", , 48)
J = 6
For Each objItem In colItems
'If J = 0 Then f1.write (Trim(objItem.ProductName)) Else f1.write ("," & Trim(objItem.ProductName))
'J = J + 1
wscript.echo "SoundCard:" & objItem.productName
Next

'收集网卡信息
'Set objWmi = GetObject("winmgmts:" & strComputer & "rootcimv2")
Set colItems = objWmi.ExecQuery("Select * from Win32_NetworkAdapter ", , 48)
For Each objItem In colItems
'If J = 0 Then f1.write (Trim(objItem.Description) & (objItem.MACAddress)) Else f1.write ("," & Trim(objItem.ProductName) & "," & (objItem.MACAddress))
'J = J + 1
wscript.echo "NetWorkCard:" & Trim(objItem.Description) & " Mac Address:" & Trim(objItem.MAcaddress)
Next

'收集软驱信息
'Set objWmi = GetObject("winmgmts:" & strComputer & "rootcimv2")
Set colItems = objWmi.ExecQuery("Select * from Win32_FloppyDrive", , 48)
J = 8
For Each objItem In colItems
'If J = 0 Then f1.write (Trim(objItem.Caption)) Else f1.write ("," & Trim(objItem.Caption))
'J = J + 1
wscript.echo "Floppy Driver:" & Trim(objItem.Caption)
Next

'收集CDROM信息
'Set objWmi = GetObject("winmgmts:" & strComputer & "rootcimv2")
Set colItems = objWmi.ExecQuery("Select * from Win32_CDROMDrive", , 48)
J = 9
For Each objItem In colItems
'If J = 0 Then f1.write (Trim(objItem.Name)) Else f1.write ("," & Trim(objItem.Name))
'J = J + 1
wscript.echo "Dvd Driver:" & Trim(objItem.Name)
Next

End If
'f1.WriteLine ("")
'f1.Close
'Set f1=Nothing

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/77544/viewspace-1009913/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/77544/viewspace-1009913/