[Iska]

Что в Вашем понимании значит «открывается сайт»?

[AlexPebody]

Что в Вашем понимании значит «открывается сайт»? »

Зажал Enter на script.vbs открылся сайт yandex.ru, если yandex.ru не был доступен и не смог открыться, то открылся ngs.ru. Вот такое понимание. )

[Iska]

Что в Вашем понимании значит «открывается сайт»? »

Зажал Enter на script.vbs открылся сайт yandex.ru, … Вот такое понимание. ) »

Потрясающе.

Кырт - это кырт, потому что он кырт.

Когда-то ослепленная блеском кыртовых волокон, она спросила у своей няньки: - Почему он блестит, няня? - Потому, что это Кырт, Миаканс. - Почему другие вещи не блестят так, няня? - Другие - это не Кырт, Миаканс. Вот и все. Двухтомная монография на эту тему была написана только три года назад. Она внимательно прочла ее. Все сводилось к нянькиному объяснению. Кырт - это кырт, потому что он кырт.

Посредством Wbem класса Win32_PingStatus опрашиваете хост «yandex.ru». При его доступности вызываете URL этого хоста посредством метода «.Run()» объекта «WScript.Shell». При недоступности — то же самое для другого сайта.

[AlexPebody]

Спасибо. Это уже кое что, но не могли бы вы черкнуть скрипт хотябы пример? Я совсем немного знаю по VBS поэтому к сожалению пока не очень понимаю как сделать скрипт, а конкретных примеров нет в сети, вчера целый день рыл, в основе вылетает по php и apache команды, что я уже сделал... Но нужен скрипт в локали! ОЧЕНЬ!

[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 а там все другие обороты и синтаксис.

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

[AlexPebody]

ФУХ...................... Ыыы, все сам разрыл!

Код:

Option Explicit
Dim objSWbemServicesEx, collSWbemObjectSet, objSWbemObjectEx, strAddress
strAddress = "192.168.0.1"
Set objSWbemServicesEx = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set collSWbemObjectSet = objSWbemServicesEx.ExecQuery("SELECT * FROM Win32_PingStatus WHERE Address = '" & strAddress & "'")
For Each objSWbemObjectEx In collSWbemObjectSet
If IsNull(objSWbemObjectEx.StatusCode) Or objSWbemObjectEx.StatusCode <> 0 Then
WScript.CreateObject("Wscript.Shell").Run "http://yandex.ru/", 1, vbTrue
Else
WScript.CreateObject("Wscript.Shell").Run "http://ngs.ru/", 1, vbTrue
End If
Next
Set collSWbemObjectSet = Nothing
Set objSWbemServicesEx = Nothing
WScript.Quit 0