run a bat file

[redbull2k]

i have a .bat file and when double clicked itwill run thorugh cmd.exe. when i run the .bat file from qm its not working.
inside the .bat file i have

Set cloner = CreateObject("WScript.Shell")
cloner.run"cmd"
WScript.Sleep 500

cloner.SendKeys"telnet 192.168.1.1 -f cmd.txt"
cloner.SendKeys("{Enter}")
WScript.Sleep 500



cloner.SendKeys"admin"
cloner.SendKeys("{Enter}")
WScript.Sleep 500

cloner.SendKeys"admin"
cloner.SendKeys("{Enter}")
WScript.Sleep 500

cloner.SendKeys"sh"
cloner.SendKeys("{Enter}")
WScript.Sleep 500

cloner.SendKeys"cat proc/net/ip_conntrack"
cloner.SendKeys("{Enter}")
WScript.Sleep 500

WScript.Sleep 10000
WScript.Sleep 10000
cloner.SendKeys"exit"
cloner.SendKeys("{Enter}")
WScript.Sleep 500

cloner.SendKeys"exit"
cloner.SendKeys("{Enter}")
WScript.Sleep 500

or is there a way i can do this just with qm