Can someone direct to a reference or provide instruction on creating a VB Script which will give the user the option of selecting between 3 alternatives. When clicking an option an additional associated script will run.

Any help will be greatly appreciated.

Dave

Solution:

On Error Resume Next

Set wshShell = WScript.CreateObject ("WSCript.shell")

strMenu="Select Program Area" & VbCrLf & "---------------------------------" & VbCrLf & "1 - Electrical" & VbCrLf & "2 - Equipment" & VbCrLf & "3 - Structures"

rc=InputBox(strMenu,"TS",1)
If IsNumeric(rc) Then
Select Case rc
Case 1
wshshell.run "S:\TSELE.VBS"
Case 2
wshshell.run "S:\TSLE.VBS"
Case 3
wshshell.run "S:\TSLS.VBS"
Case Else
wscript.close
End Select
Else
WScript.Echo "Invalid option. Numbers only."
End If