Mam skrypt o mniej więcej takiej zawartości:
Dim oShell
Set oShell = CreateObject("WScript.Shell")
call UruchomCMD()
call WyslijTekst("telnet 192.168.xxx.xxx", 100)
call WyslijTekst("polecenie1", 100)
call WyslijTekst("polecenie2", 100)
call WyslijTekst("polecenie3", 100)
call WyslijTekst("polecenie4", 100)
call WyslijTekst("logout", 100)
Sub WyslijTekst(tekst, czas)
oShell.SendKeys tekst
oShell.SendKeys("{Enter}")
WScript.Sleep czas
End Sub
Sub UruchomCMD
oShell.run"cmd.exe"
WScript.Sleep 500
End Sub
Znalazłem też program, który potrafi zrobić z tego plik wykonywalny exe (więc jest to możliwe) ==>
http://www.nsbasic.com/desktop/ , ale niestety wywala mi błąd "Error line 31 - Wymagany jest objekt 'WScript'". Skrypty niestety nie są moją najmocniejszą stroną.
Jakieś sugestie?
pozdrawiam