AskerSwali Ответов: 1

Vbscript для пинга списка компьютеров

Пожалуйста, помогите с помощью vbscript пропинговать список компьютеров в блокноте и хранить результаты пинга в блокноте.

1 Ответов

Рейтинг:
4

Prerak Patel 

dim strInputPath, strOutputPath, strStatus
dim objFSO, objTextIn, objTextOut

strInputPath = "c:\serverlist.txt" '- location of input
strOutputPath = "c:\output.csv" '- location of output

set objFSO = CreateObject("Scripting.FileSystemObject")
set objTextIn = objFSO.OpenTextFile( strInputPath,1 )
set objTextOut = objFSO.CreateTextFile( strOutputPath )
objTextOut.WriteLine("computer,status")

Do until objTextIn.AtEndOfStream = True
    strComputer = objTextIn.ReadLine
        if fPingTest( strComputer ) then
             strStatus = "UP"
        else
             strStatus = "DOWN"
        end if
        objTextOut.WriteLine(strComputer & "," & strStatus)
loop

function fPingTest( strComputer )
        dim objShell,objPing
        dim strPingOut, flag
        set objShell = CreateObject("Wscript.Shell")
        set objPing = objShell.Exec("ping " & strComputer)
    strPingOut = objPing.StdOut.ReadAll
    if instr(LCase(strPingOut), "reply") then
        flag = TRUE
        else
                flag = FALSE
        end if
        fPingTest = flag

end function



Ссылка: http://www.tek-tips.com/viewthread.cfm?qid=1125863&Страница=1[^]

AskerSwali

Его генерация является ошибкой времени выполнения

Prerak Patel

Неужели это так трудно отладить?! :до:
В любом случае, обновил ответ.
Надеюсь, теперь это сработает.

Dalek Dave

Хороший ответ (в конце концов!) :)

Prerak Patel

Спасибо ДД

AskerSwali

Спасибо всем. это сработало как заклинание!

Sandeep-ATOS

Можно ли проверить список серверов в определенное время. Например, если у меня есть список из 30 различных серверов, которые должны быть проверены в 30 различных данный момент времени?? если это возможно, то какие изменения должны быть внесены в исходный код?

[no name]

Так как я получил плохой ответ от своего поста и был удален с решением небольшой проблемы . Как вы обслуживаете просроченных в пути ?.... Он будет отображаться в отчете как статус вверх