[AlexPebody]

Есть вот такой скрипт пинга хоста и вывода лога:

Код:

dim fso, soWshShell : set soWshShell = CreateObject("WScript.Shell") 

Set fso = CreateObject("Scripting.FileSystemObject")
Const ForAppending = 8
Set tf = fso.OpenTextFile("logping.txt", ForAppending, True)
conCheckInterval = 60000 'интервал опроса в мс
WScript.Quit Main() 
function WriteLog() 

strMachines ="192.168.0.1;192.168.0.2"
aMachines = split(strMachines, ";")

For Each machine in aMachines
    Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
        ExecQuery("select * from Win32_PingStatus where address = '"_
            & machine & "'")
    For Each objStatus in objPing

        If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then 

tf.WriteLine(FormatDateTime(Date(), vbShortDate) & "|" & FormatDateTime(Time(), vbLongTime) & "|" & machine & "|" &"Cвязь с сервером  прервана.")

Его я так понимаю можно применить, но как... ппц опять же не соображу т.к. если и пишу то на php а там все другие обороты и синтаксис.

Прошу помощи...???