China DOS Union

@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

If I write it in VBS, how should I write it?

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