twksos

-- Please set your vpn connection name and password here
set VPNName to "VPN name"
set VPNpassword to "VPN password"

tell application "System Events"
	tell current location of network preferences
		set VPNService to service VPNName
	end tell
	
	set isConnected to connected of current configuration of VPNService