wilderwind
Сообщений: 269
Оценки: 0
Присоединился: 2006-05-28 13:41:45
|
Есть код: strIPSubnet = "212.192.128." Set objShell = CreateObject("WScript.Shell") For strIPNode = 1 To 5 strComputer = strIPSubnet & strIPNode Set objScriptExec = objShell.Exec("telnet " & strComputer & " 25") Set ok = objScriptExec.StdOut.ReadAll() If (instrrev(ok,"220")=0) Then WScript.Echo strComputer & ": Сервер отвечает!" End If Next Цель - сканировать заданный диапазон на наличие SMTP-сервиса. 220 - код ответа SMTP, означающий что-то типа "всё окей, жду дальнейших команд". Ну НИКАК этот код у меня не хочет работать Это VBScript, но я буду благодарен за пример на любом языке, т.к. о общих чертах знаю почти все распространённые типа C, VB6, Delphi. Необходимо сделать это с помощью считывания ответа из приложения telnet.exe
|