Effettuare un Telnet da VbScript

Il seguente “spezzone” di codice in linguaggio in VbScript ( Windows Script Host ) si utilizza per effettuare un TELNET a un indirizzo ip
Attenzione : questo piccolo script è da considerare “beta”  (nel senso che non sempre funziona)

[php]
option explicit
dim sdomain, ssmptserver, sport, smailacctfr, smailacctto, smailnamefr, smailnameto
dim sopen, ssubject, sehlo, smailfr1, smailto1, smailfr2, smailto2, WSHShell
sdomain = "1.1.1.10"
ssmptserver = "1.1.1.10"
sport = "25"

sopen = "open " & ssmptserver & " " & sport & "~"

Set WSHShell = CreateObject("WScript.Shell")
WSHShell.Run "Telnet"
WSHShell.AppActivate "Telnet"
WScript.Sleep 2000
WSHShell.SendKeys sopen
WScript.Sleep 5000
[/php]

Altri script in VbScript che potrebbero interessarti :

Fonti : VbScript, Telnet da VbScript, effettuare Telnet VbScript, Sctipt per VbScript Telnet