检测电脑硬件信息并保存文本到当前目录VBS脚本

检测电脑硬件信息并保存文本到当前目录VBS脚本

1. 
   
2. strComputer = "."
   
3. Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
   
4. 
   
5. '主板
   
6. Set board = objWMIService.ExecQuery ("Select * from Win32_BaseBoard")
   
7. For Each objItem in board
   
8.     board2 = board2 & objItem.Product & ",  "
   
9. Next
   
10. board2 = "主板：" & left(board2,len(board2)-3)
    
11. 
    
12. 'BIOS
    
13. 'Set bios = objWMIService.ExecQuery ("Select * from Win32_BIOS")
    
14. 'For Each objItem in bios
    
15. '    bios2 = bios2 & objItem.Name & " (" & objItem.Version & ")" & ",  "
    
16. 'Next
    
17. 'bios2="BIOS：" & left(bios2,len(bios2)-3)
    
18. 
    
19. '处理器
    
20. Set cpu = objWMIService.ExecQuery ("Select * from Win32_Processor")
    
21. For Each objItem in cpu
    
22.     cpu2= cpu2 & objItem.Name & ",  "
    
23. Next
    
24. cpu2="处理器：" & left(cpu2,len(cpu2)-3)
    
25. 
    
26. '内存
    
27. Set memory = objWMIService.ExecQuery ("Select * from Win32_PhysicalMemory")
    
28. num=0
    
29. For Each objItem in memory
    
30.     total=total+ objItem.Capacity/1048576
    
31.     num=num+1
    
32. Next
    
33. memory2="内存：" & total & "M (" & num & ")"
    
34. 
    
35. '硬盘
    
36. Set disk = objWMIService.ExecQuery ("Select * from Win32_DiskDrive")
    
37. For Each objItem in disk
    
38.     disk2=disk2 & objItem.Model & " (" & round(objItem.Size/1000000000) & "G),  "
    
39. Next
    
40. disk2 = "硬盘：" & left(disk2,len(disk2)-3)
    
41. 
    
42. '显卡
    
43. Set video = objWMIService.ExecQuery ("Select * from Win32_VideoController")
    
44. For Each objItem in video
    
45.     video2 =video2 & objItem.Description & ",  "
    
46. Next
    
47. video2="显卡：" & left(video2,len(video2)-3)
    
48. 
    
49. '声卡
    
50. Set sound = objWMIService.ExecQuery ("Select * from Win32_SoundDevice")
    
51. For Each objItem in sound
    
52.     sound2 = sound2 & objItem.Name & ",  "
    
53. Next
    
54. sound2 = "声卡：" & left(sound2,len(sound2)-3)
    
55. 
    
56. 
    
57. '网卡
    
58. Set lan = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapter")
    
59. For Each objItem in lan
    
60.   if left(objItem.NetConnectionID,4)="本地连接" then
    
61.     lan2 = lan2 & objItem.Name & "(MAC：" & objItem.MacAddress & ")" & ",  "
    
62.   end if
    
63. Next
    
64. lan2 = "网卡：" & left(lan2,len(lan2)-3)
    
65. 
    
66. '光驱
    
67. Set cdrom = objWMIService.ExecQuery ("Select * from Win32_CDROMDrive")
    
68. For Each objItem in cdrom
    
69.     cdrom2=cdrom2 & objItem.Name & ",  "
    
70. Next
    
71. cdrom2="光驱：" & left(cdrom2,len(cdrom2)-3)
    
72. 
    
73. '电脑名
    
74. Set computername = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")
    
75. For Each objItem in computername
    
76.     computername2 = objItem.Name
    
77. Next
    
78. 
    
79. '电脑型号
    
80. 'Set computerModel = objWMIService.ExecQuery ("Select * from Win32_ComputerSystemProduct")
    
81. 'For Each objItem in computerModel
    
82. '   computerModel2 = objItem.vendor & objItem.name & "(" & objItem.IdentifyingNumber & ")"
    
83. 'Next
    
84. 'computerModel2 = "电脑型号：" & computerModel2
    
85. 
    
86. 
    
87. '域及用户名
    
88. 'set wshNetwork = WScript.CreateObject("WScript.Network")
    
89. 'domain2 = "域：" & wshNetwork.UserDomain
    
90. 'user2 = "用户名：" & wshNetwork.UserName
    
91. 
    
92. '操作系统
    
93. 'Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2")
    
94. 'Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
    
95. 'For Each objItem in colItems
    
96. '        strOSVersion = objItem.Version
    
97. 'Next
    
98. 'select case strOSversion
    
99. 'case "5.2.3790"
    
100. '   System2 = "操作系统: Windows Server 2003"
     
101. 'case "5.0.2195"
     
102. '     System2 = "操作系统: Windows 2000"
     
103. 'case "5.1.2600"
     
104. 'System2 = "操作系统: Windows XP"
     
105. 'case "6.0.6001"
     
106. '    System2 = "操作系统: windows vista"
     
107. 'case else
     
108. '    System2 = "操作系统: i don't know"
     
109. 'end select
     
110. 
     
111. '建目录
     
112. Set fso = CreateObject("Scripting.FileSystemObject")
     
113. 
     
114. filename= computername2 & ".txt"
     
115. 
     
116. '信息汇总
     
117. out=computerModel2 & vbcrlf & _
     
118.     board2 & vbcrlf & _
     
119.     bios2 & vbcrlf & _
     
120.     cpu2 & vbcrlf & _
     
121.     memory2 & vbcrlf & _
     
122.     disk2 & vbcrlf & _
     
123.     video2 & vbcrlf & _
     
124.     sound2 & vbcrlf & _
     
125.     lan2 & vbcrlf & _
     
126.     cdrom2 & vbcrlf & _
     
127.     domain2 & vbcrlf & _
     
128.     user2 & vbcrlf & _
     
129.     System2
     
130. 
     
131. '写到文件,如要写到多个地方,在下面按格式添加,不要的可以删除或用 ' 注释掉
     
132. '---------写到当前目录
     
133. filename= computername2 & ".txt"
     
134. Set f1 = fso.CreateTextFile(filename)
     
135. f1.WriteLine(out)

复制代码

主板：C.N61G

处理器：AMD Athlon(tm) 64 X2 Dual Core Processor 4000+
内存：3072M (2)
硬盘：Hitachi HDS721616PLA SCSI Disk Device (160G),  ST350041 8AS SCSI Disk Device (500G)
显卡：NVIDIA GeForce 6100 nForce 405 (Microsoft Corporation - WDDM)
声卡：Realtek High Definition Audio
网卡：Realtek RTL8139/810x Family Fast Ethernet NIC(MAC：00:F0:CF:86:F4:65)
光驱：PHILIPS SPD2417T ATA Device

阿木很牛很牛啊

看看脚本，支持阿木

看看学习学习！不知道是用什么方法获取的！谢谢分享！

找了半天，终于有收获了

vbs的代码就先不看了，需要时再看

试试看先谢谢分享

需要时再看

看看，学习才能进步

我的也是老爷机了 下了看看