[Nand]

Я подобное решал фильтром по процессу rdp.

Код:

strComputer = "." 
rdpProc = 1
Set objWMIService = GetObject( _
"winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_Process" & _
" WHERE Name = 'rdpclip.exe'",,48) 
For Each objItem in colItems 
If objItem.Name = "rdpclip.exe" Then 
rdpProc = 0
exit for 
End If 
Next
If rdpProc = 0 Then 
filetxt.WriteLine("Терминальный сеанс Checkcfg не нужен")
Else
' checkcfg
call objWSH.Run("\....\checkcfg\Checkcfg.exe", Hide_Window)
filetxt.WriteLine("Запускаем Checkcfg ")