[分享]批处理电脑硬件信息检测工具-带详细信息输出功能-破解版

yakeyun

声明：批处理是修改自大神的作品，出处：http://www.bathome.net/thread-38259-1-1.html
由于原作者加了许多加密信息，如果随意修改会闪退。多或少一个字符，或者行数不对，就会闪退。
经过几个小时的摸索，终于实现修改，并完善了显卡信息显示功能。
由于显卡信息是基于GPU-Z，所以基本上独显(A卡，N卡)和核显（intel,ATI）都能完美读取出厂商信息，同时加入显卡序列号，显卡DDR以及显存颗粒以及显卡ID等信息的输出。






下载地址：https://sanli.lanzoui.com/iHPmktt1mne   密码:booc
硬件信息-修改破解版.bat   为修改后的版本
硬件信息.bat                  为原作者文件，有需要尝试破解的，可以了解一下，基本读懂代码将会受益匪浅。

locoman

如果，能不让“GPU-Z”那个界面弹出来，就显得更专业了的！

a20150604

1. call get_hardware_info
   
2. Function get_hardware_info()
   
3.     txt = ""
   
4.     Set dic_main = CreateObject("Scripting.Dictionary")
   
5.     dic_main.Add "磁盘", "Win32_DiskDrive"
   
6.     dic_main.Add "主板", "Win32_BaseBoard"
   
7.     dic_main.Add "内存", "Win32_PhysicalMemory"
   
8.     dic_main.Add "处理器", "Win32_Processor"
   
9.     dic_main.Add "显卡", "Win32_VideoController"
   
10.     dic_main.Add "声卡", "Win32_SoundDevice"
    
11.     dic_main.Add "网卡", "Win32_NetworkAdapter"
    
12. 
    
13.     arr_main_Props = Array("Name", "Manufacturer", "Model", "Capacity", "Size", "Speed", "SerialNumber", "ProcessorId")
    
14. 
    
15.     Set oWMISrvEx = GetObject("winmgmts:root/CIMV2")
    
16.     For Each k In dic_main.keys
    
17.         txt = txt & vbCrLf & String(50, "=") & vbCrLf
    
18.         txt = txt & "[" & k & "]" & vbCrLf
    
19.         sWQL = "Select * From " & dic_main(k)
    
20.         Set oWMIObjSet = oWMISrvEx.ExecQuery(sWQL)
    
21.         For Each oWMIObjEx In oWMIObjSet
    
22.             txt = txt & String(30, "=") & vbCrLf
    
23.             For Each oWMIProp In oWMIObjEx.Properties_
    
24.                 If Not IsNull(oWMIProp.Value) Then
    
25.                     If IsArray(oWMIProp.Value) Then
    
26.                         For n = LBound(oWMIProp.Value) To UBound(oWMIProp.Value)
    
27.                             For Each prop In arr_main_Props
    
28.                                 If UCase(prop) = UCase(oWMIProp.Name) Then
    
29.                                     txt = txt & oWMIProp.Name & "(" & n & ")" & ":" & vbCrLf & Trim(oWMIProp.Value(n)) & vbCrLf
    
30.                                 End If
    
31.                             Next ' prop
    
32.                         Next
    
33.                     Else
    
34.                         For Each prop In arr_main_Props
    
35.                             If UCase(prop) = UCase(oWMIProp.Name) Then
    
36.                                 txt = txt & oWMIProp.Name & ":" & vbCrLf & Trim(oWMIProp.Value) & vbCrLf
    
37.                             End If
    
38.                         Next ' prop
    
39.                     End If
    
40.                 End If
    
41.             Next
    
42.         Next
    
43.         txt = txt & vbCrLf
    
44.     Next ' k
    
45.     fpath = "d:\1.txt"
    
46.     CreateObject("Scripting.FileSystemObject").CreateTextFile(fpath, True, False).Write (txt)
    
47.     MsgBox "done"
    
48.     CreateObject("WScript.Shell").Run fpath
    
49. End Function ' get_hardware_info
    
50. 
    

复制代码

a1411774797

这是个大佬

Liudada_bbs

可以精简下嘛，只收集这些
电脑类型、品牌 、型号、年龄 ；
操作系统 处理器品牌、型号；
内存大小、在用个数\插槽个数、品牌、频率、代数 ；
硬盘个数、品牌、型号、容量、转速；
显示器品牌、个数、型号、尺寸 ；
主板品牌、型号；
显卡，是否独显，品牌、型号、显存。

snai1

奇怪的是，你这个在我电脑上不能查看到网卡信息，准确说是到网卡这里就闪退了，但原作可以

huxu823

下载地址失效了，能补一下吗？