1 Тема от Arlekin_s (изменено: Arlekin_s, 2011-10-07 17:55:45)

  • Arlekin_s
  • Участник
  • Неактивен

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

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

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

2 Ответ от GreyBear (изменено: GreyBear, 2011-10-10 12:04:18)

  • GreyBear
  • Участник
  • Неактивен

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

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

3 Ответ от nnn123

  • nnn123
  • Участник
  • Неактивен

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

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

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

4 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

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

Win32_PingStatus class

5 Ответ от nnn123 (изменено: nnn123, 2011-10-25 22:54:38)

  • nnn123
  • Участник
  • Неактивен

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

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

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.

6 Ответ от dab00

  • dab00
  • Разработчик
  • Неактивен

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

Run Method

Мой проект