23.02.2007 22:00:07Сканирование на SMTP Ответов: 0
Александр
Такой код:

strIPSubnet = "212.192.128."
Set objShell = CreateObject("WScript.Shell")
For strIPNode = 1 To 5
strComputer = strIPSubnet & strIPNode
Set objScriptExec = objShell.Exec("telnet " & strComputer & " 25")
WScript.Sleep(5000)
ok = objScriptExec.StdOut.ReadAll
If InStr(1, ok, "220") Then
WScript.Echo strComputer & ": Сервер отвечает!"
End If
Next

Никак не могу сделать, чтобы скрипт проверял диапазон серверов на SMTP-сервис. ((( Telnet ничего не хочет возвращать.