Livestreamer no command line script

Dim streamer
Dim quality
Dim link


streamingSite = "twitch.tv"       ' The Site you want to grab the stream from
default       = "gamesdonequick"  ' The stream that is shown by default in the text box
defaultq      = "high"            ' The default quality


streamer = InputBox("Enter livestream channel", "livestreamer", default)
quality  = InputBox("Enter quality", "livestreamer", "high")

link = "livestreamer " & streamingSite & "/" & streamer & " " & quality & "  --http-header Client-ID=jzkbprff40iqj646a697cyrvl0zt2m6"

CreateObject("Wscript.Shell").Run link,0,True
Set objShell = Nothing