I need help using VBScript to control a commandline program - windows

Question

Using a VBScript (just an example) something like
result = MsgBox ("Would you like to install the AntrixAPI?", vbYesNo, "Installing AntrixAPI")
Select Case result
Case vbYes
MsgBox("The API will be installed.")
Case vbNo
MsgBox("The API will not be install.")
End Select
How could I use this to control a commandline program. Let's say the user selected yes. Then the command would go to a certain point only if the user selected yes.
(example command)
#echo off
:UserSelectedYes
REM This is where the prompt would go if the user selected yes
wget http://www.example.com/thisisafakedomain/api/antrix
:UserSelectedNo
REM This is where the prompt would go if the user selected no
end
Would this be possible?

Answer 1

You can create a MS-DOS process and execute every script, you want!
Just like this:
Dim oProcess As New Process
With (oProcess.StartInfo)
.Arguments = "/k <command> & <command> & <command> & exit"
.FileName = "cmd.exe"
.WindowStyle = ProcessWindowStyle.Hidden
.CreateNoWindow = True
End With
oProcess.Start()
It is not the best and genteelst way, but the fastest.
I do not know exactly, if this is what you wanted. So feel free to redefine your question, it was not very clear what you were asking for!

Answer 2

This is how to download a file in vbscript.
On Error Resume Next
Set File = WScript.CreateObject("Microsoft.XMLHTTP")
File.Open "GET", "http://www.pepperresources.org/LinkClick.aspx?fileticket=B1doLYYSaeY=&tabid=61", False
'This is IE 8 headers
File.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.0; Trident/4.0; SLCC1; .NET CLR 2.0.50727; Media Center PC 5.0; .NET CLR 1.1.4322; .NET CLR 3.5.30729; .NET CLR 3.0.30618; .NET4.0C; .NET4.0E; BCD2000; BCD2000)"
File.Send
If err.number <> 0 then
line =""
Line = Line & vbcrlf & ""
Line = Line & vbcrlf & "Error getting file"
Line = Line & vbcrlf & "=================="
Line = Line & vbcrlf & ""
Line = Line & vbcrlf & "Error " & err.number & "(0x" & hex(err.number) & ") " & err.description
Line = Line & vbcrlf & "Source " & err.source
Line = Line & vbcrlf & ""
Line = Line & vbcrlf & "HTTP Error " & File.Status & " " & File.StatusText
Line = Line & vbcrlf & File.getAllResponseHeaders
wscript.echo Line
Err.clear
wscript.quit
End If
On Error Goto 0
Set BS = CreateObject("ADODB.Stream")
BS.type = 1
BS.open
BS.Write File.ResponseBody
BS.SaveToFile "c:\users\test.txt", 2

Answer 3

Your VBScript can be as simple as this:
WScript.Quit MsgBox("Would you like to install the AntrixAPI?", vbYesNo, "Installing AntrixAPI")
Call it from your batch file and test the return value. vbYes has a value of 6, vbNo has a value of 7.
#echo off
cscript c:\test.vbs
if %errorlevel%==6 goto UserSelectedYes
if %errorlevel%==7 goto UserSelectedNo