VPN Verbindung erzeugen

#cs
Dieses Skript erstellt eine neue VPN Verbindung
unter Windows XP, ohne Dialog Assistent.
#ce

Opt("WinTitleMatchMode", 2)

$titel = "Assistent für neue Verbindungen"

; Remote Adresse
$Hostname = "connect.swissvpn.net"

; Wie die VPN Verbindung benannt werden soll
$Verbindungsname = "Meine VPN Verbindung"

; Sollen gleich Anmeldedaten eingetragen werden?
; True = JA False = NEIN
$usereintragen = True
$user = "swissvpntest"
$passwort = "swissvpntest"

Run("rasphone -a","",@SW_HIDE )
Sleep(2500)

WinWaitActive($titel)
ControlClick($titel,"","Button2")
ControlClick($titel,"","Button6")
Sleep(600)
ControlClick($titel,"","Button1")
ControlClick($titel,"","Button8")
Sleep(600)
ControlSetText($titel,"","Edit1",$Hostname)
ControlClick($titel,"","Button8")
Sleep(600)
ControlSetText($titel,"","Edit1",$Verbindungsname)
ControlClick($titel,"","Button13")

If $usereintragen = False Then Exit 0

run("rasphone -d " & """" & $Verbindungsname & """","",@SW_HIDE )
Sleep(2500)

$titel = "Verbindung mit """ & $Verbindungsname & """ herstellen"
WinWaitActive($titel)
ControlSetText($titel,"","Edit1",$user)
ControlSetText($titel,"","Edit2",$passwort)
ControlClick($titel,"","Button1")
ControlClick($titel,"","Button2")
ControlClick($titel,"","Button4")

$titel = "Verbindung mit """ & $Verbindungsname & """"
If WinWaitActive($Verbindungsname,"",15) = 1 then
ControlClick($Verbindungsname,"","Button1")
Exit 0
EndIf

$titel = "Fehler bei der Verbindung mit """ & $Verbindungsname & """"
If WinWaitActive($titel,"",5) = 1 Then ControlClick($titel,"","Button2")
Exit 0