请教各位高手都是怎么管理公司的电脑的？

feng0

请教各位高手都是怎么管理公司的电脑的？（主要是针对硬件管理）
如电脑的总数，电脑品牌（目前公司的电脑都是品牌机，DELL，HP，ACER，LENOVO），电脑的型号，电脑的配置，以及维护的次数
等。请大家帮我想想办法。怎么才能在短时间完成任务。（因为公司的厂房比较的大。如果一台一台的查太累，且这样的工作太乏味）
（我们的网络环境是novell，没有做域）

feng0

1. '==========================================================================
   
2. '
   
3. ' Date:2009/3/19
   
4. ' Name: 查询软件和硬件列表清单
   
5. ' Comment: blogs.itecn.net/smileruner
   
6. ' Author:Smileruner
   
7. ' www.overmcse.com
   
8. ' 不支持Win2000及WinNT
   
9. '
   
10. ' 3/19,添加了网卡过滤。
    
11. '==========================================================================
    
12. 'on error resume Next
    
13. 
    
14. const HKEY_LOCAL_MACHINE = &H80000002
    
15. const UNINSTALL_ROOT = "Software\Microsoft\Windows\CurrentVersion\Uninstall"
    
16. const REG_SZ = 1
    
17. 
    
18. 'Set wshshell=wscript.createobject("wscript.shell")
    
19. ' wshshell.run ("%comspec% /c regsvr32 /s scrrun.dll"),0,true
    
20. ' wshshell.run ("%comspec% /c sc config winmgmt start= auto"),0,true
    
21. ' wshshell.run ("%comspec% /c net start winmgmt"),0
    
22. 
    
23. strComputer = Inputbox("请输入要查询的计算机名称",,"")
    
24. 
    
25. If strComputer = "" then
    
26. Wscript.Echo "未输入值或用户取消，查询退出。"
    
27. Wscript.Quit
    
28. End If
    
29. 
    
30. Set objswbemlocator = createobject("wbemscripting.swbemlocator")
    
31. Set objswbemservices = objswbemlocator.connectserver(strComputer, "root\cimv2")
    
32. If Err.number <> 0 then
    
33. Wscript.Echo "目标计算机无法连接。错误的计算机名，或目标计算机启用了防火墙，RPC服务不可用。"
    
34. Err.number.clear
    
35. Wscript.Quit
    
36. End If
    
37. 
    
38. 'swbemservices.security_.impersonationleobjvel = 3
    
39. 
    
40. Set fso=createobject("scripting.filesystemobject")
    
41. FileDate = Replace(date(), "/", "-")
    
42. resoultfilepath= strComputer & FileDate & ".html"
    
43. Set resultFile= fso.createtextfile(resoultfilepath,,true)
    
44. 
    
45. HtmlWriteHead()
    
46. 'Html文档开始
    
47. 
    
48. TableHead strComputer,"硬件清单"
    
49. 'Html表格开始
    
50. 
    
51. OsWrite()
    
52. '写入操作系统信息
    
53. BoardWrite()
    
54. '写入主板信息
    
55. CpuWrite()
    
56. '写入CPU信息
    
57. MemoryWrite()
    
58. '写入内存信息
    
59. HarddiskWrite()
    
60. '写入硬盘信息
    
61. CdromWrite()
    
62. '写入CDROM信息
    
63. VideoWrite()
    
64. '写入显示卡信息
    
65. NetcardWrite()
    
66. '写入网卡信息
    
67. TableEnd()
    
68. 'Html表格结尾
    
69. TableHead strComputer,"软件清单"
    
70. 'Html表格开头
    
71. Softlist()
    
72. '写入软件信息
    
73. TableEnd()
    
74. 'Html表格结尾
    
75. HtmlWriteEnd()
    
76. 'Html文档结束
    
77. 
    
78. ResultFile.close
    
79. Wscript.Echo "查询完成！"
    
80. 
    
81. '=========以下是函数列表==========
    
82. 
    
83. 
    
84. Function OsWrite()
    
85. '函数,写入操作系统信息
    
86. Set colOs =objswbemservices.execquery("select * from win32_operatingsystem",,48)
    
87. For Each Ositem In colOs
    
88. oscaption = Ositem.caption
    
89. OsVersion = oscaption & Ositem.version
    
90. WriteTable "操作系统",OsVersion
    
91. Next
    
92. End Function
    
93. 
    
94. 
    
95. Function BoardWrite()
    
96. '函数，写入主板信息
    
97. Set colBoard = objswbemservices.execquery("select * from win32_baseboard")
    
98. For Each Bditem In colBoard
    
99. boardname = Bditem.product
    
100. WriteTable "主板",boardname
     
101. Next
     
102. End Function
     
103. 
     
104. 
     
105. Function CpuWrite()
     
106. '函数，写入CPU信息
     
107. Set colCpu =objswbemservices.execquery("select * from win32_processor")
     
108. For Each item in colCpu
     
109. cpuname = (trim(item.name))
     
110. WriteTable "中央处理器",cpuname
     
111. Next
     
112. End Function
     
113. 
     
114. Function MemoryWrite()
     
115. '函数，写入内存信息
     
116. mtotal = 0
     
117. num = 0
     
118. mill = 0
     
119. Set colMemory = objswbemservices.execquery("select * from win32_physicalmemory",,48)
     
120. For Each objitem In colMemory
     
121. mill = objitem.capacity/1048576
     
122. WriteTable "单根内存容量",mill & "M"
     
123. mtotal = mtotal+mill
     
124. num = num + 1
     
125. Next
     
126. WriteTable "总计内存",num & "条" & "一共" & mtotal & "M"
     
127. End Function
     
128. 
     
129. Function HarddiskWrite()
     
130. '函数，写入硬盘信息
     
131. Set colDisk = objswbemservices.execquery("select * from win32_diskdrive", , 48)
     
132. For Each objitem In colDisk
     
133. diskname= objitem.caption
     
134. disksize= fix(objitem.size/1073741824)
     
135. WriteTable "硬盘",diskname & " 容量：" & disksize & "G"
     
136. Next
     
137. End Function
     
138. 
     
139. 
     
140. 
     
141. Function CdromWrite()
     
142. '函数，写入CDROM信息
     
143. Set colCdrom = objswbemservices.execquery("select * from win32_cdromdrive where scsitargetid=0")
     
144. For Each objitem In colCdrom
     
145. cdname = objitem.name
     
146. WriteTable "光驱",cdname
     
147. Next
     
148. End Function
     
149. 
     
150. Function videoWrite()
     
151. '函数，写入显示卡信息
     
152. Set colVideo = objswbemservices.execquery("select * from win32_videocontroller", , 48)
     
153. For Each objitem in colVideo
     
154. videoname = (trim(objitem.caption) & (objitem.videomodedescription))
     
155. WriteTable "显示卡",videoname
     
156. Next
     
157. End Function
     
158. 
     
159. 
     
160. Function netcardWrite()
     
161. '函数，查询网卡信息
     
162. Set colNetcards = objswbemservices.execquery("select * from win32_networkadapter")
     
163. For Each objNetcard in colNetcards
     
164. If Not IsNull(objNetcard.NetConnectionID) Then
     
165. NetCardName = objNetcard.productname
     
166. WriteTable "网卡名称",NetCardName
     
167. 
     
168. If objNetcard.NetConnectionStatus = 2 Then
     
169. NetCardMac = objNetcard.macaddress
     
170. WriteTable "网卡Mac",NetCardMac
     
171. 
     
172. strQueryIp ="select * from win32_networkadapterconfiguration" &_
     
173. " where IPEnabled = true" &_
     
174. " and macaddress = '" & objNetcard.macaddress & "'"
     
175. Set colNetcardCfgs = objswbemservices.execquery(strQueryIp)
     
176. For Each objNetcardCfg in colNetcardCfgs
     
177. For Each CfgAdrress in objNetcardCfg.IPAddress
     
178. IpAdrress = CfgAdrress
     
179. WriteTable "IP地址",IpAdrress
     
180. Next
     
181. Next
     
182. 
     
183. Else
     
184. 
     
185. NetCardMac = "网卡被禁用或未连接。"
     
186. WriteTable "网卡Mac",NetCardMac
     
187. IpAdrress = "网卡被禁用或未连接。"
     
188. WriteTable "IP地址",IpAdrress
     
189. 
     
190. End If
     
191. 
     
192. End if
     
193. 
     
194. Next
     
195. End Function
     
196. 
     
197. Function softlist()
     
198. '函数，写入软件信息
     
199. Set StdOut = WScript.StdOut
     
200. Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
     
201. strComputer & "\root\default:StdRegProv")
     
202. 
     
203. strKeyPath = UNINSTALL_ROOT
     
204. 
     
205. oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
     
206. 
     
207. For Each strSubKey In arrSubKeys
     
208. If NotHotfix(strSubKey) Then
     
209. SoftNameAndVersion = getProgNameAndVersion(oReg,strKeyPath & "\" & strSubKey)
     
210. If SoftNameAndVersion<>"0" Then
     
211. WriteTable "软件",SoftNameAndVersion
     
212. End If
     
213. End If
     
214. Next
     
215. End Function
     
216. 
     
217. Function NotHotfix(sSubKey)
     
218. If Left(sSubkey,2) = "KB" And len(sSubkey) = 8 Then
     
219. NotHotfix = 0
     
220. Else NotHotfix = 1
     
221. End if
     
222. End Function
     
223. 
     
224. Function getProgNameAndVersion(oReg,sKeyRoot)
     
225. Dim sKeyValuesAry, iKeyTypesAry, nCnt, sValue, sDisplayName, sDisplayVersion
     
226. oReg.EnumValues HKEY_LOCAL_MACHINE, sKeyRoot, sKeyValuesAry, iKeyTypesAry
     
227. If NOT IsArray(sKeyValuesAry) Then
     
228. getProgNameAndVersion = 0
     
229. Exit Function
     
230. End If
     
231. 
     
232. For nCnt = 0 To UBound(sKeyValuesAry)
     
233. If InStr(1, sKeyValuesAry(nCnt), "DisplayName", vbTextCompare) Then
     
234. If iKeyTypesAry(nCnt) = REG_SZ Then
     
235. oReg.GetStringValue HKEY_LOCAL_MACHINE, sKeyRoot, sKeyValuesAry(nCnt), sValue
     
236. If sValue<>"" Then
     
237. sDisplayName = sValue
     
238. sDisplayName = Replace(sDisplayName, "[", "(")
     
239. sDisplayName = Replace(sDisplayName, "]", ")")
     
240. End If
     
241. End If
     
242. ElseIf InStr(1, sKeyValuesAry(nCnt), "DisplayVersion", vbTextCompare) Then
     
243. If iKeyTypesAry(nCnt) = REG_SZ Then
     
244. oReg.GetStringValue HKEY_LOCAL_MACHINE, sKeyRoot, sKeyValuesAry(nCnt), sValue
     
245. If sValue<>"" Then sDisplayVersion = sValue
     
246. End If
     
247. End If
     
248. 
     
249. If (sDisplayName<>"") AND (sDisplayVersion<>"") Then
     
250. getProgNameAndVersion = sDisplayName & " --版本号: " & sDisplayVersion
     
251. Exit Function
     
252. Else getProgNameAndVersion = 0
     
253. End If
     
254. Next
     
255. 
     
256. If sDisplayName<>"" Then
     
257. getProgNameAndVersion = sDisplayName
     
258. Exit Function
     
259. End If
     
260. End Function
     
261. 
     
262. 
     
263. Function WriteTable(caption,value)
     
264. '函数，将数据写入HTML单元格
     
265. resultFile.Writeline "<tr>"
     
266. resultFile.Writeline "<td align=""left"" width=""30%"" height=""25"" bgcolor=""#ffffff"" scope=""row"">  " & caption & "</td>"
     
267. resultFile.Writeline "<td bgcolor=""#ffffff"">  " & value & "</td>"
     
268. resultFile.Writeline "</tr>"
     
269. End Function
     
270. 
     
271. Function HtmlWriteHead()
     
272. '函数，写入THML文件头
     
273. resultFile.Writeline "<html>"
     
274. resultFile.Writeline "<head>"
     
275. resultFile.Writeline "<title>软硬件配置清单</title>"
     
276. resultFile.Writeline "</head>"
     
277. resultFile.Writeline "<body>"
     
278. End Function
     
279. 
     
280. 
     
281. Function HtmlWriteEnd()
     
282. '函数，写入Html文件尾
     
283. resultFile.Writeline "</body>"
     
284. resultFile.Writeline "</html>"
     
285. End Function
     
286. 
     
287. Function TableHead(pcname,str)
     
288. '函数，写入Html表格结尾
     
289. resultFile.Writeline "<h3>" & pcname & str & " -- date:"&now()&" </h3>" & VbCrLf
     
290. resultFile.Writeline "<table width=""90%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" bgcolor=""#0000ff"">"
     
291. resultFile.Writeline "<tr>"
     
292. resultFile.Writeline "<th width=""30%"" height=""25"" bgcolor=""#ffffff"" scope=""col"">资产类型</th>"
     
293. resultFile.Writeline "<th bgcolor=""#ffffff"" scope=""col"">查询结果值</th>"
     
294. resultFile.Writeline "</tr>"
     
295. strstyle = "<th width=""30%"" height=""25"" bgcolor=""#ffffff"" scope=""row"">"
     
296. End Function
     
297. 
     
298. Function TableEnd()
     
299. '函数，Html表格结尾
     
300. resultFile.Writeline "</table>"
     
301. End Function

复制代码

以上是查询计算机硬件信息以及相关软件的。输出的是HTML的

feng0

我的想法是针对我们公司特殊环境使用VBS脚本把信息直接写入数据库里。然后在novell 加入登陆脚本。这样比较省事，可是对如已经录入的电脑以什么条件去判断好咧，不然可能一台电脑可能重复的统计（比如电脑名称改变等。。）？

tdk

兄弟在啊
能否直接下发 某个小软件或者脚本 自动运行
我用卡巴就可以 呵呵

feng0

呵呵.我们用的是officescan.集中管理功能是蛮强的.不过还是实现不了那个功能.

tdk

有没有集中管理的网络版杀毒软件等产品
看看是否可以借用管理功能

typedata

原帖由 feng0 于 2010-3-23 17:40 发表
首先感谢！
工作站主要是win xp 还有几台win 2000
服务器有win 2000 server、win 2003 server 、linux服务器企业版4.5，有sun solaris
novell 6.5
就是没有做域，呵呵。杂吧。
帮我想想办法。

OS够杂的，有点全能的味道哟

feng0

呵呵。我们有用dephi写一个小程序，可以抓取硬件和软件的一部份信息。不过必须要在每台工作站上运行一次才行啊。还是觉得太麻烦了啊。

tdk

大量的windows 写脚本就行
给我钱我也可以帮你写个小程序 呵呵
你搜艘 有类似的东西  
开snmp 也可以  wmi 也可以实现

feng0

首先感谢！
工作站主要是win xp 还有几台win 2000
服务器有win 2000 server、win 2003 server 、linux服务器企业版4.5，有sun solaris
novell 6.5
就是没有做域，呵呵。杂吧。
帮我想想办法。