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

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

2011-10-25T19:25:43Z

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

2011-10-25T18:53:11Z

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

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

2011-10-11T10:14:14Z

Win32_PingStatus class

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

2011-10-11T07:06:43Z

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

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

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

2011-10-10T08:03:46Z

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

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

2011-10-07T13:54:26Z

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

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