VBS) VBScript  Telnet  log save

set cloner=CreateObject("WScript.shell")
Cloner.Run"cmd.exe"
WScript.Sleep 3000
cloner.SendKeys"telnet -f output.log x.x.x.1 80"
cloner.SendKeys("{Enter}")
WScript.Sleep 5000
cloner.SendKeys("quit")
cloner.SendKeys("{Enter}")
WScript.Sleep 5000
cloner.SendKeys("time /t %a >>telnetsuccess.log")
cloner.sendKeys("{Enter}")
wscript.Sleep 1000
cloner.SendKeys("date /t %a >>telnetsuccess.log")
cloner.SendKeys("{Enter}")
WScript.Sleep 1500
cloner.SendKeys("exit")
cloner.SendKeys("{Enter}")
WScript.Quit