VBS脚本写的Windows硬件检测工具分享

这篇文章主要介绍了VBS脚本写的Windows硬件检测工具分享,本文直接给出脚本源码和运行效果图,需要的朋友可以参考下

1. Const MyName = "Windows硬件检视工具(测试版) --by:Rex.Pack(雷克斯.派)" 
2.  
3. If Not LCase(Replace(WScript.FullName, WScript.Path & "/", "")) = "cscript.exe" Then 
4. Set WS = CreateObject("WScript.Shell") 
5. WS.Run "CMD /c mode con: cols=115 & Color 0A & Title " & MyName & " & CScript //nologo """ & WScript.ScriptFullName & """" 
6. WScript.Quit 
7. End If 
8. '----初始化 
9. Set SD = CreateObject("Scripting.Dictionary") 
10. SD.CompareMode = vbTextCompare 
11. Set S = New BaseStr 
12. Set PC = New BasePC 
13. Set WMI = GetObject("Winmgmts:{impersonationLevel=impersonate}!//./root/cimv2") 
14. CmdArr = Split(" OS CPU Board Memory Video Disk USB CacheMemory NetWork BIOS Sound Battery PortableBattery" & " S1 S2 S3 S4") 
15. With SD 
16. .Add "?", "Call Menu" 
17. .Add "e", "WScript.Quit" 
18. For I = 1 To 17 
19. .Add CStr(I), CmdArr(I) 
20. Next 
21. .Add "a", "1-6" 
22. .Add "b", "7-9" 
23. .Add "c", "10-13" 
24. .Add "d", "14-17" 
25. End With 
26.  
27. Echo MyName 
28.  
29. Call Menu 
30. Call Main 
31.  
32.  
33. '----CO 
34. Sub Menu() 
35. Echo "[设备列表]" 
36. Echo " 常用组 A: 1.OS 2.CPU 3.主板 4.内存 5.显卡 6.硬盘" 
37. Echo " 次级组 B: 7.USB 8.缓存 9.网卡" 
38. Echo " 酱油组 C: 10.BIOS 11.声卡 电池(12.内部 13.便携)" 
39. Echo "[测试CPU]" 
40. Echo " 测试组 D: 14.变量幂次方运算 15.字符叠合 16.加法计算 17.叠加计算" 
41. End Sub 
42.  
43. Sub Main() 
44. Print ">": GetNum = Trim(InPut) 
45. With SD 
46. If .Exists(GetNum) Then 
47. If IsNumeric(GetNum) Then 
48. Echo Eval("PC." & .Item(GetNum)) 
49. Else 
50. ArrLU = Split(.Item(GetNum), "-") 
51. For L = ArrLU(0) To ArrLU(1) 
52. Echo Eval("PC." & .Item(CStr(L))) 
53. Next 
54. End If 
55. Else 
56. Echo "#不支持的命令" 
57. End If 
58. End With 
59.  
60. If Not Err.Number = 0 Then Echo ">X": Err.Clear 
61. Call Main 
62. End Sub 
63.  
64.  
65.  
66. 'DDC 
67. Class BaseStr 
68. Private Strs 
69.  
70. Private Sub Class_Initialize() 
71. Strs = "" 
72. End Sub 
73.  
74. Private Sub Class_Terminate() 
75. Call Cls 
76. End Sub 
77.  
78. Public Sub Cls() 
79. Strs = Empty 
80. End Sub 
81.  
82. Public Property Let I(ByVal Str) 
83. If Left(Str, 1) = "☆" Then Str = Str & String(80, "=") 
84. Strs = Strs & vbCrLf & Str 
85. End Property 
86.  
87. Public Default Property Get I() 
88. I = Strs 
89. Cls 
90. End Property 
91. End Class 
92.  
93. Class BasePC 
94. Private DPS 
95.  
96. Private Sub Class_Initialize() 
97. DPS = 200 
98. End Sub 
99.  
100. Private Sub Class_Terminate() 
101. DPS = Empty 
102. End Sub 
103.  
104. Function S1() 
105. S1 = "变量幂次方运算 " & DPS & "万次用时:" & RT("TestVar = I ^ 2", DPS * 10000) 
106. End Function 
107.  
108. Function S2() 
109. S2 = "字符叠合 " & DPS & "000次用时:" & RT("TestVar = TestVar & vbTab", DPS * 1000) 
110. End Function 
111.  
112. Function S3() 
113. S3 = "加法计算 " & DPS & "万次用时:" & RT("TestVar = 86 + 32", DPS * 10000) 
114. End Function 
115.  
116. Function S4() 
117. S4 = "叠加计算 " & DPS & "万次用时:" & RT("TestVar = TestVar + I", DPS * 10000) 
118. End Function 
119.  
120. Private Function RT(ByVal MathExp, ByVal Num) 
121. Dim NowTimer, NewTimer, TestVar 
122. NowTimer = Timer 
123. For I = 1 To Num 
124. ExeCute MathExp 
125. Next 
126. NewTimer = FormatNumber((Timer - NowTimer) * 1000, 3, True, , False) & "ms" 
127. RT = NewTimer 
128. TestVar = Empty 
129. End Function 
130.  
131. Function BIOS() 
132. On Error Resume Next 
133. S.I = "☆[BIOS]" 
134. S.I = "┏━━━━━━━━━━━━━┉" 
135. For Each TempObj In WMI.InstancesOf("Win32_BIOS") 
136. With TempObj 
137. S.I = "┣厂商 :" & .Manufacturer 
138. S.I = "┇日期 :" & .ReleaseDate 
139. S.I = "┇OEM 版本 :" & .Version 
140. S.I = "┇BIOS 版本 :" & .SMBIOSBIOSVersion 
141. S.I = "┇Major版本 :" & .SMBIOSMajorVersion 
142. S.I = "┇状态 :" & .Status 
143. End With 
144. Next 
145. S.I = "┗━━━━━━━━━━━━━┉" 
146. BIOS = S 
147. End Function 
148.  
149. Function OS() 
150. On Error Resume Next 
151. S.I = "☆[操作系统]" 
152. S.I = "┏━━━━━━━━━━━━━┉" 
153. For Each TempObj in WMI.InstancesOf("Win32_OperatingSystem") 
154. With TempObj 
155. S.I = "┣标签 :" & .Caption 
156. S.I = "┇CSDV :" & .CSDVersion 
157. S.I = "┇版本 :" & .Version 
158. S.I = "┇RAM识别:" & .TotalVisibleMemorySize / 1024 & "MB" 
159. S.I = "┇RAM可用:" & .FreePhysicalMemory / 1024 & "MB" 
160. End With 
161. Next 
162. S.I = "┗━━━━━━━━━━━━━┉" 
163. OS = S 
164. End Function 
165.  
166. Function Board() 
167. On Error Resume Next 
168. S.I = "☆[主板]" 
169. S.I = "┏━━━━━━━━━━━━━┉" 
170. For Each TempObj In WMI.InstancesOf("Win32_BaseBoard") 
171. With TempObj 
172. S.I = "┣标签:" & .Caption 
173. S.I = "┇编号:" & .Product 
174. S.I = "┇序号:" & .SerialNumber  
175. S.I = "┇名称:" & .Name 
176. S.I = "┇版本:" & .Version 
177. S.I = "┇厂商:" & .Manufacturer 
178. S.I = "┇状态:" & .Status 
179. End With 
180. Next 
181. S.I = "┗━━━━━━━━━━━━━┉" 
182. Board = S 
183. End Function 
184.  
185. Function CPU() 
186. On Error Resume Next 
187. S.I = "☆[CPU]" 
188. S.I = "┏━━━━━━━━━━━━━┉" 
189. For Each TempObj In WMI.InstancesOf("Win32_Processor") 
190. With TempObj 
191. MCS = .MaxClockSpeed 
192. CCS = .CurrentClockSpeed 
193. If MCS Mod 2 = 1 Then MCS = CCS + 1 
194. If CCS Mod 2 = 1 Then CCS = CCS + 1 
195. If CCS = MCS Then 
196. Set SRP = GetObject("winmgmts:{impersonationLevel=impersonate}!//./root/default:StdRegProv") 
197. SRP.GetDWORDValue &H80000002, "HARDWARE/DESCRIPTION/System/CentralProcessor/0", "~MHz", OC 
198. Set SRP = Nothing 
199. Else 
200. OC = CCS 
201. End If 
202. If OC Mod 2 = 1 Then OC = OC + 1 
203. FC = OC - MCS 
204. If FC > +10 Then OCLC = "超" 
205. If FC < -10 Then OCLC = "降" 
206. OCLC = OCLC & "频比率:" & FormatPercent(FC / MCS, True, True) 
207.  
208. S.I = "┣CPU 名称:" & Trim(.Name) 
209. S.I = "┇CPU 架构:" & .Description 
210. S.I = "┇制造厂商:" & .Manufacturer 
211. S.I = "┇插口规格:" & .SocketDesignation 
212. S.I = "┇CPU 数量:" & .CpuStatus & " " & String(.CpuStatus, "※") 
213. S.I = "┇核心数量:" & .NumberOfCores & " " & String(.NumberOfCores, "∷") 
214. S.I = "┇线程数量:" & .NumberOfLogicalProcessors & " " & String(.NumberOfLogicalProcessors, "≈") 
215. S.I = "┇地址位宽:" & .AddressWidth & " Bit" 
216. S.I = "┇数据位宽:" & .DataWidth & " Bit" 
217. S.I = "┇CPU 电压:" & .CurrentVoltage / 10 & "V" 
218. S.I = "┇外部频率:" & .ExtClock & " MHz" 
219. S.I = "┇当前频率:" & OC & " MHz, " & OCLC 
220. S.I = "┇原始频率:" & MCS & " MHz" 
221. S.I = "┇CPU占用%:" & .LoadPercentage & "%" 
222. End With 
223. Next 
224. S.I = "┗━━━━━━━━━━━━━┉" 
225. CPU = S 
226. End Function 
227.  
228. Function CacheMemory() 
229. On Error Resume Next 
230. S.I = "☆[缓存内存]" 
231. S.I = "┏━━━━━━━━━━━━━┉" 
232. For Each TempObj In WMI.InstancesOf("Win32_CacheMemory") 
233. With TempObj 
234. If .MaxCacheSize > 0 Then 
235. Select Case .Purpose 
236. Case "L1 Cache" AddStr = "(+DataBit)" 
237. Case Else 
238. End Select 
239. S.I = "┇作用位:" & .Purpose & " ID:" & .DeviceID & ":" & .MaxCacheSize & "KB" & AddStr 
240. AddStr = "" 
241. End If 
242. End With 
243. Next 
244. S.I = "┗━━━━━━━━━━━━━┉" 
245. CacheMemory = S 
246. End Function 
247.  
248. Function Memory() 
249. On Error Resume Next 
250. TempArr = Split("Unknown Other DRAM Synchronous-DRAM Cache-DRAM EDO EDRAM VRAM SRAM RAM ROM Flash EEPROM FEPROM EPROM CDRAM 3DRAM SDRAM SGRAM RDRAM DDR DDR-2") 
251. S.I = "☆[内存]" 
252. S.I = "┏━━━━━━━━━━━━━┉" 
253. For Each TempObj In WMI.InstancesOf("Win32_PhysicalMemory") 
254. With TempObj 
255. S.I = "┣名称/标签:" & .Name & "/" & .Caption 
256. S.I = "┇BL :" & .BankLabel 
257. S.I = "┇槽 :" & .DeviceLocator 
258. S.I = "┇容量 :" & .Capacity / 1048576 & "MB" 
259. S.I = "┇类型 :" & TempArr(.MemoryType) 
260. S.I = "┇速率 :" & .Speed & "MHz" 
261. S.I = "┇制造商 :" & .Manufacturer 
262. S.I = "┇热插拔 :" & IIf(.HotSwappable = True, True, False) 
263. S.I = "┇总位宽 :" & .TotalWidth 
264. S.I = "┇数据位宽 :" & .DataWidth 
265. S.I = "┇部分序号 :" & .PartNumber 
266. End With 
267. Next 
268. S.I = "┗━━━━━━━━━━━━━┉" 
269. Memory = S 
270. End Function 
271.  
272. Function Video() 
273. On Error Resume Next 
274. TempArr1 = Split(" 其他 未知 CGA EGA VGA SVGA MDA HGC MCGA 8514A XGA Linear Frame Buffer" & Space(160 - 14) & "PC-98") 
275. TempArr2 = Split(" 其他 未知 隔行 逐行") 
276. S.I = "☆[显卡]" 
277. S.I = "┏━━━━━━━━━━━━━┉" 
278. For Each TempObj In WMI.InstancesOf("Win32_VideoController") 
279. With TempObj 
280. S.I = "┣接口 :" & TempArr1(.VideoArchitecture) 
281. S.I = "┇名称 :" & .Name 
282. S.I = "┇标签 :" & .Caption 
283. S.I = "┇ID :" & .DeviceID 
284. S.I = "┇GPU :" & .VideoProcessor 
285. S.I = "┇制造商 :" & .AdapterCompatibility 
286. S.I = "┇物理显存 :" & .AdapterRAM / 1048576 & "MB" 
287. S.I = "┇扫描模式 :" & IIf(.CurrentScanMode = False, False, TempArr2(.CurrentScanMode)) 
288. S.I = "┇分辨率 :" & .CurrentHorizontalResolution & " x " & .CurrentVerticalResolution 
289. S.I = "┇色位盘 :" & .CurrentBitsPerPixel & "Bit" 
290. S.I = "┇刷新率 :" & .CurrentRefreshRate & "Hz" & "(" & .MinRefreshRate & "-" & .MaxRefreshRate& ")" 
291. S.I = "┇驱动版本 :" & .DriverVersion 
292. End With 
293. Next 
294. S.I = "┗━━━━━━━━━━━━━┉" 
295. Video = S 
296. End Function 
297.  
298. Function Disk() 
299. On Error Resume Next 
300. S.I = "☆[硬盘]" 
301. For Each TempObj In WMI.InstancesOf("Win32_DiskDrive") 
302. With TempObj 
303. S.I = "┏[磁盘:" & .Index & "]━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┉" 
304. S.I = "┇名称 :" & .Name 
305. S.I = "┇标签 :" & .Caption 
306. S.I = "┇接口 :" & .InterfaceType 
307. S.I = "┇制造商 :" & .Manufacturer 
308. S.I = "┇序号 :" & .SerialNumber 
309. S.I = "┇介质描述:" & .Description & " " & "┇介质类型:" & .MediaType 
310. S.I = "┇柱面数 :" & .TotalCylinders & " " & "┇磁头数 :" & .TotalHeads 
311. S.I = "┇标准容量:" & FormatNumber(.Size / 1000000000, 2, True) & "GB" & " " & "┇实际容量:" & FormatNumber(.Size / 1073741824, 2, True) & "GB" 
312. S.I = "┇分区数量:" & .Partitions 
313. S.I = "┣━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┉" 
314. S.I = "┣[分区]┳━━━┳━━━━━━━┳━━━━━━━━━━━┳━━━━━┉" 
315. S.I = "┇ 索引 ┇主分区┇容量(GB) ┇块(大小x数量) ┇属性" 
316. S.I = "┣━━━╋━━━╋━━━━━━━╋━━━━━━━━━━━╋━━━━━┉" 
317. For Each TempObj0 In WMI.InstancesOf("Win32_DiskPartition") 
318. If .Index = TempObj0.DiskIndex Then 
319. S.I = "┇ " & TempObj0.Index & _ 
320. " ┇" & TempObj0.PrimaryPartition & _ 
321. " ┇" & FormatNumber(TempObj0.Size / 1073741824, 2, True) & "GB" & _ 
322. " ┇" & TempObj0.BlockSize & "x" & TempObj0.NumberOfBlocks & _ 
323. " ┇" & _ 
324. TIf(TempObj0.BootPartition, "引导,") & _ 
325. TIf(TempObj0.HiddenSectors, "隐藏,") & _ 
326. TIf(TempObj0.Bootable, "启动.") 
327. End If 
328. Next 
329. S.I = "┣━━━┻━━━┻━━━━━━━┻━━━━━━━━━━━┻━━━━━┉" 
330. S.I = "┣[扇区]━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┉" 
331. S.I = "┇磁道扇区:" & .SectorsPerTrack 
332. S.I = "┇扇区大小:" & .BytesPerSector 
333. S.I = "┇总扇区数:" & .TotalSectors 
334. S.I = "┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┉" 
335. End With 
336. Next 
337.  
338. TempArr = Split("未知 可移动磁盘 本地磁盘 网络驱动器 光盘 RAM磁盘 ") 
339. S.I = "┏[分区信息]━━━━━━━━━━━━━━━━━━━━━━━━━━━━┉" 
340. For Each TempObj1 In CreateObject("Scripting.FileSystemObject").Drives 
341. With TempObj1 
342. If .IsReady Then 
343. PTS = Int(.FreeSpace / .TotalSize * 100) 
344. S.I = "┇盘符:" & .DriveLetter & " 文件系统:" & .FileSystem & " 类型:" & TempArr(.DriveType) & " 卷标:" & .VolumeName 
345. S.I = "┇" & " 空闲率:" & PTS & "% " & String((100 - PTS) / 5, "■") & String(PTS / 5, "□") 
346. Else 
347. S.I = "┇盘符:" & .DriveLetter & " 磁盘未准备好!" 
348. S.I = "┇" & " 空闲率:0% " & "≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡" 
349. End If 
350. End With 
351. Next 
352. S.I = "┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┉" 
353. Disk = S 
354. End Function 
355.  
356. Function Sound() 
357. On Error Resume Next 
358. S.I = "☆[声卡]" 
359. S.I = "┏━━━━━━━━━━━━━┉" 
360. For Each TempObj In WMI.InstancesOf("Win32_SoundDevice") 
361. With TempObj 
362. S.I = "┣名称/标签:" & .Name & "/" & .Caption 
363. S.I = "┇ID :" & .DeviceID 
364. S.I = "┇制造商 :" & .Manufacturer 
365. End With 
366. Next 
367. S.I = "┗━━━━━━━━━━━━━┉" 
368. Sound = S 
369. End Function 
370.  
371. Function NetWork() 
372. On Error Resume Next 
373. S.I = "☆[网卡]" 
374. S.I = "┏━━━━━━━━━━━━━┉" 
375. For Each TempObj In WMI.ExecQuery("Select * from Win32_NetworkAdapter Where PhysicalAdapter = 'True'") 
376. With TempObj 
377. S.I = "┣[网卡:" & Space(3 - Len(.Index)) & .Index & "]━━━━━━━━┉" 
378. S.I = "┇标签 :" & .Caption 
379. S.I = "┇PNPDID:" & .PNPDeviceID 
380. S.I = "┇制造商:" & .Manufacturer 
381. S.I = "┇速率 :" & IIf(TypeName(.Speed) = "Null", False, .Speed / 10000 & "bps") 
382. S.I = "┇启用 :" & .NetEnabled 
383. S.I = "┇服务名:" & .ServiceName 
384. End With 
385. Next 
386. S.I = "┗━━━━━━━━━━━━━┉" 
387. NetWork = S 
388. End Function 
389.  
390. Function Battery() 
391. On Error Resume Next 
392. TempArr1 = Split(" 放电 交流电 充满 低 临界 充电 充电>高 充电>低 充电>临界 未定义 部分充电") 
393. TempArr2 = Split(" 其他 未知 铅酸 镉镍 镍金属氢化物 锂离子 锌空气 锂聚合物") 
394. S.I = "☆[内部电池]" 
395. S.I = "┏━━━━━━━━━━━━━┉" 
396. For Each TempObj In WMI.InstancesOf("Win32_Battery") 
397. With TempObj 
398. S.I = "┣名称/标签:" & .Name & "/" & .Caption 
399. S.I = "┇ID :" & .DeviceID 
400. S.I = "┇PNPDID :" & .PNPDeviceID 
401. S.I = "┇充电时间 :" & .BatteryRechargeTime 
402. S.I = "┇状态 :" & TempArr1(.BatteryStatus) 
403. S.I = "┇材料 :" & TempArr2(.Chemistry) 
404. End With 
405. Next 
406. S.I = "┗━━━━━━━━━━━━━┉" 
407. Battery = S 
408. End Function 
409.  
410. Function PortableBattery() 
411. On Error Resume Next 
412. TempArr1 = Split(" 其他 未知 充满 低 临界 充电 充电>高 充电>低 充电>临界 未定义 部分充电") 
413. TempArr2 = Split(" 其他 未知 铅酸 镉镍 镍金属氢化物 锂离子 锌空气 锂聚合物") 
414. S.I = "☆[便携电池]" 
415. S.I = "┏━━━━━━━━━━━━━┉" 
416. For Each TempObj In WMI.InstancesOf("Win32_PortableBattery") 
417. With TempObj 
418. S.I = "┣名称/标签:" & .Name & "/" & .Caption 
419. S.I = "┇ID :" & .DeviceID 
420. S.I = "┇PNPDID :" & .PNPDeviceID 
421. S.I = "┇制造商 :" & .Manufacturer 
422. S.I = "┇预计剩余 :" & .EstimatedChargeRemaining 
423. S.I = "┇预计时间 :" & .EstimatedRunTime 
424. S.I = "┇电源管理 :" & .PowerManagementSupported 
425. S.I = "┇位置 :" & .Location 
426. S.I = "┇智能电池 :" & .SmartBatteryVersion 
427. S.I = "┇材料 :" & TempArr2(.Chemistry) 
428. End With 
429. Next 
430. S.I = "┗━━━━━━━━━━━━━┉" 
431. PortableBattery = S 
432. End Function 
433.  
434. Function USB() 
435. On Error Resume Next 
436. S.I = "☆[USB坞]" 
437. S.I = "┏━━━━━━━━━━━━━┉" 
438. For Each TempObj In WMI.InstancesOf("Win32_USBController") 
439. With TempObj 
440. S.I = "┣标签 :" & .Caption 
441. S.I = "┇ID :" & .DeviceID 
442. S.I = "┇PNPDID:" & .PNPDeviceID 
443. S.I = "┇制造商:" & .Manufacturer 
444. End With 
445. Next 
446. S.I = "┗━━━━━━━━━━━━━┉" 
447. USB = S 
448. End Function 
449. End Class 
450.  
451.  
452. '---- 
453.  
454. '输出 
455. Sub Print(ByVal Texts) 
456. WScript.StdOut.Write Texts 
457. End Sub 
458. Sub Echo(ByVal GEOM_TempData) 
459. WScript.Echo GEOM_TempData 
460. End Sub 
461.  
462. '输出:覆盖行,空白长度 
463. Sub PrintC(ByVal Texts, ByVal LenNum) 
464. WScript.StdOut.Write Chr(13) & Texts & String(LenNum, " ") 
465. End Sub 
466.  
467. '输出,+换行 
468. Sub PrintL(ByVal Texts) 
469. WScript.StdOut.WriteLine(Texts) 
470. End Sub 
471.  
472. '输入 
473. Function InPut() 
474. InPut = WScript.StdIn.ReadLine 
475. End Function 
476.  
477. Function IIf(ByVal GEOM_tf, ByVal GEOM_T, ByVal GEOM_F) 
478. If GEOM_tf = True Then IIF = GEOM_T Else IIF = GEOM_F 
479. End Function 
480.  
481. 'iif真 
482. Function TIf(ByVal GEOM_tf, ByVal GEOM_T) 
483. If GEOM_tf = True Then TIF = GEOM_T 
484. End Function 
485.  
486. 'iif假 
487. Function FIf(ByVal GEOM_tf, ByVal GEOM_F) 
488. If GEOM_tf = False Then FIF = GEOM_F 
489. End Function 

运行效果：