Серый форум — VBS: Автоматический коннект VPN

Re: VBS: Автоматический коннект VPN

null@example.com (dab00) — Tue, 25 Oct 2011 19:25:43 +0000

Re: VBS: Автоматический коннект VPN

null@example.com (nnn123) — Tue, 25 Oct 2011 18:53:11 +0000

и так.... сделал вот такое:

On Error Resume Next
set WshShell = CreateObject("WScript.Shell")
Return = WshShell.Run("rasdial conecction_name user password", 0, true)


WScript.Sleep 1000
Return = WshShell.Run ("rasdial connection_name user password", 0, true)
If Return=1 then
if Shell.Run(strCommand,1, True)=1 then wsh.quit

end if
dim oShell
set oShell= WScript.CreateObject("WScript.Shell") 
WScript.Echo "Неудачное подключпение"

Хочу сделать так чтобы при неудачном подключении к ВПН выдавалась сообщение. А в случае удачи ничего не выдовалось. Где я ошибся? Help.

Re: VBS: Автоматический коннект VPN

null@example.com (alexii) — Tue, 11 Oct 2011 10:14:14 +0000

Win32_PingStatus class

Re: VBS: Автоматический коннект VPN

null@example.com (nnn123) — Tue, 11 Oct 2011 07:06:43 +0000

тоже сейчас задаюсь таким вопросом)
например можно начать с этого: WshShell.Run("ping !здесь айпишник! ", 0, true)

вопрос только в методе подключения к впн...

Re: VBS: Автоматический коннект VPN

null@example.com (GreyBear) — Mon, 10 Oct 2011 08:03:46 +0000

Можно:
1. Пингуется хост (в WMI есть метод), доступный только при установленном vpn.
2. Если не отвечает, то попытка установить vpn соединение (соответственно VPN должен быть софтовым).
3. Пауза и возврат к п.1

VBS: Автоматический коннект VPN

null@example.com (Arlekin_s) — Fri, 07 Oct 2011 13:54:26 +0000

Всем доброго суток.. Есть вопрос.. Можно ли сделать такой скрипт.. который бы висел в процессах и проверял подключение VPN соединения. Если оно отключено то он его снова поднимает ?

Если можно ... то подскажите куда смотреть.