Серый форум — VBS: Тестирование интернет соединения

Re: VBS: Тестирование интернет соединения

null@example.com (GreyBear) — Thu, 08 Sep 2011 04:09:51 +0000

ну, и файл все же стоит закрыть в конце скрипта

tf.Close()

либо открывать и закрывать при каждой записи

Re: VBS: Тестирование интернет соединения

null@example.com (Dmitrii) — Wed, 07 Sep 2011 11:11:23 +0000

Dron пишет:

... выдает ошибку...

1. Какую именно ошибку и в какой строке?
2. Ключевое слово Time нельзя использовать в качестве имени переменной, т.к. это имя одной из стандартных функций (возвращает текущее системное время).
Кроме того, использование промежуточной переменной здесь вообще излишне. Можно так:

tf.Write(Now)

3. Что, уже изменились исходные условия задачи? Первоначально, кажется, речь шла о том, что запись в файл нужно выполнять лишь при изменении состояния подключения.

Re: VBS: Тестирование интернет соединения

null@example.com (GreyBear) — Wed, 07 Sep 2011 05:23:08 +0000

Dim fso, tf, time, CurrentStatus
CurrentStatus = false
Set fso = CreateObject("Scripting.FileSystemObject") 
Const ForAppending = 8 
Set tf = fso.OpenTextFile("Тест интернет.txt", ForAppending, True) 
time = Now() 
tf.Write(time) 
Set oShell = WScript.CreateObject("WScript.Shell") 
strHost = "www.google.ru" 
strPingCommand = "ping -n 1 -w 300 " & strHost 
ReturnCode = oShell.Run(strPingCommand, 0 , True) 
If ReturnCode = 0 Then 
  If (Not CurrentStatus) Then
    CurrentStatus = true    
    tf.WriteLine "" 
    tf.WriteLine "Есть подключение." 
  End If  
Else 
  If CurrentStatus Then
    CurrentStatus = false
    tf.WriteLine "" 
    tf.WriteLine "Нет подключения." 
  End If  
End If

Re: VBS: Тестирование интернет соединения

null@example.com (alexii) — Tue, 06 Sep 2011 12:38:19 +0000

Dron, пожалуйста, используйте знаки препинания в предложениях. Это облегчает понимание.

Re: VBS: Тестирование интернет соединения

null@example.com (Dron) — Tue, 06 Sep 2011 11:59:46 +0000

Не могли бы это написать в скрипте я в vbs не очень

Re: VBS: Тестирование интернет соединения

null@example.com (Dmitrii) — Tue, 06 Sep 2011 11:57:02 +0000

Dron пишет:

... на автомате запускался каждые 10 секунд ...

Используйте какой-нибудь подходящий планировщик (стандартный не умеет работать с интервалами времени менее 1 мин.).

Dron пишет:

... вместо того что бы выводить десять раз строку есть подключение надо что бы вывело только один раз до того момента пока подключение не исчезнет со строкой нет подключения аналогично.

Один из вариантов: читайте весь текст и сравнивайте последнюю записанную в него строку с текущим диагностическим сообщением. Если строки совпадают - ничего не пишите, не совпадают пишите.

VBS: Тестирование интернет соединения

null@example.com (Dron) — Tue, 06 Sep 2011 11:23:55 +0000

Сделал вот так не работает выдает ошибку че ему не хватает?

Dim fso, tf, time 
Set fso = CreateObject("Scripting.FileSystemObject") 
while 1=1 
Const ForAppending = 8 
Set tf = fso.OpenTextFile("Тест интернет.txt", ForAppending, True) 
time = Now() 
tf.Write(time) 
Set oShell = WScript.CreateObject("WScript.Shell") 
strHost = "192.168.0.150" 
strPingCommand = "ping -n 1 -w 300 " & strHost 
ReturnCode = oShell.Run(strPingCommand, 0 , True) 
If ReturnCode = 0 Then 
tf.WriteLine "" 
tf.WriteLine "Есть подключение." 
Else 
tf.WriteLine "" 
tf.WriteLine "Нет подключения." 
End If 
WScript.Sleep 10000 
wend