' Double-click launcher for the Claude Proxy GUI (no console window).
' The GUI self-elevates (one UAC prompt) so firewall toggling needs no repeated prompts.
Dim sh, here
Set sh = CreateObject("WScript.Shell")
here = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\"))
sh.Run "powershell.exe -NoProfile -ExecutionPolicy Bypass -WindowStyle Hidden -STA -File """ & here & "claude-proxy-gui.ps1""", 0, False