批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

CPU监控日志生成工具(VBS+WMI制作)

CPU监控日志生成工具(VBS+WMI制作)

VBS+WMI制作的CPU监控日志(html格式)生成工具,方便Web方式查看远程服务器CPU使用率的记录。

  1. ‘实例化对象
  2. Set WS = CreateObject(”Wscript.Shell”)
  3. Set fso = CreateObject(”Scripting.FileSystemObject”)
  4. ‘获取VBS脚本当前工作目录
  5. apppath=left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName))
  6. ‘设置脚本自身开机自启
  7. WS.Regwrite “HKLM\Software\Microsoft\Windows\CurrentVersion\Run\CPUmoniter”,Wscript.ScriptFullName
  8. strComputer = “.”
  9. Set objWMIService = GetObject(”winmgmts:\\” & strComputer & “\root\CIMV2″)  ‘实例化WMI的CIMV2命名空间
  10. do
  11. Set Colitems = objWMIService.ExecQuery(”SELECT * FROM Win32_Processor”, , 48) ‘执行WMI查询语句,”Win32_Processor”是WMI的一个类
  12. For Each objitem In Colitems
  13.        cpustr=objitem.LoadPercentage ‘将从”Win32_Processor“的对象中获取的值赋值给”cupstr”,即实际CPU使用率
  14. Next
  15. ’如果CPU使用率对应90%,则显示红色字体
  16. if cpustr>=90 then
  17.   strcolor=”red”
  18. else
  19.   strcolor=”#009900″
  20. end If
  21. ’输出HTML代码,按日期命名的HTML文件中(可以架设一个简单网站,设置IIS网站的“浏览”权限,即可通过WEB访问这个文件)
  22. Set  tf=fso.OpenTextFile(apppath & “\data\” & FormatDate(now(),”yyyymmdd”) & “.htm”,8,True)  
  23. tf.WriteLine “<table width=’”& cpustr &”%’ border=’0′ cellpadding=’1′ cellspacing=’1′ style=’font-size:9pt;’>”
  24.   tf.WriteLine “<tr height=’10′><td title=’CPU:”&  cpustr & “% Time:” & time & “‘ bgcolor=’”& strcolor &”‘ style=’color:#FFFFFF; padding-left:3px;’></td></tr>”
  25. tf.WriteLine “</table>”
  26. tf.Close
  27. wscript.sleep (30000)’设置监控时间间隔
  28. loop
  29. ‘自定义的格式化时间函数
  30. function FormatDate(strDate,fstr)
  31. if isdate(strDate) then
  32.    dim i,temp
  33.    temp=replace(fstr,”yyyy”,DatePart(”yyyy”,strDate))
  34.    temp=replace(temp,”yy”,mid(DatePart(”yyyy”,strDate),3))
  35.    temp=replace(temp,”y”,DatePart(”y”,strDate))
  36.    temp=replace(temp,”w”,DatePart(”w”,strDate))
  37.    temp=replace(temp,”ww”,DatePart(”ww”,strDate))
  38.    temp=replace(temp,”q”,DatePart(”q”,strDate))
  39.    if len(DatePart(”m”,strDate))>1 then
  40.      temp=replace(temp,”mm”,DatePart(”m”,strDate))
  41.    else
  42.      temp=replace(temp,”mm”,”0″ & DatePart(”m”,strDate))
  43.    end if
  44.    if len(DatePart(”d”,strDate))>1 then
  45.      temp=replace(temp,”dd”,DatePart(”d”,strDate))
  46.    else
  47.      temp=replace(temp,”dd”,”0″ & DatePart(”d”,strDate))
  48.    end if
  49.    if len(DatePart(”h”,strDate))>1 then
  50.      temp=replace(temp,”hh”,DatePart(”h”,strDate))
  51.    else
  52.      temp=replace(temp,”hh”,”0″ & DatePart(”h”,strDate))
  53.    end if
  54.    if len(DatePart(”n”,strDate))>1 then
  55.      temp=replace(temp,”nn”,DatePart(”n”,strDate))
  56.    else
  57.      temp=replace(temp,”nn”,”0″ & DatePart(”n”,strDate))
  58.    end if
  59.    if len(DatePart(”s”,strDate))>1 then
  60.      temp=replace(temp,”ss”,DatePart(”s”,strDate))
  61.    else
  62.      temp=replace(temp,”ss”,”0″ & DatePart(”s”,strDate))
  63.    end if
  64.    FormatDate=temp
  65. else
  66.    FormatDate=false
  67. end if
  68. end function
复制代码


来自:80IT人生(www.80ht.cn),转载请保留

www.80ht.cn

中文引号能运行才怪
LJY

TOP

返回列表