标题: 怎么简写这个脚本 [打印本页]

---

作者: chen8919043     时间: 2010-9-19 12:59    标题: 怎么简写这个脚本

@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的该怎么写？

---

作者: qinchun36     时间: 2010-9-20 10:59
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