Há séculos, escrevi um servidor COM para permitir que eu fizesse telnet a partir do VBScript. Se você quiser uma cópia (incluindo a fonte) eu ficaria feliz em colocá-lo na Internet em algum lugar. Eu uso isso para reinicializar remotamente os roteadores.
Para dar uma ideia do que faz, aqui está um exemplo de script (com a verificação de erros removida)
const SVR = "www.microsoft.com"
dim telnet, s, i
set telnet = CreateObject("Rhs.Telnet")
telnet.Startup()
telnet.Connect SVR, 80
telnet.Writeline "GET / HTTP/1.0"
telnet.Writeline "Host: www.microsoft.com"
telnet.Writeline "User-Agent: RhsTelnet"
telnet.Writeline "Accept: */*"
telnet.Writeline ""
do while telnet.Readline(s, 1000)
wscript.echo s
loop
telnet.Disconnect()
telnet.Cleanup()
JR
Link para o servidor COM: oi Lachlan tente link
Este é o servidor COM e um script para reiniciar um roteador Draytek. O script RouterCheck.wsf verifica se ele pode executar ping em alguns hosts de teste, portanto, você provavelmente desejará ignorar a maior parte do código. Apenas use a função RebootRouter e ignore o resto. Isso é no final da minha linha ADSL, então o download pode ser um pouco lento.
Se alguém quiser a fonte (Visual C ++ 5.0 com ATL), então eu posso soltá-lo no SourceForge.