1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
| Dim objShell
Set objShell = CreateObject("WScript.Shell")
objShell.Run "C:\Windows\System32\telnet.exe 10.10.3.1",,False
WScript.Sleep 100
objShell.SendKeys "admin~"
WScript.Sleep 100
objShell.SendKeys "1"
WScript.Sleep 100
objShell.SendKeys "1~"
WScript.Sleep 100
objShell.SendKeys "4"
WScript.Sleep 100
objShell.SendKeys "2"
WScript.Sleep 100
objShell.SendKeys "1~"
WScript.Sleep 100
objShell.SendKeys "^z"
WScript.Sleep 100
objShell.SendKeys "1"
WScript.Sleep 100
objShell.SendKeys "4"
WScript.Sleep 100
objShell.SendKeys "3"
WScript.Sleep 100
objShell.SendKeys "1"
WScript.Sleep 100
objShell.SendKeys "^z"
WScript.Sleep 100
objShell.SendKeys "1"
WScript.Sleep 100
objShell.SendKeys "4"
WScript.Sleep 100
objShell.SendKeys "3"
WScript.Sleep 100
objShell.SendKeys "1"
WScript.Sleep 100
objShell.SendKeys "^z" |
Partager