具体的函数是什么？谢谢
[ Last edited by HAT on 2008-12-16 at 10:04 ]
[ Last edited by HAT on 2008-12-16 at 10:04 ]
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [已结]如何用vbs脚本文件得到可用内存，并输出到文件？
查看 703 回复 4
楼 主
[已结]如何用vbs脚本文件得到可用内存，并输出到文件？
发表于 2008-12-15 21:18 · 中国 湖南 常德 电信
第 2 楼
发表于 2008-12-16 00:32 · 中国 广东 广州 电信
这个函数要自已调用WMI去写，以下未测试
Function Available
Dim wmi
Set wmi=GetObject("winmgmts:\\.\root\cimv2")
Set ref=wmi.ExecQuery("Select * From Win32_PerfFormattedData_PerfOS_Memory")
For Each x In ref
Available=x.AvailableBytes/1024
Next
End Function
Function Available
Dim wmi
Set wmi=GetObject("winmgmts:\\.\root\cimv2")
Set ref=wmi.ExecQuery("Select * From Win32_PerfFormattedData_PerfOS_Memory")
For Each x In ref
Available=x.AvailableBytes/1024
Next
End Function
本帖最近评分记录
（共 1 条）
点击查看详情
| 评分人 | 分数 | 时间 |
|---|---|---|
| HAT | +2 | 2008-12-16 10:04 |
49206C6F766520796F752067757973 54656C3A3133383238343036373837
第 3 楼
发表于 2008-12-16 06:19 · 中国 湖南 常德 电信
多谢，可以使用……
另外，如下的内容应该怎样写？
判断某个进程，如果存在，就1秒钟刷新某个文件一次（文件内容就是内存可用数）。如果不存在，就退出。
这应该怎样写？
[ Last edited by wl00560 on 2008-12-16 at 06:31 ]
另外，如下的内容应该怎样写？
判断某个进程，如果存在，就1秒钟刷新某个文件一次（文件内容就是内存可用数）。如果不存在，就退出。
这应该怎样写？
[ Last edited by wl00560 on 2008-12-16 at 06:31 ]
第 4 楼
发表于 2008-12-16 06:32 · 中国 湖南 常德 电信
找了半天的资料，一头雾水，还是麻烦大家一下，先谢谢了……
第 5 楼
发表于 2008-12-16 11:53 · 中国 湖南 常德 电信
查了半天的资料，终于七拼八凑出个脚本文件，汗……
此贴已结……
[ Last edited by wl00560 on 2008-12-16 at 16:02 ]
此贴已结……
[ Last edited by wl00560 on 2008-12-16 at 16:02 ]
论坛跳转: