在windows下如何将CPU和内存消耗，定时追加输入到一个文件里

[好记忆不如烂笔头abc]

类似Unix下的sar命令，sar 1 10 >> t.txt
在windows下如何将CPU和内存消耗，定时追加输入到一个文件里。

谢谢！

[AliasKavin]

注意 szRootDir 指向的根目录 "D:\CPU\" 是必须存在的`~~ 这里没有判断有没有根目录~~`没有那个目录要自己手动创建好`~~
否则可能文件写入不成功~~`

'/************************************************************************/
'
' FileName: WriteUsage.vbs
'
'   Author: Chinafish
'
'    Email: [e-mail]
'
' Homepage: http://www.csinx.org
'
'     Desc: Write CPU & Memory usage
'
'/************************************************************************/

On Error Resume Next

Dim dwTotalMem, dwAvailMem

Const szRootDir = "D:\CPU\"

'定时循环记录
Do While True

    Const ForReading = 1
    Const ForWriting = 2

    Set oFSO = CreateObject("Scripting.FileSystemObject")

    '计算当日记录文件名
    Today = Date()
    TargetFile =  szRootDir & Year(Today) & Right("00" & Month(Today),2) &  Right("00" & Day(Today),2) & ".log"

    '没有文件先创建文件
    Set MyFile = oFSO.CreateTextFile(TargetFile, false)
    MyFile.Close

    '打开创建的文件读出原来的内容 
    Set MyFile = oFSO.OpenTextFile(TargetFile, ForReading)
    strContent = MyFile.ReadAll
    MyFile.Close

    '先写原文件内容
    Set MyFile = oFSO.OpenTextFile(TargetFile, ForWriting)

    '文件无内容时写文件头
    if strContent <> "" then
        MyFile.WriteLine(strContent)
    else
        MyFile.WriteLine("/*Usage.log file write by Chinafish.*/")
        MyFile.WriteBlankLines 1
    End if

    '写开始时间
    MyFile.WriteLine("程序启动时间: " & Now())

    '本地电脑
    strComputer = "."

    '连接到本地电脑
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

    Set colItems = objWMIService.InstancesOf("Win32_LogicalMemoryConfiguration")

    '总计物理内存
    For Each colItem In colItems
        dwTotalMem = CLng(colItem.TotalPhysicalMemory / 1024)
        MyFile.WriteLine("总计物理内存: " & CLng(colItem.TotalPhysicalMemory / 1024) & "MB")
    Next

    '剩余内存
    Set colItems = objWMIService.ExecQuery("Select * from Win32_PerfRawData_PerfOS_Memory",,48)

    For Each objItem in colItems
        dwAvailMem = objItem.AvailableMBytes
        MyFile.WriteLine("剩余物理内存: " & objItem.AvailableMBytes & "MB")
    Next

    '物理内存使用率(第一行精确到小数后2位, 第二行取整数) 
    'MyFile.WriteLine("物理内存使用: " & CInt((1 - dwAvailMem/dwTotalMem)*100*100)/100 & "%")
    MyFile.WriteLine("物理内存使用: " & CInt((1 - dwAvailMem/dwTotalMem)*100) & "%")

    '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 oFSO = Nothing
    Set MyFile = Nothing

    '睡眠达到定时操作目的 参数是ms 1000是1秒
    WScript.Sleep 1000*60*1

Loop

[好记忆不如烂笔头abc]

[Quote=引用 75 楼 AliasKavin 的回复:]
注意 szRootDir 指向的根目录 "D:\CPU\" 是必须存在的`~~ 这里没有判断有没有根目录~~`没有那个目录要自己手动创建好`~~
否则可能文件写入不成功~~`


VBScript code'/************************************************************************/
'
' FileName: WriteUsage.vbs
'
' Author: Chinafish
'
' Email: [e-mail]
'
' Homepage: http://www.csinx.org
'
' Desc: Write CPU & Memo…
[/Quote]
测试的结果是，虽然每天会生成日期格式的文件，但是文件中会自动将以前日期的内容也写到了当前日期的文件里。
实际需要的是每天都文件只要当天的内容即可。
老大再测测看？

[好记忆不如烂笔头abc]

先生成一个20080730.log
然后修改日期31日，然后可以看到31号的文件如下内容，其中多了30号的内容。

测试如下：
文件：20080731.log

/*Usage.log file write by Chinafish.*/

程序启动时间: 2008-7-30 14:03:42
总计物理内存: 478MB
剩余物理内存: 49MB
物理内存使用: 90%
CPU(0)使用率: 100%
程序结束时间: 2008-7-30 14:04:00

程序启动时间: 2008-7-31 14:04:19
总计物理内存: 478MB
剩余物理内存: 51MB
物理内存使用: 89%
CPU(0)使用率: 99%
程序结束时间: 2008-7-31 14:04:20

[zhangxin714]

很好很强大！！！！

[橘啊]

有作用。都很强啊

[Pepeet]

23楼最强，............

[飞起航]

hehe
学习了

[LB3690]

网路的占用情况又怎么得到？

[songyu1981]

mark up!!

[z010q3w]

很好。很强。。。

[懦芞]

强帖 留名

[peter10123]

这个学习了，留名先。

[sun290215710]

不解释。。。。。强大

[shaolei5566]

厉害 、、、、、、、

[lwixiaoyan]

NB Mark了

[清海风缘]

都是强人啊, 学习了

[xingkong262]

强人 很厉害

[myblind]

windows performance tool 可以自动记录

[zhq445078388]

内存占用百分比 win没有提供 要自己算。。

[wendy_1129]

强烈关注~~~