遍历进程

set Win = getobject("winmgmts:")
set Win32 = Win.instancesof("win32_process")
for each key in Win32
	if key.name = "QQ.exe" then
    	Wsh.echo "QQ已登录"
	end if
next