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