vbscript - VB 脚本：如何判断程序是否已经在运行？

Question

我正在编写一个脚本来打开一个 RDP 会话，但我想检查一个 RDP 会话是否已经在运行。我最初的想法是检查内存中运行的 MSTSC.EXE。知道怎么做吗？

也对问题的替代解决方案持开放态度。试图阻止客户端两次登录 RDS 服务器。允许多次登录，因为同一用户可能从不同的客户端登录。

Answer 1

我目前正在使用此功能。

就这样称呼它IsProcessRunning "compname","mstsc.exe"

Function IsProcessRunning( strComputer, strProcess )
    Dim Process, strObject
    IsProcessRunning = False
    strObject   = "winmgmts://" & strComputer
    For Each Process in GetObject( strObject ).InstancesOf( "win32_process" )
    If UCase( Process.name ) = UCase( strProcess ) Then
        IsProcessRunning = True
        Exit Function
    End If
    Next
End Function