Da ich oft an verschiedenen Rechnern bin und ich gefragt wurde, hier ein kleines Skript zum erstellen einer VPN Verbindung. Getestet unter Windows XP, die Zugangsdaten in dem Skript sind von SwissVPN, zum testen ganz schön
Spoiler anzeigen
#cs
Dieses Skript erstellt eine neue VPN Verbindung
unter Windows XP, ohne Dialog Assistent.
#ce
Opt("WinTitleMatchMode", 2)
[/autoit] [autoit][/autoit] [autoit]$titel = "Assistent für neue Verbindungen"
[/autoit] [autoit][/autoit] [autoit]; 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
[/autoit] [autoit][/autoit] [autoit]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