一网打尽

介绍及款工具  WMITools和WMICodeCreator 生成.net或vbs代码来操作WMI的。

您想需要怎么调用都可以了。具体怎么下，google或bing下吧。

相关脚本

'On Error Resume Next

Dim fso,f1

strComputer = "."

If Err.Description = "" Then

'收集计算机用户信息

Set objWmi = GetObject("winmgmts:" & strComputer & "rootcimv2")

‘计算机用户信息

Set colItems = objWmi.ExecQuery( _

"SELECT * FROM Win32_UserAccount",,48)

For Each objItem in colItems

Wscript.Echo "-----------------------------------"

Wscript.Echo "Win32_UserAccount instance"

Wscript.Echo "-----------------------------------"

Wscript.Echo "Name: " & objItem.Name

Next

'收集本地计算机名称，若收集计算机登录帐户的话则使用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