set mylist to {"FRANCE-TCP", "FRANCE-UDP", "GERMANY-TCP", "GERMANY-UDP"} 
 
set configVPN to some item of mylist 
 
display notification "Set VPN Config to: " & configVPN 
 
tell application "Tunnelblick" 
	connect configVPN 
	get state of first configuration where name = configVPN 
	repeat until result = "CONNECTED" 
		delay 1 
		get state of first configuration where name = configVPN 
	end repeat 
end tell 

set mylist to {"FRANCE-TCP", "FRANCE-UDP", "GERMANY-TCP", "GERMANY-UDP"} 
set ctr to 1 
 
repeat 
  set configVPN to some item of mylist 
   
  display notification "Set VPN Config to: " & configVPN 
   
  set nSecs to 0 
  set okay to false 
   
  tell application "Tunnelblick" 
    connect configVPN 
    get state of first configuration where name is configVPN 
     
    repeat 
      get state of first configuration where name is configVPN 
      if result is "CONNECTED" then 
        set okay to true 
        exit repeat 
      else 
        delay 1 
        set nSecs to nSecs + 1 
        if nSecs is 60 then 
          exit repeat 
        end if 
      end if 
    end repeat 
     
    if okay is false then 
      set ctr to ctr + 1 
      set dlogResult to button returned of (display dialog "Versuch Nummer " & ctr ¬ 
        buttons {" Abbrechen ", "Weiter"} default button 2 with icon 1) 
      if dlogResult is " Abbrechen " then 
        error number -128 
      end if 
    else 
      exit repeat 
    end if 
  end tell 
   
end repeat