' Terminal Launcher - VBScript
' Double-click to launch - no dependencies required
' Works on any Windows system

Set objShell = CreateObject("WScript.Shell")

' Display menu using VBScript InputBox with selection
Dim result
result = InputBox("Select Terminal to Launch:" & vbCrLf & vbCrLf & _
                  "1 = WSL (default)" & vbCrLf & _
                  "2 = PowerShell" & vbCrLf & _
                  "3 = Ubuntu (WSL -d Ubuntu)", _
                  "Terminal Launcher", "1")

If result = "" Then
    WScript.Quit
End If

Select Case result
    Case "1"
        objShell.Run "wsl", 1, False
    Case "2"
        objShell.Run "powershell", 1, False
    Case "3"
        objShell.Run "wsl -d Ubuntu", 1, False
    Case Else
        MsgBox "Invalid selection. Please enter 1, 2, or 3.", vbExclamation, "Terminal Launcher"
End Select

WScript.Quit