VBScript соединение установлено, а затем сделать

Question

Я ищу помощь. Я хотел бы иметь простой VBS, который проверит, есть ли живое соединение. Я нашел кое-что в поиске, но ответы, похоже, специфичны для заданных вопросов, и я не уверен, смогу ли я разбить их, чтобы работать на меня.

Я нашел

Как запустить скрипт VBS после обнаружения интернет-соединения в Windows XP?

, что было бы почти хорошим началом, но я не ищу функцию зацикливания

Также

Проверка сетевого соединения с VBScript

Но, честно говоря, это выглядит интимно.

VBS, которые я хотел бы иметь, работал бы тихо (вроде dim object shell), и он попадал в папку автозагрузки. Я хотел бы проверить, работает ли интернет-соединение (возможно, пинговать сайт), и если да, то что-то сделать, иначе выйти при запуске. Он будет удален самостоятельно после подключения к Интернету и продолжения установки.

Answer 1

Нашел способ заставить его работать. И я просто изменил «If PINGFlag then», чтобы открыть веб-сайт, ссылающийся на файл для загрузки, и «Остальное» для выполнения других функций. Уже проверено. Работает.

set WshShell = CreateObject("WScript.Shell") 

WshShell.run ("%COMSPEC% /c ipconfig  /release"), 0, true
WshShell.run ("%COMSPEC% /c ipconfig  /renew"), 0, true

PINGFlag = Not CBool(WshShell.run("ping -n 1 www.google.com",0,True))
If PINGFlag Then
    MsgBox "ip release/renew was successful."
Else
    MsgBox "ip release/renew was not successful"
End If