Proxy script for running anything as an admin. Contains an CommandLineToArgvW escaper.

run_as_admin.vbs

' Proxy script for running anything as an admin. In this case, AHK.
Set UAC = CreateObject("Shell.Application")
Dim Arguments
' Build arguments
Arguments = ""
For Each strArg in WScript.Arguments
  Arguments = Arguments & Escape(strArg) & " "
Next
UAC.ShellExecute "C:\Program Files\AutoHotkey\AutoHotkey.exe", Arguments, "", "runas", 1 

' Escape per CommandLineToArgv.
' See https://github.com/Artoria2e5/node/blob/fix!/child-process-args/doc/api/child_process.md#windows-command-line
' See https://github.com/nodejs/node/pull/29576
Function Escape(Arg)
  ' js: return `"${arg.replace(/(\\*)($|")/g, '$1$1$2').replace(/"/g, '""')}"`;
  Dim tmp
  Set sub1 = New RegExp
  sub1.Global = True
  sub1.pattern = "(\\*)($|"")"
  tmp = sub1.Replace(Arg, "$1$1$2")
  Set sub2 = New RegExp
  sub2.Global = True
  sub2.pattern = Chr(34)
  tmp = sub2.Replace(tmp, Chr(34) & Chr(34))
  Escape = Chr(34) & tmp & Chr(34)
End Function