Vbs создает Vpn

[dima_support 0]

Вот вопрос, кто подкинет скрипт, или подскажет что в этом не так

 

Dim objShell, sName, sHost

Set objShell = WScript.CreateObject("WScript.Shell")

 

sName = "COMPANY NAME"

sHost = "IP ADDRESS OR HOST NAME"

 

With objShell

.Run "Control ncpa.cpl"

wscript.sleep 2000

.AppActivate "Network Connections"

wscript.sleep 1000

.SendKeys "%FN"

wscript.sleep 1000

.SendKeys "%N"

wscript.sleep 1000

.SendKeys "%ON"

wscript.sleep 1000

.SendKeys "%VN"

wscript.sleep 1000

.SendKeys "%A" & sName & "%N"

wscript.sleep 1000

.SendKeys "%DN"

wscript.sleep 1000

.SendKeys "%H" & sHost & "%N"

wscript.sleep 1000

.SendKeys "%AN"

wscript.sleep 1000

.SendKeys "%S"

wscript.sleep 1000

.SendKeys "{TAB}{TAB}~"

wscript.sleep 1000

.SendKeys "{ESC}"

' .AppActivate "Connect " + sName

' .SendKeys "%{F4}"

End With

 

Камнями не кидать, я не програмист, а бейсик я еще 10 лет назад чтото как то проходил

[dima_support 0]

Что никто вобще не может подсказать