使用vbscript查看正在运行的进程

我想查看计算机上运行的所有进程，但cmd命令只提供应用程序，而不提供任何脚本或较小的文件。我试图找到一种方法，以更高级的方式列出所有进程，列出当前正在运行的所有进程。有人知道用vbscript实现这一点的方法吗？或者如果有更好的方法，那是什么？

使用

TaskList

命令

TaskList

命令可用于显示所有正在运行的应用程序和服务及其详细信息和进程ID（PID）的列表

如果不再需要此文件，请在脚本末尾添加以下行：

If FSO.FileExists(ProTFPath) Then
  FSO.DeleteFile(ProTFPath, True)
End If

---

使用

TaskList

命令查看有关

TaskList
的更多信息

TaskList
命令可用于显示所有正在运行的应用程序和服务及其详细信息和进程ID（PID）的列表

如果不再需要此文件，请在脚本末尾添加以下行：

If FSO.FileExists(ProTFPath) Then
  FSO.DeleteFile(ProTFPath, True)
End If

查看有关任务列表的更多信息请解释“不是任何脚本或更小的文件”是什么意思。你指的是文本文件吗？请解释一下“不是任何脚本或更小的文件”是什么意思。你是说文本文件吗？我会用wmi的。不知道任务列表命令。谢谢，我今天学到了一件新东西。：）我会用wmi的。不知道任务列表命令。谢谢，我今天学到了一件新东西。：）
EXE_Process = AllProcessRunningEXE(".")
Vbs_Process = AllProcessRunningVBS (".")

Function AllProcessRunningEXE( strComputerArg )
strProcessArr = ""
    Dim Process, strObject
    strObject   = "winmgmts://" & strComputerArg
    For Each Process in GetObject( strObject ).InstancesOf( "win32_process" )
        strProcessArr = strProcessArr & ";" & vbNewLine & Process.name
    Next
    AllProcessRunningEXE = Mid(strProcessArr,3,Len(strProcessArr))
End Function


Function AllProcessRunningVBS (strComputerArg)
    strProcessArr = ""
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputerArg & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'cscript.exe' OR Name = 'wscript.exe'")
    For Each objItem in colItems
        strProcessArr = strProcessArr & ";" & vbNewLine & objItem.CommandLine
    Next
    AllProcessRunningVBS = Mid(strProcessArr,3,Len(strProcessArr))

    Set objWMIService = Nothing
    Set colItems = Nothing
End Function