Set ssh = WScript.CreateObject("WScript.Shell")

' Fill these fields with your own credentials
Dim SciName
	'The first part of Science Account name, used at https://diy.science.ru.nl/login.php. Generally, something like "John Dover" => "jdover" (from jdover@science.ru.nl)
SciName = ""
Dim SciPass
	'The corresponding passowrd for the Science Account filled above
SciPass = ""
Dim DefaultPC
DefaultPC = "10"
Dim DefaultContainer
DefaultContainer = "hey-spark"

'Login into the first login server
ssh.Run("ssh "& SciName &"@lilo6.science.ru.nl")
WScript.Sleep 900
ssh.SendKeys SciPass & "{ENTER}"

'Promting for selecting PC number
pc_num = InputBox("", "Enter PC number", DefaultPC)

'ssh further into the computer
ssh.SendKeys("ssh "& SciName &"@hg761pc"&pc_num&"{ENTER}")
WScript.Sleep 700
ssh.SendKeys "clear && fish{ENTER}"


' Optional Part (Comment out rest if not wanted)
DefaultContainer = InputBox("", "Start rest as well? If yes, <container name>. 0 otherwise", DefaultContainer)
If NOT(DefaultContainer = "0") Then

'start container
WScript.Sleep 500
ssh.SendKeys "docker start "& DefaultContainer &"{ENTER}"

'start ngrok and expost localhost 9001 used by 'hey-spark' container
WScript.Sleep 700
ssh.SendKeys "./ngrok http 9001{ENTER}"

End If