邮件服务器-邮件系统-邮件技术论坛(BBS)

标题: 请教各位高手都是怎么管理公司的电脑的? [打印本页]

作者: feng0    时间: 2010-3-22 19:44
标题: 请教各位高手都是怎么管理公司的电脑的?
请教各位高手都是怎么管理公司的电脑的?(主要是针对硬件管理)
如电脑的总数,电脑品牌(目前公司的电脑都是品牌机,DELL,HP,ACER,LENOVO),电脑的型号,电脑的配置,以及维护的次数
等。请大家帮我想想办法。怎么才能在短时间完成任务。(因为公司的厂房比较的大。如果一台一台的查太累,且这样的工作太乏味)
(我们的网络环境是novell,没有做域)
作者: tdk    时间: 2010-3-22 20:45
上资产管理软件试试看
或者自己写一些脚本在每台机器上运行并保存文件 统计
或写一个简单的客户端
作者: tdk    时间: 2010-3-22 20:46
你们公司工作站和服务器 都什么系统
各占站多大比例
作者: feng0    时间: 2010-3-23 17:40
标题: 回复 3楼 tdk 的帖子
首先感谢!
工作站主要是win xp 还有几台win 2000
服务器有win 2000 server、win 2003 server 、linux服务器企业版4.5,有sun solaris
novell 6.5
就是没有做域,呵呵。杂吧。
帮我想想办法。
作者: tdk    时间: 2010-3-23 20:00
大量的windows 写脚本就行
给我钱我也可以帮你写个小程序 呵呵
你搜艘 有类似的东西  
开snmp 也可以  wmi 也可以实现
作者: feng0    时间: 2010-3-24 21:09
标题: 回复 5楼 tdk 的帖子
呵呵。我们有用dephi写一个小程序,可以抓取硬件和软件的一部份信息。不过必须要在每台工作站上运行一次才行啊。还是觉得太麻烦了啊。
作者: typedata    时间: 2010-3-26 19:45
原帖由 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够杂的,有点全能的味道哟
作者: tdk    时间: 2010-3-26 22:25
标题: 回复 6楼 feng0 的帖子
有没有集中管理的网络版杀毒软件等产品
看看是否可以借用管理功能
作者: feng0    时间: 2010-3-26 22:35
标题: 回复 8楼 tdk 的帖子
呵呵.我们用的是officescan.集中管理功能是蛮强的.不过还是实现不了那个功能.
作者: tdk    时间: 2010-3-26 22:37
标题: 回复 9楼 feng0 的帖子
兄弟在啊
能否直接下发 某个小软件或者脚本 自动运行
我用卡巴就可以 呵呵
作者: feng0    时间: 2010-4-18 16:44
标题: 回复 10楼 tdk 的帖子
我的想法是针对我们公司特殊环境使用VBS脚本把信息直接写入数据库里。然后在novell 加入登陆脚本。这样比较省事,可是对如已经录入的电脑以什么条件去判断好咧,不然可能一台电脑可能重复的统计(比如电脑名称改变等。。)?
作者: feng0    时间: 2010-4-18 17:31
  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. const HKEY_LOCAL_MACHINE = &H80000002
  14. const UNINSTALL_ROOT = "Software\Microsoft\Windows\CurrentVersion\Uninstall"
  15. const REG_SZ = 1

  16. 'Set wshshell=wscript.createobject("wscript.shell")
  17. ' wshshell.run ("%comspec% /c regsvr32 /s scrrun.dll"),0,true
  18. ' wshshell.run ("%comspec% /c sc config winmgmt start= auto"),0,true
  19. ' wshshell.run ("%comspec% /c net start winmgmt"),0

  20. strComputer = Inputbox("请输入要查询的计算机名称",,"")

  21. If strComputer = "" then
  22. Wscript.Echo "未输入值或用户取消,查询退出。"
  23. Wscript.Quit
  24. End If

  25. Set objswbemlocator = createobject("wbemscripting.swbemlocator")
  26. Set objswbemservices = objswbemlocator.connectserver(strComputer, "root\cimv2")
  27. If Err.number <> 0 then
  28. Wscript.Echo "目标计算机无法连接。错误的计算机名,或目标计算机启用了防火墙,RPC服务不可用。"
  29. Err.number.clear
  30. Wscript.Quit
  31. End If

  32. 'swbemservices.security_.impersonationleobjvel = 3

  33. Set fso=createobject("scripting.filesystemobject")
  34. FileDate = Replace(date(), "/", "-")
  35. resoultfilepath= strComputer & FileDate & ".html"
  36. Set resultFile= fso.createtextfile(resoultfilepath,,true)

  37. HtmlWriteHead()
  38. 'Html文档开始

  39. TableHead strComputer,"硬件清单"
  40. 'Html表格开始

  41. OsWrite()
  42. '写入操作系统信息
  43. BoardWrite()
  44. '写入主板信息
  45. CpuWrite()
  46. '写入CPU信息
  47. MemoryWrite()
  48. '写入内存信息
  49. HarddiskWrite()
  50. '写入硬盘信息
  51. CdromWrite()
  52. '写入CDROM信息
  53. VideoWrite()
  54. '写入显示卡信息
  55. NetcardWrite()
  56. '写入网卡信息
  57. TableEnd()
  58. 'Html表格结尾
  59. TableHead strComputer,"软件清单"
  60. 'Html表格开头
  61. Softlist()
  62. '写入软件信息
  63. TableEnd()
  64. 'Html表格结尾
  65. HtmlWriteEnd()
  66. 'Html文档结束

  67. ResultFile.close
  68. Wscript.Echo "查询完成!"

  69. '=========以下是函数列表==========


  70. Function OsWrite()
  71. '函数,写入操作系统信息
  72. Set colOs =objswbemservices.execquery("select * from win32_operatingsystem",,48)
  73. For Each Ositem In colOs
  74. oscaption = Ositem.caption
  75. OsVersion = oscaption & Ositem.version
  76. WriteTable "操作系统",OsVersion
  77. Next
  78. End Function


  79. Function BoardWrite()
  80. '函数,写入主板信息
  81. Set colBoard = objswbemservices.execquery("select * from win32_baseboard")
  82. For Each Bditem In colBoard
  83. boardname = Bditem.product
  84. WriteTable "主板",boardname
  85. Next
  86. End Function


  87. Function CpuWrite()
  88. '函数,写入CPU信息
  89. Set colCpu =objswbemservices.execquery("select * from win32_processor")
  90. For Each item in colCpu
  91. cpuname = (trim(item.name))
  92. WriteTable "中央处理器",cpuname
  93. Next
  94. End Function

  95. Function MemoryWrite()
  96. '函数,写入内存信息
  97. mtotal = 0
  98. num = 0
  99. mill = 0
  100. Set colMemory = objswbemservices.execquery("select * from win32_physicalmemory",,48)
  101. For Each objitem In colMemory
  102. mill = objitem.capacity/1048576
  103. WriteTable "单根内存容量",mill & "M"
  104. mtotal = mtotal+mill
  105. num = num + 1
  106. Next
  107. WriteTable "总计内存",num & "条" & "一共" & mtotal & "M"
  108. End Function

  109. Function HarddiskWrite()
  110. '函数,写入硬盘信息
  111. Set colDisk = objswbemservices.execquery("select * from win32_diskdrive", , 48)
  112. For Each objitem In colDisk
  113. diskname= objitem.caption
  114. disksize= fix(objitem.size/1073741824)
  115. WriteTable "硬盘",diskname & " 容量:" & disksize & "G"
  116. Next
  117. End Function



  118. Function CdromWrite()
  119. '函数,写入CDROM信息
  120. Set colCdrom = objswbemservices.execquery("select * from win32_cdromdrive where scsitargetid=0")
  121. For Each objitem In colCdrom
  122. cdname = objitem.name
  123. WriteTable "光驱",cdname
  124. Next
  125. End Function

  126. Function videoWrite()
  127. '函数,写入显示卡信息
  128. Set colVideo = objswbemservices.execquery("select * from win32_videocontroller", , 48)
  129. For Each objitem in colVideo
  130. videoname = (trim(objitem.caption) & (objitem.videomodedescription))
  131. WriteTable "显示卡",videoname
  132. Next
  133. End Function


  134. Function netcardWrite()
  135. '函数,查询网卡信息
  136. Set colNetcards = objswbemservices.execquery("select * from win32_networkadapter")
  137. For Each objNetcard in colNetcards
  138. If Not IsNull(objNetcard.NetConnectionID) Then
  139. NetCardName = objNetcard.productname
  140. WriteTable "网卡名称",NetCardName

  141. If objNetcard.NetConnectionStatus = 2 Then
  142. NetCardMac = objNetcard.macaddress
  143. WriteTable "网卡Mac",NetCardMac

  144. strQueryIp ="select * from win32_networkadapterconfiguration" &_
  145. " where IPEnabled = true" &_
  146. " and macaddress = '" & objNetcard.macaddress & "'"
  147. Set colNetcardCfgs = objswbemservices.execquery(strQueryIp)
  148. For Each objNetcardCfg in colNetcardCfgs
  149. For Each CfgAdrress in objNetcardCfg.IPAddress
  150. IpAdrress = CfgAdrress
  151. WriteTable "IP地址",IpAdrress
  152. Next
  153. Next

  154. Else

  155. NetCardMac = "网卡被禁用或未连接。"
  156. WriteTable "网卡Mac",NetCardMac
  157. IpAdrress = "网卡被禁用或未连接。"
  158. WriteTable "IP地址",IpAdrress

  159. End If

  160. End if

  161. Next
  162. End Function

  163. Function softlist()
  164. '函数,写入软件信息
  165. Set StdOut = WScript.StdOut
  166. Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
  167. strComputer & "\root\default:StdRegProv")

  168. strKeyPath = UNINSTALL_ROOT

  169. oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

  170. For Each strSubKey In arrSubKeys
  171. If NotHotfix(strSubKey) Then
  172. SoftNameAndVersion = getProgNameAndVersion(oReg,strKeyPath & "\" & strSubKey)
  173. If SoftNameAndVersion<>"0" Then
  174. WriteTable "软件",SoftNameAndVersion
  175. End If
  176. End If
  177. Next
  178. End Function

  179. Function NotHotfix(sSubKey)
  180. If Left(sSubkey,2) = "KB" And len(sSubkey) = 8 Then
  181. NotHotfix = 0
  182. Else NotHotfix = 1
  183. End if
  184. End Function

  185. Function getProgNameAndVersion(oReg,sKeyRoot)
  186. Dim sKeyValuesAry, iKeyTypesAry, nCnt, sValue, sDisplayName, sDisplayVersion
  187. oReg.EnumValues HKEY_LOCAL_MACHINE, sKeyRoot, sKeyValuesAry, iKeyTypesAry
  188. If NOT IsArray(sKeyValuesAry) Then
  189. getProgNameAndVersion = 0
  190. Exit Function
  191. End If

  192. For nCnt = 0 To UBound(sKeyValuesAry)
  193. If InStr(1, sKeyValuesAry(nCnt), "DisplayName", vbTextCompare) Then
  194. If iKeyTypesAry(nCnt) = REG_SZ Then
  195. oReg.GetStringValue HKEY_LOCAL_MACHINE, sKeyRoot, sKeyValuesAry(nCnt), sValue
  196. If sValue<>"" Then
  197. sDisplayName = sValue
  198. sDisplayName = Replace(sDisplayName, "[", "(")
  199. sDisplayName = Replace(sDisplayName, "]", ")")
  200. End If
  201. End If
  202. ElseIf InStr(1, sKeyValuesAry(nCnt), "DisplayVersion", vbTextCompare) Then
  203. If iKeyTypesAry(nCnt) = REG_SZ Then
  204. oReg.GetStringValue HKEY_LOCAL_MACHINE, sKeyRoot, sKeyValuesAry(nCnt), sValue
  205. If sValue<>"" Then sDisplayVersion = sValue
  206. End If
  207. End If

  208. If (sDisplayName<>"") AND (sDisplayVersion<>"") Then
  209. getProgNameAndVersion = sDisplayName & " --版本号: " & sDisplayVersion
  210. Exit Function
  211. Else getProgNameAndVersion = 0
  212. End If
  213. Next

  214. If sDisplayName<>"" Then
  215. getProgNameAndVersion = sDisplayName
  216. Exit Function
  217. End If
  218. End Function


  219. Function WriteTable(caption,value)
  220. '函数,将数据写入HTML单元格
  221. resultFile.Writeline "<tr>"
  222. resultFile.Writeline "<td align=""left"" width=""30%"" height=""25"" bgcolor=""#ffffff"" scope=""row"">  " & caption & "</td>"
  223. resultFile.Writeline "<td bgcolor=""#ffffff"">  " & value & "</td>"
  224. resultFile.Writeline "</tr>"
  225. End Function

  226. Function HtmlWriteHead()
  227. '函数,写入THML文件头
  228. resultFile.Writeline "<html>"
  229. resultFile.Writeline "<head>"
  230. resultFile.Writeline "<title>软硬件配置清单</title>"
  231. resultFile.Writeline "</head>"
  232. resultFile.Writeline "<body>"
  233. End Function


  234. Function HtmlWriteEnd()
  235. '函数,写入Html文件尾
  236. resultFile.Writeline "</body>"
  237. resultFile.Writeline "</html>"
  238. End Function

  239. Function TableHead(pcname,str)
  240. '函数,写入Html表格结尾
  241. resultFile.Writeline "<h3>" & pcname & str & " -- date:"&now()&" </h3>" & VbCrLf
  242. resultFile.Writeline "<table width=""90%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" bgcolor=""#0000ff"">"
  243. resultFile.Writeline "<tr>"
  244. resultFile.Writeline "<th width=""30%"" height=""25"" bgcolor=""#ffffff"" scope=""col"">资产类型</th>"
  245. resultFile.Writeline "<th bgcolor=""#ffffff"" scope=""col"">查询结果值</th>"
  246. resultFile.Writeline "</tr>"
  247. strstyle = "<th width=""30%"" height=""25"" bgcolor=""#ffffff"" scope=""row"">"
  248. End Function

  249. Function TableEnd()
  250. '函数,Html表格结尾
  251. resultFile.Writeline "</table>"
  252. End Function
复制代码

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




欢迎光临 邮件服务器-邮件系统-邮件技术论坛(BBS) (http://5dmail.cn/BBS/) Powered by Discuz! X3.2