Option Explicit

Dim fileSystem
Dim launcherPath
Dim powerShellPath
Dim command
Dim exitCode
Dim shell

Set fileSystem = CreateObject("Scripting.FileSystemObject")
Set shell = CreateObject("WScript.Shell")

launcherPath = shell.ExpandEnvironmentStrings("%USERPROFILE%\.local\bin\start-claude-proxy.ps1")
powerShellPath = shell.ExpandEnvironmentStrings("%LOCALAPPDATA%\Microsoft\WindowsApps\pwsh.exe")

If Not fileSystem.FileExists(powerShellPath) Then
    powerShellPath = "pwsh.exe"
End If

command = """" & powerShellPath & _
    """ -NoLogo -NoProfile -ExecutionPolicy Bypass -File """ & _
    launcherPath & """"

exitCode = shell.Run(command, 0, True)
If exitCode <> 0 Then
    MsgBox "Не удалось запустить Claude Proxy. Код ошибки: " & exitCode, _
        vbCritical, "Claude Proxy"
End If