中国DOS联盟
-- 联合DOS 推动DOS 发展DOS --联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
|
中国DOS联盟-- 联合DOS 推动DOS 发展DOS --联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum |
| 游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟 |
|
中国DOS联盟论坛 现在时间是 2026-08-12 00:52 |
共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行 |
| DOS批处理 & 脚本技术（批处理室） » 怎么简写这个脚本 |
| 可打印版本 1,180 / 1 |
| 第1楼 chen8919043 | 发表于 2010-09-19 12:59 |
| 初级用户 发帖 21 积分 20 | |
|
怎么简写这个脚本 @echo off&setlocal enabledelayedexpansion
for /f %%i in ('date /t') do set a=%%i for /f %%j in ('time /t') do set b=%%j wmic process get name,WorkingSetSize,PrivatePageCount | findstr "QQ.exe" > %tmp%\111.txt for /f "tokens=1,2,3 delims= " %%k in (%tmp%\111.txt) do set c=%%k&set d=%%l&set /A d=!d!/1024&set e=%%m&set /A e=!e!/1024 echo !a!!b! !c! !d!KB !e!KB>>(%date:~0,10%)front内存占用.txt 要是写成VBS的该怎么写？ |
|
| 第2楼 qinchun36 | 发表于 2010-09-20 10:59 |
| 高级用户 发帖 400 积分 609 | |
|
f="("&Date&")front内存占用.txt" : g=String(11," ") : t=""
Set wmi=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set ps=wmi.ExecQuery("Select * from Win32_Process Where Name='QQ.exe'") For Each p In ps t=t&Now&g&p.Name&g&p.PrivatePageCount/1024&"KB"&g&p.WorkingSetSize/1024&"KB"&vbCrLf Next CreateObject("Scripting.FileSystemObject").OpenTextFile(f,8,True).Write t |
|
|
[ 联系联盟系统管理团队 -
中国DOS联盟 -
标准版 ] Sponsored by ifanr Inc | © 2001–2023 |