VBScript以系统账户运行，需带Yes/No选项的可见确认弹窗并获取选择

刚好之前踩过这个坑——系统账户默认运行在会话0，没法直接在用户的桌面会话弹交互框，而且MSG命令只能发消息，拿不到用户选择。下面给你一套完整的实现方案，核心思路是跨会话调用用户桌面的程序来弹框，再把结果回传给系统账户的脚本。

核心逻辑拆解 #

• 先找到当前登录用户的活动会话ID（用户桌面一般在会话1及以后）
• 用PsExec（Sysinternals工具，系统账户可以直接调用）在用户会话里启动一个专门的VBScript，用来弹出Yes/No确认框
• 通过临时文件传递用户的选择结果，让系统账户的主脚本读取并处理

步骤1：获取用户的活动会话ID #

先写个函数，用WMI查询交互式登录的会话ID：

Function GetActiveUserSessionID()
    Dim wmiObj, sessions, session
    Set wmiObj = GetObject("winmgmts:\\.\root\cimv2")
    'LogonType=2代表交互式登录（用户桌面登录）
    Set sessions = wmiObj.ExecQuery("SELECT * FROM Win32_LogonSession WHERE LogonType=2")
    
    For Each session in sessions
        GetActiveUserSessionID = session.SessionID
        Exit Function '如果是多用户场景，这里可以加逻辑筛选目标用户
    Next
    GetActiveUserSessionID = -1 '没找到活动会话返回-1
End Function

步骤2：编写弹框用的子脚本（PromptUser.vbs） #

这个脚本要在用户会话里运行，负责弹确认框并把结果写入临时文件：

' PromptUser.vbs - 放在用户和系统账户都能访问的路径，比如C:\Scripts\
Dim shell, choiceResult
Set shell = CreateObject("WScript.Shell")

' Popup参数说明：消息内容，超时时间（0=不超时），标题，按钮+图标类型
' 4=Yes/No按钮，32=问号图标
choiceResult = shell.Popup("请确认执行此操作？", 0, "系统操作确认", 4 + 32)

' 把结果写入临时文件，供主脚本读取
Dim fso, tempFile
Set fso = CreateObject("Scripting.FileSystemObject")
tempFile = "C:\Temp\UserChoice.txt" '确保C:\Temp存在，或者换个双方都能读写的路径
Set tempFileObj = fso.CreateTextFile(tempFile, True)
tempFileObj.WriteLine(choiceResult)
tempFileObj.Close

步骤3：系统账户的主脚本调用逻辑 #

主脚本先获取会话ID，再用PsExec启动子脚本，最后读取结果：

Dim sessionID, shell, tempFile, userChoice
sessionID = GetActiveUserSessionID()

If sessionID = -1 Then
    WScript.Echo "未找到活跃的用户桌面会话"
    WScript.Quit 1
End If

Set shell = CreateObject("WScript.Shell")
' PsExec参数说明：-i 指定会话ID，让程序在用户桌面显示；wscript.exe用来执行VBS
shell.Run "psexec.exe -i " & sessionID & " wscript.exe ""C:\Scripts\PromptUser.vbs""", 0, True

' 等待用户操作并读取结果
tempFile = "C:\Temp\UserChoice.txt"
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

' 循环等待临时文件生成
Do While Not fso.FileExists(tempFile)
    WScript.Sleep 500
Loop

' 读取选择结果
Set fileObj = fso.OpenTextFile(tempFile, 1)
userChoice = fileObj.ReadLine()
fileObj.Close
fso.DeleteFile(tempFile) '清理临时文件

' 处理结果：6=用户选了Yes，7=用户选了No
Select Case userChoice
    Case 6
        WScript.Echo "用户确认操作，执行后续逻辑..."
        ' 在这里写Yes对应的操作代码
    Case 7
        WScript.Echo "用户取消操作，终止执行..."
        ' 在这里写No对应的操作代码
End Select

关键注意事项 #

• PsExec的部署：把psexec.exe放到系统目录（比如C:\Windows\System32），或者给系统账户赋予该文件的读取/执行权限，避免找不到文件的问题。
• 临时文件路径：一定要选系统账户和普通用户都能读写的目录，C:\Temp是个不错的选择，提前创建好这个目录并设置好权限。
• 多用户场景：如果有多个用户登录，需要修改GetActiveUserSessionID函数，通过关联Win32_LoggedOnUser类筛选出目标用户的会话ID，而不是取第一个会话。
• 无PsExec替代方案：如果不想依赖PsExec，可以用WMI的CreateProcessAsUser API，但需要处理用户令牌获取、权限调整等复杂逻辑，实现起来繁琐很多，PsExec是最省心的方案。

内容的提问来源于stack exchange，提问作者AA29