VPN: shortcut trigger for quicksilver

gistfile1

tell application "System Events"
	tell current location of network preferences
		set Modemdailup to service "VPN2"
		if exists Modemdailup then disconnect Modemdailup
		set Modemdailup2 to service "VPN3"
		if exists Modemdailup2 then disconnect Modemdailup2
	end tell
end tell

// tell application "System Events"
// 	tell current location of network preferences
// 		set VPNservice to service "VPN3" -- name of the VPN service
// 		set isConnected to connected of current configuration of VPNservice
// 		if isConnected then
// 			disconnect VPNservice
// 		else
// 			connect VPNservice
// 		end if
// 	end tell
// end tell