Board logo

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

作者: yakeyun    时间: 2021-9-9 20:03     标题: [分享]批处理电脑硬件信息检测工具-带详细信息输出功能-破解版

声明:批处理是修改自大神的作品,出处: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    时间: 2021-9-10 15:27

如果,能不让“GPU-Z”那个界面弹出来,就显得更专业了的!
作者: a20150604    时间: 2021-9-10 17:05

  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.     arr_main_Props = Array("Name", "Manufacturer", "Model", "Capacity", "Size", "Speed", "SerialNumber", "ProcessorId")
  13.     Set oWMISrvEx = GetObject("winmgmts:root/CIMV2")
  14.     For Each k In dic_main.keys
  15.         txt = txt & vbCrLf & String(50, "=") & vbCrLf
  16.         txt = txt & "[" & k & "]" & vbCrLf
  17.         sWQL = "Select * From " & dic_main(k)
  18.         Set oWMIObjSet = oWMISrvEx.ExecQuery(sWQL)
  19.         For Each oWMIObjEx In oWMIObjSet
  20.             txt = txt & String(30, "=") & vbCrLf
  21.             For Each oWMIProp In oWMIObjEx.Properties_
  22.                 If Not IsNull(oWMIProp.Value) Then
  23.                     If IsArray(oWMIProp.Value) Then
  24.                         For n = LBound(oWMIProp.Value) To UBound(oWMIProp.Value)
  25.                             For Each prop In arr_main_Props
  26.                                 If UCase(prop) = UCase(oWMIProp.Name) Then
  27.                                     txt = txt & oWMIProp.Name & "(" & n & ")" & ":" & vbCrLf & Trim(oWMIProp.Value(n)) & vbCrLf
  28.                                 End If
  29.                             Next ' prop
  30.                         Next
  31.                     Else
  32.                         For Each prop In arr_main_Props
  33.                             If UCase(prop) = UCase(oWMIProp.Name) Then
  34.                                 txt = txt & oWMIProp.Name & ":" & vbCrLf & Trim(oWMIProp.Value) & vbCrLf
  35.                             End If
  36.                         Next ' prop
  37.                     End If
  38.                 End If
  39.             Next
  40.         Next
  41.         txt = txt & vbCrLf
  42.     Next ' k
  43.     fpath = "d:\1.txt"
  44.     CreateObject("Scripting.FileSystemObject").CreateTextFile(fpath, True, False).Write (txt)
  45.     MsgBox "done"
  46.     CreateObject("WScript.Shell").Run fpath
  47. End Function ' get_hardware_info
复制代码

作者: a1411774797    时间: 2021-9-14 17:02

这是个大佬
作者: Liudada_bbs    时间: 2022-4-24 14:55

可以精简下嘛,只收集这些
电脑类型、品牌 、型号、年龄 ;
操作系统 处理器品牌、型号;
内存大小、在用个数\插槽个数、品牌、频率、代数 ;
硬盘个数、品牌、型号、容量、转速;
显示器品牌、个数、型号、尺寸 ;
主板品牌、型号;
显卡,是否独显,品牌、型号、显存。
作者: snai1    时间: 2022-5-16 12:55

奇怪的是,你这个在我电脑上不能查看到网卡信息,准确说是到网卡这里就闪退了,但原作可以
作者: huxu823    时间: 2023-8-13 21:58

下载地址失效了,能补一下吗?




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2