在windows下将CPU和内存消耗,定时追加输入到一个文件里。.docVIP

/************************************************************************/ FileName: WriteUsage.vbs Author: Chinafish Email: china_fish@163.com Homepage: Desc: Write CPU Memory usage /************************************************************************/ on error resume next const TargetFile = C:\Usage.log 定时循环记录 do while true const ForReading = 1 const ForWriting = 2 Set fso = CreateObject(Scripting.FileSystemObject) 没有文件先创建文件 Set MyFile = fso.CreateTextFile(TargetFile, false) MyFile.Close 打开创建的文件读出原来的内容 Set MyFile = fso.OpenTextFile(TargetFile, ForReading) strContent = MyFile.ReadAll MyFile.Close 先写原文件内容 Set MyFile = fso.OpenTextFile(TargetFile, ForWriting) if strContent then MyFile.WriteLine(strContent) End if 写开始时间 MyFile.WriteLine(程序启动时间: Now()) 本地电脑 strComputer = . 连接到本地电脑 Set objWMIService = GetObject(winmgmts:\\ strComputer \root\cimv2) Set colItems = objWMIService.InstancesOf(Win32_LogicalMemoryConfiguration) 总计物理内存 For Each colItem In colItems MyFile.WriteLine(总计物理内存: CLng(colItem.TotalPhysicalMemory / 1024) MB) Next 剩余内存 Set colItems = objWMIService.ExecQuery(Select * from Win32_PerfRawData_PerfOS_Memory,,48) For Each objItem in colItems MyFile.WriteLine(剩余物理内存: objItem.AvailableMBytes MB) Next CPU数和使用率 Set colItems = objWMIService.ExecQuery(Select * from Win32_Processor,,48) i = 0 For Each objItem in colItems MyFile.WriteLine(CPU( i )使用率: objItem.LoadPercentage %) i = i + 1 Next 写结束时间 MyFile.WriteLine(程序结束时间: Now()) MyFile.Close Set fso = Nothing Set MyFile = Nothing 睡眠达到定时操作目的 参数是ms 1000是1秒 WScript.Sleep 1000*60*0.1 Loop 要停止记录请结束进程中的 wscript.exe~~~