中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 请教:怎样让VBS检测内存后输出一个返还值让BAT检测,
作者:
标题: 请教:怎样让VBS检测内存后输出一个返还值让BAT检测, 上一主题 | 下一主题
cjfcjf222
初级用户





积分 172
发帖 77
注册 2006-11-23
状态 离线
『楼 主』:  请教:怎样让VBS检测内存后输出一个返还值让BAT检测,

怎样让VBS检测内存后输出一个返还值让BAT检测,

VBS内存检测如下

strComputer = "localhost"
Set wbemServices = GetObject("winmgmts:\\" & strComputer)
Set wbemObjectSet = wbemServices.InstancesOf("Win32_LogicalMemoryConfiguration")

For Each wbemObject In wbemObjectSet
  WScript.Echo wbemObject.TotalPhysicalMemory
Next

我原来的BAT文件

for /f %%i in ('"cscript //nologo 内存.vbs"') do if %%i LSS 150000 goto 128
for /f %%i in ('"cscript //nologo 内存.vbs"') do if %%i LSS 280000 goto 256
for /f %%i in ('"cscript //nologo 内存.vbs"') do if %%i LSS 400000 goto 384
for /f %%i in ('"cscript //nologo 内存.vbs"') do if %%i LSS 550000 goto 524
for /f %%i in ('"cscript //nologo 内存.vbs"') do if %%i LSS 800000 goto 780
for /f %%i in ('"cscript //nologo 内存.vbs"') do if %%i LSS 1100000 goto 1G
goto x

然而运行太慢,如果是大内存,要运行VBS好多次,是修改BAT还是修改VBS,请教各位了

2007-2-23 07:23
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
slore
铂金会员





积分 5212
发帖 2478
注册 2007-2-8
状态 离线
『第 2 楼』:  

for /f %%i in ('"cscript //nologo 内存.vbs"') do set TPM=%%i

if %TPM% LSS 150000 goto 128
if %TPM% LSS 150000 goto 128
if %TPM% LSS 280000 goto 256
if %TPM% LSS 400000 goto 384
if %TPM% LSS 550000 goto 524
if %TPM% LSS 800000 goto 780
if %TPM% LSS 1100000 goto 1G
goto x

不知道可以不……

2007-2-23 08:24
查看资料  发短消息 网志   编辑帖子  回复  引用回复
cjfcjf222
初级用户





积分 172
发帖 77
注册 2006-11-23
状态 离线
『第 3 楼』:  

谢谢你,我试一下

2007-2-23 08:37
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
cjfcjf222
初级用户





积分 172
发帖 77
注册 2006-11-23
状态 离线
『第 4 楼』:  

好用了,太谢谢你了,这样就可以只运行一次VBS,我用于自动修改虚拟内存的

2007-2-23 08:44
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
zh159
金牌会员




积分 3687
发帖 1467
注册 2005-8-8
状态 离线
『第 5 楼』:  

稍稍简化 2 楼的:
for /f %%i in ('"cscript //nologo 内存.vbs"') do (
if %%i LSS 150000 goto 128
if %%i LSS 280000 goto 256
if %%i LSS 400000 goto 384
if %%i LSS 550000 goto 524
if %%i LSS 800000 goto 780
if %%i LSS 1100000 goto 1G
goto x
)
PS:一般不建议用%temp%、%tmp%变量(系统默认为临时文件夹路径变量)

2007-2-23 09:24
查看资料  发短消息 网志   编辑帖子  回复  引用回复
slore
铂金会员





积分 5212
发帖 2478
注册 2007-2-8
状态 离线
『第 6 楼』:  

TPM=TotalPhysicalMemory
汗~

2007-2-23 10:18
查看资料  发短消息 网志   编辑帖子  回复  引用回复
zh159
金牌会员




积分 3687
发帖 1467
注册 2005-8-8
状态 离线
『第 7 楼』:  



  Quote:
Originally posted by slore at 2007-2-22 21:18:
TPM=TotalPhysicalMemory
汗~

看错-_-|||

2007-2-23 15:18
查看资料  发短消息 网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: