31 lines
855 B
Plaintext
31 lines
855 B
Plaintext
|
' 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
|