CLIProxyAPI-Tray/cli-proxy-api.vbs at main · DiveWind/CLIProxyAPI-Tray · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
Option Explicit

Dim shell, fso, scriptDir, psScript, hostPath, commandLine

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

scriptDir = fso.GetParentFolderName(WScript.ScriptFullName)
psScript = fso.BuildPath(scriptDir, "cli-proxy-api.ps1")

If WScript.Arguments.Count > 0 Then
    hostPath = WScript.Arguments(0)
Else
    hostPath = ResolvePowerShellHost()
End If

If Not fso.FileExists(hostPath) Then
    hostPath = ResolvePowerShellHost()
End If

If Not fso.FileExists(psScript) Then
    WScript.Quit 1
End If

commandLine = Quote(hostPath) & " -STA -NoProfile -WindowStyle Hidden -ExecutionPolicy Bypass -File " & Quote(psScript)
shell.Run commandLine, 0, False

Function ResolvePowerShellHost()
    Dim candidate

    candidate = FindOnPath("pwsh.exe")
    If candidate <> "" Then
        ResolvePowerShellHost = candidate
        Exit Function
    End If

    candidate = shell.ExpandEnvironmentStrings("%ProgramFiles%") & "\PowerShell\7\pwsh.exe"
    If fso.FileExists(candidate) Then
        ResolvePowerShellHost = candidate
        Exit Function
    End If

    candidate = shell.ExpandEnvironmentStrings("%ProgramFiles(x86)%") & "\PowerShell\7\pwsh.exe"
    If fso.FileExists(candidate) Then
        ResolvePowerShellHost = candidate
        Exit Function
    End If

    ResolvePowerShellHost = shell.ExpandEnvironmentStrings("%SystemRoot%") & "\System32\WindowsPowerShell\v1.0\powershell.exe"
End Function

Function FindOnPath(exeName)
    Dim paths, item, candidate

    paths = Split(shell.ExpandEnvironmentStrings("%PATH%"), ";")
    For Each item In paths
        If Len(Trim(item)) > 0 Then
            candidate = fso.BuildPath(Trim(item), exeName)
            If fso.FileExists(candidate) Then
                FindOnPath = candidate
                Exit Function
            End If
        End If
    Next

    FindOnPath = ""
End Function

Function Quote(value)
    Quote = """" & Replace(value, """", """""") & """"
End Function