Windows10系统下含VBScript提权代码的HTA文件需多次点击才能加载

问题根因 #

现有权限提升代码存在两个兼容缺陷，导致部分Windows 10设备上单次启动失效：

• 原进程调用self.close时机过早，UAC验证通过后的新mshta进程还未完成初始化，原进程就提前退出，导致命令行标记传递丢失，新进程无响应
• 未处理HTA文件路径带空格的场景，直接拼接命令行参数会导致解析错误，启动失败

修复后的代码 #

<script Language="VBScript">
' 请确保你的HTA头部已定义<HTA:APPLICATION ID="oHTA" />否则oHTA对象会调用失败
HTAElevate()

Sub Main() 
    MsgBox "HTA-Ende", 4096 
End Sub 

Sub CloseSelf()
    self.close
End Sub

Function HTAElevate() 
  Const Elev = " /elevated"
  Dim strCmdLine
  HTAElevate = True
  ' 已携带提升标记则直接执行业务逻辑
  If InStr(LCase(oHTA.commandLine), LCase(Elev)) > 0 then Exit Function
  
  On Error Resume Next
    window.resizeto 750, 10
  On Error GoTo 0

  ' 处理路径空格问题，给命令行包裹双引号
  strCmdLine = Chr(34) & Replace(oHTA.commandLine, Chr(34), "") & Chr(34) & Elev
  ' 启动带管理员权限的新进程
  CreateObject("Shell.Application").ShellExecute "mshta.exe", strCmdLine, "", "runas", 1
  HTAElevate = False
  ' 延迟200ms关闭原进程，确保新进程初始化完成
  window.setTimeout GetRef("CloseSelf"), 200
End Function
</script>

额外排查点 #

如果替换代码后仍存在启动失败问题，可检查以下配置：

• 确认HTA头部已正确声明ID为oHTA的<HTA:APPLICATION>标签
• 检查第三方安全软件/Windows Defender是否拦截了mshta.exe的二次启动请求
• 尝试将HTA文件放到纯英文无空格的路径下测试，排除路径字符兼容问题

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