VBS获取设备硬件信息

代码没有技术水准，网上搜索有一大堆类似代码，关键是中文描述方式
支持多个硬盘、显卡、内存、声卡、网卡，CPU超频识别
支持cmd调用

1. 'Hardware_Info.vbs v1.1
2. On Error Resume Next
3. Dim WMI,WS,Fso
4. Set WMI = GetObject("Winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
5. Set cOSs = WMI.ExecQuery("Select * from Win32_OperatingSystem")
6. For Each oOS in cOSs
7. OSx = oOS.Caption &" " & oOS.CSDVersion  & vbCrLf
8. Next
9. BBx= "————————————主板信息————————————"  & vbCrLf
10. Set Board = WMI.InstancesOf("Win32_BaseBoard")
11. Set Bios = WMI.InstancesOf("Win32_Bios")
12. For Each oBoard In Board
13. BBx = BBx _
14.     & "主板名称: " & oBoard.Product &vbTab & oBoard.Version & vbCrLf _
15.     & "制造厂商: " & oBoard.Manufacturer                    & vbCrLf
16. Next
17. For Each oBios In Bios
18. BBx = BBx _
19.     & "BIOS厂商: " & oBios.Manufacturer                     & vbCrLf _
20.     & "BIOS日期: " & FormatDateTime(wDate(Trim(oBios.ReleaseDate)),1)  & vbCrLf _
21.     & "BIOS版本: " & oBios.SMBIOSBIOSVersion & vbCrLf _
22.     & "OEM 版本: " & oBios.Version           & vbCrLf
23. Next
24. Set Bios = Nothing:Set Board  = Nothing
25.  
26. CPUx = "———————————处理器信息———————————"  & vbCrLf
27. Set CPUs = WMI.InstancesOf("Win32_Processor")
28. Set Caches = WMI.InstancesOf("Win32_CacheMemory")
29. For Each ObjCPU In CPUs
30. MCS = ObjCPU.MaxClockSpeed :CCS = ObjCPU.CurrentClockSpeed
31. If ObjCPU.MaxClockSpeed Mod 2 = 1 Then MCS = CCS + 1
32. If ObjCPU.CurrentClockSpeed Mod 2 = 1 Then CCS = CCS + 1
33. OC = QOC(CCS,MCS)
34. If (OC-MCS) >  10 and (OC-MCS) > 0 Then OCLC = "  超频比率: " & FormatPercent((OC-MCS)/MCS)
35. If (OC-MCS) < -10 and (OC-MCS) < 0 Then OCLC = "  降频比率: " & FormatPercent((OC-MCS)/MCS)
36. CPUx = CPUx _
37.      & "CPU 名称: " & Trim(ObjCPU.Name)                & vbCrLf _
38.      & "CPU 构架: " & ObjCPU.Description               & vbCrLf _
39.      & "制造厂商: " & ObjCPU.Manufacturer              & vbCrLf _
40.      & "接口规格: " & ObjCPU.SocketDesignation         & vbCrLf _
41.      & "CPU 数量: " & ObjCPU.CpuStatus                 & vbCrLf _
42.      & "核心数量: " & ObjCPU.NumberOfCores             & vbCrLf _
43.      & "线程数量: " & ObjCPU.NumberOfLogicalProcessors & vbCrLf _
44.      & "地址位宽: " & ObjCPU.AddressWidth & " Bit"     & vbCrLf _
45.      & "数据位宽: " & ObjCPU.DataWidth    & " Bit"     & vbCrLf _
46.      & "CPU 电压: " & ObjCPU.CurrentVoltage / 10 & "V" & vbCrLf _
47.      & "外部频率: " & ObjCPU.ExtClock  & " MHz"        & vbCrLf _
48.      & "当前频率: " & OC               & " MHz" & OCLC & vbCrLf _
49.      & "原始频率: " & MCS              & " MHz"        & vbCrLf _
50.      & "CPU 使用: " & ObjCPU.LoadPercentage  & "%"     & vbCrLf
51. Next
52. Function QOC(CCS,MCS)
53.     If CCS = MCS Then
54.         Set wReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
55.         wReg.GetDWORDValue &H80000002,"HARDWARE\DESCRIPTION\System\CentralProcessor\0","~MHz",strValue
56.         OC = strValue :Set wReg = Nothing
57.         Else
58.         OC = CCS
59.     End If
60.     QOC = OC :If QOC Mod 2 = 1 Then QOC = QOC + 1
61. End Function
62. For Each ObjCache In Caches
63.     If objCache.MaxCacheSize > 0  Then
64.         Select Case objCache.Purpose
65.         case "L1-Cache"
66.         CPUx = CPUx & "一级缓存: " & objCache.MaxCacheSize & "KB    (L1数据＋L1缓存)" & vbCrLf
67.         case "L2-Cache"
68.         CPUx = CPUx & "二级缓存: " & objCache.MaxCacheSize & " KB" & vbCrLf
69.         case "L3-Cache"
70.         CPUx = CPUx & "三级缓存: " & objCache.MaxCacheSize & " KB" & vbCrLf
71.         End Select
72.     End If
73. Next
74. Set Caches = Nothing:Set CPUs = Nothing
75.  
76. Memx = "————————————内存信息————————————" & vbCrLf
77. Set Memorys = WMI.InstancesOf("Win32_PhysicalMemory")
78. Set MemKY = WMI.InstancesOf("Win32_OperatingSystem")
79. For Each aKY In MemKY
80.     ZL = aKY.TotalVisibleMemorySize
81.     KY = aKY.FreePhysicalMemory
82. Next
83. Mems = 0:Memc = 0
84. Types = Array("Unknown","Other","DRAM","Synchronous DRAM","Cache DRAM","EDO","EDRAM","VRAM","SRAM", "RAM", _
85.                "ROM","Flash","EEPROM","FEPROM","EPROM","CDRAM","3DRAM","SDRAM","SGRAM","RDRAM","DDR","DDR2")
86. For Each Mem In Memorys
87.     For i = 0 To UBound(Types)
88.         If Mem.MemoryType = i Then MemType = Types(i) :End If
89.     Next
90.     For j = 0 To 6
91.         Select Case Mem.Tag
92.             case "Physical Memory " & j
93.             Mems = Mems+(Mem.Capacity)
94.             Memx = Memx  &"插槽" & Mem.DeviceLocator & ": " & Round(Mem.Capacity/1048576) &" MB  " _
95.                          & MemType & "-" & Mem.Speed & "MHz" & " 数据带宽" & Mem.DataWidth _
96.                          & "Bit" & " 总带宽" & Mem.TotalWidth &"Bit" & vbCrLf
97.         End Select
98.     Next
99. Next
100. Memx = Memx _
101.      & "内存安装: "& Round(Mems/1048576)&" MB " & vbCrLf _
102.      & "内存总量: "& Round(ZL/1024)& " MB" & vbCrLf _
103.      & "内存可用: "& Round(KY/1024)& " MB" & vbCrLf _  
104.      & "内存使用率: " &FormatPercent((ZL-KY)/ZL)& vbCrLf
105. Set Memorys = Nothing:Set MemKY = Nothing
106.  
107. Vx= "————————————显卡信息————————————"  & vbCrLf
108. Set cVID = WMI.ExecQuery("SELECT DeviceID FROM Win32_VideoController")
109. For Each oVID In cVID
110.     Set Video = WMI.ExecQuery("SELECT * FROM Win32_VideoController WHERE DeviceID='"& oVID.DeviceID &"'")
111.     For Each oVideo In Video
112.         Vx = Vx _
113.         & "显卡名称: " & oVideo.Name                                    & vbCrLf _
114.         & "制造厂商: " & oVideo.AdapterCompatibility                    & vbCrLf _
115.         & "物理显存: " & Round(oVideo.AdapterRAM/1048576)&" MB "        & vbCrLf _
116.         & "显示模式: " & oVideo.CurrentHorizontalResolution &" X " _
117.                        & oVideo.CurrentVerticalResolution   &" "_
118.                        & oVideo.CurrentBitsPerPixel         &"Bit " _
119.                        & oVideo.CurrentRefreshRate          &"Hz"     & vbCrLf
120.     Next
121. Next
122. Set Video = Nothing:Set cVID = Nothing
123.  
124. Dx= "————————————硬盘信息————————————"  & vbCrLf
125. Set IDE = WMI.ExecQuery("Select * from Win32_DiskDrive WHERE InterfaceType='IDE'")
126. Set cPPP = WMI.ExecQuery("SELECT * FROM Win32_PerfRawData_PerfDisk_PhysicalDisk")
127. For Each oIDE In IDE
128.     For i = 0 To IDE.Count
129.         Select Case oIDE.Index
130.             Case i
131.                For Each oPPP In cPPP
132.                    If InStr(oPPP.Name, i) Then vName = oPPP.Name
133.                Next
134.                Dx = Dx & "硬盘" & i &"型号:" & oIDE.Caption                   & vbCrLf _
135.                & vbTab & "标称容量: "    & Round(oIDE.Size/1000000000) &" GB" & vbCrLf _
136.                & vbTab & "实际容量: "    & Round(oIDE.Size/1073741824) &" GB" & vbCrLf _
137.                & vbTab & "柱面数: "      & oIDE.TotalCylinders                & vbCrLf _
138.                & vbTab & "磁头数: "      & oIDE.TotalHeads                    & vbCrLf _
139.                & vbTab & "每道扇区数: "  & oIDE.SectorsPerTrack               & vbCrLf _
140.                & vbTab & "扇区大小: "    & oIDE.BytesPerSector                & vbCrLf _
141.                & vbTab & "总扇区数: "    & oIDE.TotalSectors                  & vbCrLf _
142.                & vbTab & "分区状态: "    & vName  & vbCrLf
143.                DevID = Replace(oIDE.DeviceID, "\", "\\")
144.                Set cDP = WMI.ExecQuery("ASSOCIATORS OF {Win32_DiskDrive.DeviceID="""& DevID &"""}" _
145.                & "WHERE AssocClass = Win32_DiskDriveToDiskPartition")
146.                For Each oDP In cDP
147.                  Set cLD = WMI.ExecQuery("ASSOCIATORS OF {Win32_DiskPartition.DeviceID="""& oDP.DeviceID &"""}" _
148.                  & "WHERE AssocClass = Win32_LogicalDiskToPartition")
149.                    For Each oLD In cLD
150.                      Dx = Dx _
151.                         & vbTab & oLD.DeviceID &" " & Left(oLD.VolumeName&"         " ,11) & Left(oLD.FileSystem&"   " ,6) & "共:" _
152.                         & Right("    "&Round(oLD.Size/1073741824,1),6)                &" GB    可用:" _
153.                         & Right("    "&Round(oLD.FreeSpace/1073741824,1),6)           &" GB    已用:" _
154.                         & Right("    "&Round((oLD.Size-oLD.FreeSpace)/1073741824,1),6)&" GB" & vbCrLf
155.                    Next
156.               Next
157.         End Select
158.     Next
159. Next
160. Set cLD = Nothing:Set cDP = Nothing:Set IDE = Nothing:Set cDP = Nothing:Set cPPP =  Nothing
161.  
162. Sx= "————————————声卡信息————————————"  & vbCrLf
163. Set cSD = WMI.ExecQuery("SELECT * FROM Win32_SoundDevice")
164. For Each oSD In cSD
165.     Sx = Sx & "声卡名称: " & oSD.ProductName  & vbCrLf
166. Next
167. Set cSD = Nothing
168. Nx= "————————————网卡信息————————————"  & vbCrLf
169. Set cNet = WMI.ExecQuery("Select * from Win32_NetworkAdapter WHERE PhysicalAdapter ='TRUE'")
170. If CStr(cNet.Count) < 0 Then
171.     Set cNet = WMI.ExecQuery("Select * from Win32_NetworkAdapter WHERE PNPDeviceID Like 'PCI%%' or PNPDeviceID Like 'USB%%'")
172.     For Each oNet In cNet
173.         If oNet.NetConnectionStatus > 0 Then
174.            Nx = Nx & "网卡名称: "& oNet.Name & vbCrLf
175.            Else
176.            Nx = Nx & "网卡名称: "& oNet.Name & vbCrLf
177.         End If
178.     Next
179.     Else
180.     For Each oNet In cNet
181.         If oNet.NetEnabled = TRUE Then
182.            Nx = Nx & "网卡名称: "& oNet.Name & vbTab & "活跃状态" & vbCrLf
183.            Else
184.            Nx = Nx & "网卡名称: "& oNet.Name & vbTab & "空闲状态" & vbCrLf
185.         End If
186.     Next
187. End If
188. Set cNet = Nothing
189.  
190. If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") Then
191.     MsgBox OSx & BBx & CPUx & Memx ,,"Hardware_Info.vbs v1.0 BY: fastslz"
192.     MsgBox Vx & Sx & Nx  ,,"Hardware_Info.vbs v1.0 BY: fastslz"
193.     MsgBox Dx ,, "Hardware_Info.vbs v1.0 BY: fastslz"
194.     MsgN = MsgBox ("是否保存到文件？" , 32+4 , "Hardware_Info.vbs v1.0 BY: fastslz")
195.     If MsgN = 6 Then JZCSx = JZCS :wInfo
196.     Else
197.     WScript.Echo OSx & BBx & CPUx & Memx & Vx & Sx & Nx & Dx
198. End If
199. Set WMI = Nothing
200.  
201. Sub wInfo()
202.     Set WS = CreateObject("WScript.Shell")
203.     Set Fso = CreateObject("Scripting.FileSystemObject")
204.     aFile = WS.CurrentDirectory &"\"& WS.ExpandEnvironmentStrings("%COMPUTERNAME%")&"_Hardware_Info.txt"
205.     Set HInfo = Fso.CreateTextFile(aFile , True)
206.     HInfo.WriteLine "Hardware_Info.vbs BY: fastslz  http://bbs.bathome.net"
207.     HInfo.WriteLine OSx & BBx & CPUx & Memx & Vx & Sx & Nx & Dx & JZCSx
208.     HInfo.Close
209.     WS.Run Chr(34) & aFile & Chr(34)
210. Set WS = Nothing:Set Fso = Nothing:Set HInfo = Nothing
211. End Sub
212.  
213. Function wDate(nD)
214.     If Not IsNull(nD) Then
215.     wDate = CDate(Mid(nD,5,2)&"/"&Mid(nD,7,2)&"/"&Left(nD,4)&" "&Mid(nD,9,2)&":"&Mid(nD,11,2)&":"&Mid(nD,13,2))
216.     End If
217. End Function
218.  
219. Function JZCS()
220.     NumMsg = vbCrLf & "———————————简易CPU基准测试———————————" & vbCrLf
221.     Dim I,T1,T2,Tempvalue,aRunTime,bRunTime
222.     T1 = Timer()
223.     For I = 1 To 2000000
224.         Tempvalue= 2^0.5
225.     Next
226.     T2 = Timer()
227.     aRunTime = FormatNumber((T2-T1)*1000,2)
228.     NumMsg =  NumMsg & "CPU 200万次开方计算所需时间：" &aRunTime&" 毫秒" & vbCrLf
229.     T1 = Timer()
230.     For I = 1 To 6000000
231.         Tempvalue= 1 + 1
232.     Next
233.     T2 = Timer()
234.     bRunTime = FormatNumber((T2-T1)*1000,2)
235.     NumMsg =  NumMsg & "CPU 600万次加法计算所需时间："&bRunTime&" 毫秒" & vbCrLf
236.     JZCS = NumMsg
237. End Function