VPN経由でネットワーク接続

VPN経由でネットワーク接続を行うAppleScriptです。

システム環境設定の「ネットワーク」で「VPN」を追加、定義し、正常にVPN接続できていることを確認してください。本AppleScriptはあらかじめ定義してあるVPN接続先への自動接続を行うものです。

複数のVPN接続を定義してある場合にはユーザーに選択を求めます。

VPN接続関連のAppleScriptの機能に、勝手に新規接続先を定義してVPN接続できるようなものはありません。あくまで、すでにユーザーが定義したVPN接続先に対して接続/切断を行うだけの機能です。

AppleScript名：VPN経由でネットワーク接続

— Created 2017-09-30 by Takaaki Naganoya
— 2017 Piyomaru Software

tell application "System Events"
　　tell current location of network preferences
　　　　set sList to every service whose kind is 13 –種別がVPNのNetwork Service
　　　　if sList = {} then return false
　　　　
　　　　if length of sList is not equal to 1 then
　　　　　　–複数VPNが存在している場合にはユーザー選択
　　　　　　set ssRes to choose from list sList
　　　　　　if ssRes = false then return false
　　　　　　set sRes to first item of ssRes
　　　　else
　　　　　　set sRes to first item of sList
　　　　end if
　　　　
　　　　connect sRes
　　end tell
end tell