telnet restart - přikazy
Napsal: 28 bře 2017 16:37
Zdravím.
Pro vzdálený restart routeru přes telnet používám tyto příkazy:
Option explicit
Dim oShell
set oShell= Wscript.CreateObject("WScript.Shell")
oShell.Run "telnet"
WScript.Sleep 3000
oShell.Sendkeys "open 192.168.1.103~"
WScript.Sleep 3000
oShell.Sendkeys "admin~"
WScript.Sleep 3000
oShell.Sendkeys "ostrava~"
WScript.Sleep 3000
oShell.Sendkeys "reboot~"
WScript.Sleep 3000
oShell.Sendkeys "~"
Wscript.Quit
Zajímalo by mě, jak se dá docílit, aby tyto příkazy fungovaly i v nějaké aplikaci typu exe, kterou jsem si vytvořil.
Bohužel vždy to zahlásí toto... (pravděpodobně nenajde cestu k příkazu oShell.run)
http://jpeg.cz/images/2017/03/28/kjRIZ.png
Původně jsem to chtěl udělat přes klasický msgbox, ale tam to dělalo to samé. Díky za každou radu.
Pro vzdálený restart routeru přes telnet používám tyto příkazy:
Option explicit
Dim oShell
set oShell= Wscript.CreateObject("WScript.Shell")
oShell.Run "telnet"
WScript.Sleep 3000
oShell.Sendkeys "open 192.168.1.103~"
WScript.Sleep 3000
oShell.Sendkeys "admin~"
WScript.Sleep 3000
oShell.Sendkeys "ostrava~"
WScript.Sleep 3000
oShell.Sendkeys "reboot~"
WScript.Sleep 3000
oShell.Sendkeys "~"
Wscript.Quit
Zajímalo by mě, jak se dá docílit, aby tyto příkazy fungovaly i v nějaké aplikaci typu exe, kterou jsem si vytvořil.
Bohužel vždy to zahlásí toto... (pravděpodobně nenajde cestu k příkazu oShell.run)
http://jpeg.cz/images/2017/03/28/kjRIZ.png
Původně jsem to chtěl udělat přes klasický msgbox, ale tam to dělalo to samé. Díky za každou radu.