On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
'主板
Set board = objWMIService.ExecQuery("Select * from Win32_BaseBoard")
For Each objItem In board
board2 = board2 & objItem.Product & ", "
Next
ss=ss&"Mainboard:"&board2&chr(13)&chr(10)
'BIOS
Set bios = objWMIService.ExecQuery("Select * from Win32_BIOS")
For Each objItem In bios
bios2 = bios2 & objItem.Name & " (" & objItem.Version & ")" & ", "
Next
ss=ss&"BIOS:"&Left(bios2, Len(bios2) - 3)&chr(13)&chr(10)
'处理器
Set cpu = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objItem In cpu
cpu2 = cpu2 & objItem.Name & ", "
Next
ss=ss&"CPU:"&Left(cpu2, Len(cpu2) - 3)&chr(13)&chr(10)
'内存
Set memory = objWMIService.ExecQuery("Select * from Win32_PhysicalMemory")
num = 0
For Each objItem In memory
total = total + objItem.Capacity / 1048576
num = num + 1
Next
ss=ss&"Memory:"& total & "M (" & num & ")" &chr(13)&chr(10)
'硬盘
Set disk = objWMIService.ExecQuery("Select * from Win32_DiskDrive")
For Each objItem In disk
disk2 = disk2 & objItem.Model & " (" & Round(objItem.Size / 1000000000) & "G), "
Next
ss=ss&"HardDisk:"& Left(disk2, Len(disk2) - 3) &chr(13)&chr(10)
'显卡
Set video = objWMIService.ExecQuery("Select * from Win32_VideoController")
For Each objItem In video
video2 = video2 & objItem.Description & ", "
Next
ss=ss&"VGA:"& Left(video2, Len(video2) - 3) &chr(13)&chr(10)
'声卡
Set sound = objWMIService.ExecQuery("Select * from Win32_SoundDevice")
For Each objItem In sound
sound2 = sound2 & objItem.Name & ", "
Next
ss=ss&"Audio:"& Left(sound2, Len(sound2) - 3) &chr(13)&chr(10)
'网卡
Set lan = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter")
For Each objItem In lan
If Left(objItem.NetConnectionID,0 ) = "" Then
lan2 = lan2 & objItem.Name & objItem.MacAddress & ", "
End If
Next
lan3 = Left(lan2, Len(lan2) - 3)
ss=ss&"Network:"& Left(lan3, Len(lan3) - 17) &chr(13)&chr(10)
ss=ss&"MAC address:"& Right(lan3, 17) &chr(13)&chr(10)
'光驱
Set cdrom1 = objWMIService.ExecQuery("Select * from Win32_CDROMDrive")
For Each objItem In cdrom1
cdrom2 = cdrom2 & objItem.Name & ", "
Next
ss=ss&"MAC CD-ROM:"& Left(cdrom2, Len(cdrom2) - 3) &chr(13)&chr(10)
'电脑名
Set computername = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objItem In computername
computername2 = objItem.Name
Next
ss=ss&"Hostname:"& computername2 &chr(13)&chr(10)
'电脑型号
Set computerModel = objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct")
For Each objItem In computerModel
computerModel2 = objItem.vendor & objItem.Name & "(" & objItem.IdentifyingNumber & ")"
Next
ss=ss&"Computer Type:"& computerModel2 &chr(13)&chr(10)
'域及用户名
Set wshNetwork = CreateObject("WScript.Network")
domain2 = "Domain:" & wshNetwork.UserDomain
ss=ss&"Domain&username:"& wshNetwork.userDomain&"\" &wshNetwork.UserName &chr(13)&chr(10)
'操作系统
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objItem In colItems
strOSversion = objItem.Version
Next
Select Case strOSversion
Case "5.2.3790"
system2 = "Windows Server 2003"
Case "5.0.2195"
system2 = "Windows 2000"
Case "5.1.2600"
system2 = "Windows XP"
Case "6.0.6001"
system2 = "windows vista"
Case Else
system2 = "win7"
End Select
ss=ss&"Operation system:"& system2 &chr(13)&chr(10)
msgbox ss