下面的代碼在windows下容易報毒大家可以放心使用
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
|
'=========================================================================='' Date:2009/3/19' Name: 查詢軟件和硬件列表清單' Author:Smileruner' www.overmcse.com' 不支持Win2000及WinNT'' 3/19,添加了網卡過濾。'=========================================================================='on error resume Nextconst HKEY_LOCAL_MACHINE = &H80000002 const UNINSTALL_ROOT = "Software\Microsoft\Windows\CurrentVersion\Uninstall"const REG_SZ = 1'Set wshshell=wscript.createobject("wscript.shell")' wshshell.run ("%comspec% /c regsvr32 /s scrrun.dll"),0,true' wshshell.run ("%comspec% /c sc config winmgmt start= auto"),0,true' wshshell.run ("%comspec% /c net start winmgmt"),0strComputer = Inputbox("請輸入要查詢的計算機名稱",,"")If strComputer = "" then Wscript.Echo "未輸入值或用戶取消，查詢退出。" Wscript.QuitEnd IfSet objswbemlocator = createobject("wbemscripting.swbemlocator")Set objswbemservices = objswbemlocator.connectserver(strComputer, "root\cimv2")If Err.number <> 0 then Wscript.Echo "目標計算機無法連接。錯誤的計算機名，或目標計算機啟用了防火墻，RPC服務不可用。" Err.number.clear Wscript.QuitEnd If'swbemservices.security_.impersonationleobjvel = 3Set fso=createobject("scripting.filesystemobject")FileDate = Replace(date(), "/", "-")resoultfilepath= strComputer & FileDate & ".html"Set resultFile= fso.createtextfile(resoultfilepath,,true)HtmlWriteHead()'Html文檔開始TableHead strComputer,"硬件清單"'Html表格開始OsWrite() '寫入操作系統信息BoardWrite() '寫入主板信息CpuWrite() '寫入CPU信息MemoryWrite() '寫入內存信息HarddiskWrite() '寫入硬盤信息CdromWrite() '寫入CDROM信息VideoWrite() '寫入顯示卡信息NetcardWrite() '寫入網卡信息TableEnd() 'Html表格結尾TableHead strComputer,"軟件清單" 'Html表格開頭Softlist() '寫入軟件信息TableEnd() 'Html表格結尾HtmlWriteEnd() 'Html文檔結束ResultFile.close Wscript.Echo "查詢完成！"'=========以下是函數列表==========Function OsWrite() '函數,寫入操作系統信息 Set colOs =objswbemservices.execquery("select * from win32_operatingsystem",,48) For Each Ositem In colOs oscaption = Ositem.caption OsVersion = oscaption & Ositem.version WriteTable "操作系統",OsVersion NextEnd FunctionFunction BoardWrite() '函數，寫入主板信息 Set colBoard = objswbemservices.execquery("select * from win32_baseboard") For Each Bditem In colBoard boardname = Bditem.product WriteTable "主板",boardname NextEnd FunctionFunction CpuWrite() '函數，寫入CPU信息 Set colCpu =objswbemservices.execquery("select * from win32_processor") For Each item in colCpu cpuname = (trim(item.name)) WriteTable "中央處理器",cpuname NextEnd FunctionFunction MemoryWrite() '函數，寫入內存信息mtotal = 0num = 0mill = 0 Set colMemory = objswbemservices.execquery("select * from win32_physicalmemory",,48) For Each objitem In colMemory mill = objitem.capacity/1048576 WriteTable "單根內存容量",mill & "M" mtotal = mtotal+mill num = num + 1 Next WriteTable "總計內存",num & "條" & "一共" & mtotal & "M"End FunctionFunction HarddiskWrite() '函數，寫入硬盤信息 Set colDisk = objswbemservices.execquery("select * from win32_diskdrive", , 48) For Each objitem In colDisk diskname= objitem.caption disksize= fix(objitem.size/1073741824) WriteTable "硬盤",diskname & " 容量：" & disksize & "G" NextEnd FunctionFunction CdromWrite() '函數，寫入CDROM信息 Set colCdrom = objswbemservices.execquery("select * from win32_cdromdrive where scsitargetid=0") For Each objitem In colCdrom cdname = objitem.name WriteTable "光驅",cdname NextEnd FunctionFunction videoWrite() '函數，寫入顯示卡信息 Set colVideo = objswbemservices.execquery("select * from win32_videocontroller", , 48) For Each objitem in colVideo videoname = (trim(objitem.caption) & (objitem.videomodedescription)) WriteTable "顯示卡",videoname NextEnd FunctionFunction netcardWrite() '函數，查詢網卡信息 Set colNetcards = objswbemservices.execquery("select * from win32_networkadapter") For Each objNetcard in colNetcards If Not IsNull(objNetcard.NetConnectionID) Then NetCardName = objNetcard.productname WriteTable "網卡名稱",NetCardName If objNetcard.NetConnectionStatus = 2 Then NetCardMac = objNetcard.macaddress WriteTable "網卡Mac",NetCardMac strQueryIp ="select * from win32_networkadapterconfiguration" &_ " where IPEnabled = true" &_ " and macaddress = '" & objNetcard.macaddress & "'" Set colNetcardCfgs = objswbemservices.execquery(strQueryIp) For Each objNetcardCfg in colNetcardCfgs For Each CfgAdrress in objNetcardCfg.IPAddress IpAdrress = CfgAdrress WriteTable "IP地址",IpAdrress Next Next Else NetCardMac = "網卡被禁用或未連接。" WriteTable "網卡Mac",NetCardMac IpAdrress = "網卡被禁用或未連接。" WriteTable "IP地址",IpAdrress End If End if NextEnd FunctionFunction softlist() '函數，寫入軟件信息Set StdOut = WScript.StdOut Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ strComputer & "\root\default:StdRegProv") strKeyPath = UNINSTALL_ROOT oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys For Each strSubKey In arrSubKeys If NotHotfix(strSubKey) Then SoftNameAndVersion = getProgNameAndVersion(oReg,strKeyPath & "\" & strSubKey) If SoftNameAndVersion<>"0" Then WriteTable "軟件",SoftNameAndVersion End If End IfNext End FunctionFunction NotHotfix(sSubKey) If Left(sSubkey,2) = "KB" And len(sSubkey) = 8 Then NotHotfix = 0 Else NotHotfix = 1 End ifEnd FunctionFunction getProgNameAndVersion(oReg,sKeyRoot)Dim sKeyValuesAry, iKeyTypesAry, nCnt, sValue, sDisplayName, sDisplayVersionoReg.EnumValues HKEY_LOCAL_MACHINE, sKeyRoot, sKeyValuesAry, iKeyTypesAry If NOT IsArray(sKeyValuesAry) Then getProgNameAndVersion = 0 Exit Function End If For nCnt = 0 To UBound(sKeyValuesAry) If InStr(1, sKeyValuesAry(nCnt), "DisplayName", vbTextCompare) Then If iKeyTypesAry(nCnt) = REG_SZ Then oReg.GetStringValue HKEY_LOCAL_MACHINE, sKeyRoot, sKeyValuesAry(nCnt), sValue If sValue<>"" Then sDisplayName = sValue sDisplayName = Replace(sDisplayName, "[", "(") sDisplayName = Replace(sDisplayName, "]", ")") End If End If ElseIf InStr(1, sKeyValuesAry(nCnt), "DisplayVersion", vbTextCompare) Then If iKeyTypesAry(nCnt) = REG_SZ Then oReg.GetStringValue HKEY_LOCAL_MACHINE, sKeyRoot, sKeyValuesAry(nCnt), sValue If sValue<>"" Then sDisplayVersion = sValue End If End If If (sDisplayName<>"") AND (sDisplayVersion<>"") Then getProgNameAndVersion = sDisplayName & " --版本號: " & sDisplayVersion Exit Function Else getProgNameAndVersion = 0 End If Next If sDisplayName<>"" Then getProgNameAndVersion = sDisplayName Exit Function End IfEnd FunctionFunction WriteTable(caption,value) '函數，將數據寫入HTML單元格resultFile.Writeline "<tr>"resultFile.Writeline "<td align=""left"" width=""30%"" height=""25"" bgcolor=""#ffffff"" scope=""row""> " & caption & "</td>"resultFile.Writeline "<td bgcolor=""#ffffff""> " & value & "</td>"resultFile.Writeline "</tr>"End FunctionFunction HtmlWriteHead() '函數，寫入THML文件頭resultFile.Writeline "<html>"resultFile.Writeline "<head>"resultFile.Writeline "<title>軟硬件配置清單</title>"resultFile.Writeline "</head>"resultFile.Writeline "<body>"End FunctionFunction HtmlWriteEnd() '函數，寫入Html文件尾resultFile.Writeline "</body>"resultFile.Writeline "</html>"End FunctionFunction TableHead(pcname,str) '函數，寫入Html表格結尾resultFile.Writeline "<h3>" & pcname & str & " -- date:"&now()&" </h3>" & VbCrLfresultFile.Writeline "<table width=""90%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" bgcolor=""#0000ff"">"resultFile.Writeline "<tr>"resultFile.Writeline "<th width=""30%"" height=""25"" bgcolor=""#ffffff"" scope=""col"">資產類型</th>"resultFile.Writeline "<th bgcolor=""#ffffff"" scope=""col"">查詢結果值</th>"resultFile.Writeline "</tr>"strstyle = "<th width=""30%"" height=""25"" bgcolor=""#ffffff"" scope=""row"">"End FunctionFunction TableEnd() '函數，Html表格結尾resultFile.Writeline "</table>"End Function |
vbs判斷操作系統
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
strComputer = "."Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")For Each objItem in colItemsstrOSVersion = objItem.VersionNextwscript.echo strOSversionselect case strOSversioncase "5.2.3790"wscript.echo "Windows Server 2003"case "5.0.2195"wscript.echo "Windows 2000"case "5.1.2600"wscript.echo "Windows XP"case "6.0.6001"wscript.echo "windows visita"Case "6.1.7601"wscript.echo "Windows Server 2008 r2"case elsewscript.echo "i don't know"end select |
到此這篇關于vbs查詢局域網內電腦的軟件和硬件列表清單的文章就介紹到這了,更多相關查詢軟件和硬件列表清單內容請搜索服務器之家以前的文章或繼續瀏覽下面的相關文章希望大家以后多多支持服務器之家！
