如何确定 VBScript 是否正在 RDP 控制台中运行？

Question

我的 MSI 安装程序在通过远程桌面运行时会失败。 （除非它使用 /admin 或 /console 选项运行，以便获得会话 0）

我想使用 VBScript 自定义操作来确定我是否作为会话 0 运行。我了解到我可以使用两个 WMI 调用确定这一点：

• GetCurrentProcessID()
• ProcessIdToSessionId()

但是，我不知道如何在 VBScript 中调用这些东西。和想法？

Answer 1

Set oShell = CreateObject("WScript.Shell")
connection = oShell.ExpandEnvironmentStrings("%SESSIONNAME%")
WScript.Echo connection

"Console" = 本地计算机

"RDP-Tcp#0" = 远程桌面（0 可以是任意数字）

Answer 2

这是一个更简单的解决方案：

Set oShell = CreateObject( "WScript.Shell" )
sessionName=oShell.ExpandEnvironmentStrings("%SESSIONNAME%")
if ( sessionName = "Console" ) then 

    Msgbox "You are running directly!"
else

    MsgBox "You are in a Remote Session!"

end if