Когда я был в колледже, они раньше предоставляли Старшему брату как общедоступный сервис только для чтения, таким образом, это не неслыханно. Знание топологии сети могло открыть риск, если машины не все безопасны, и если Вы также сообщаете о номерах версий, та информация полезна для определения возможных уязвимостей.
И если, можно ограничить информацию доступную общественности, но мы нашли знание, на что снизились сервисы и когда они возвратились ценные для нашего персонала поддержки в общении с остальной частью колледжа.
Давным-давно я записал сервер COM, чтобы позволить мне делать telnet от VBScript. Если бы Вы хотите копию (включая источник), я был бы рад поместить его в Интернете где-нибудь. Я использую его для того, чтобы удаленно перезагрузить маршрутизаторы.
Для давания Вам некоторое представление о том, что это делает вот, сценарий в качестве примера (с удаленной проверкой ошибок)
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()
МЛАДШИЙ
Ссылка на Сервер COM: привет Лаклан пробует http://www.ratsauce.co.uk/RouterCheck.zip
Это - сервер COM и сценарий для перезагрузки маршрутизатора Draytek. RouterCheck.wsf сценария проверяет, может ли он проверить с помощью ping-запросов несколько тестовых хостов, таким образом, Вы, вероятно, захотите проигнорировать большую часть кода. Просто используйте RebootRouter, функционируют и игнорируют остальных. Это в конце моей строки ADSL, таким образом, загрузка может быть немного медленной.
Если кто-либо хочет источник (Visual C++ 5.0 с ATL) затем, я могу отбросить его на SourceForge.
Вы могли установить Perl и использовать Сеть:: Telnet, который позволяет Вам обоим отправить и интерпретировать полученные данные.
ActivePerl является, вероятно, самым быстрым способом встать и работающий с этим:
http://www.activestate.com/activeperl/
И Сеть:: Telnet документируется здесь:
http://search.cpan.org/~jrogers/Net-Telnet-3.03/lib/Net/Telnet.pm
Дальнейшие вопросы о том, как кодировать Сеть использования:: Telnet, вероятно, принадлежит на StackOverflow. Можно также хотеть посмотреть на www.perlmonks.org для примеров и подсказок.
Если Вы не возражаете против коммерческого решения, там бизнес-клиент telnet под названием TeSSH, который имеет богатый язык сценариев, и может быть выполнен от командной строки. Это имеет поддержку записи сценариев в vbs, жемчуге и lua. Это довольно недорого на уровне 34,95$. Можно также посетить Форумы поддержки TeSSH.
Я знаю, что это - ужасно старый поток, но я произошел сюда из связанного вопроса и заметил, что был пропущен очень очевидный ответ. Когда-нибудь услышанный о шпаклевке? Существует командная строка scriptable версия, названная звоном.
Я создал этот пакетный сценарий на основе предыдущего ответа :
@ECHO OFF
SET ME=from@example.com
SET TO=to@example.com
SET TF=%TEMP%\%~n0.vbs
(
ECHO Set sh = WScript.CreateObject^("WScript.Shell"^)
ECHO sh.SendKeys "HELO %COMPUTERNAME%~"
ECHO sh.SendKeys "MAIL FROM: %ME%~"
ECHO sh.SendKeys "RCPT TO: %TO%~"
ECHO sh.SendKeys "DATA~"
ECHO sh.SendKeys "From: %ME%~"
ECHO sh.SendKeys "To: %TO%~"
ECHO sh.SendKeys "Subject: Example subject...~"
ECHO sh.SendKeys "~"
ECHO sh.SendKeys "Contents...~"
ECHO sh.SendKeys ".~"
ECHO sh.SendKeys "QUIT~"
ECHO WScript.Sleep 1000
ECHO sh.SendKeys "~"
) > "%TF%"
START "" TELNET.EXE SMTPSERVER 25
CSCRIPT //NoLogo "%TF%"
DEL "%TF%"