LaunchAgents・LaunchDaemonsの起動項目を停止する: [FORCE]

LaunchAgents・LaunchDaemonsの起動項目を停止する

アプリケーションを削除するときに
忘れがちなLaunchAgentsとLaunchDaemonsを削除（といっても移動して取っておくけど）する
最近wacomのタブレット・ドライバの削除時に
なぜか？削除されずに残ったので作成しておいた
ポイントは

/bin/launchctl' unload

削除するまえにちゃんとアンロードするでしょうか？
（まぁ削除しちゃっても、次回の電源OFF〜On時に読まれなくなるので不要と言えばナニだけど）

(*

DelLaunchPlist.scpt
20170202　初回作成

あらかじめDisabled用のディレクトリを作って
LaunchAgents
LaunchDaemons
に
ある、起動項目をアン・ロードして停止
停止後、にDisabledディレクトリに移動します。

*)




on run
---プロンプトの文言改行が使えます\nを入れます
set theWithPrompt to ""
---ファイル選択ダイアログのデフォルトのディレクトリ
set theDefLoc to (((the path to library folder from user domain) as text) & "LaunchAgents:") as alias
---Uniform Type Identifier指定
---詳しくは http://goo.gl/6jAQa Uniform Type Identifier
set theFileType to "com.apple.property-list" as text
---↑のファイルタイプをリスト形式に整形する
set AppleScript's text item delimiters to {","}
set theFileTypeList to every text item of theFileType
---ダイアログを出して選択されたファイルは「open」に渡す
open (choose file default location theDefLoc ¬
with prompt theWithPrompt ¬
of type theFileTypeList ¬
invisibles true ¬
with multiple selections allowed without showing package contents)
end run






on open ObjDropOrOpen

---ユーザードメインのライブラリにLaunchAgents(Disabled)フォルダを作ります
try
set theCmdCom to ""
set theUserLaunchAgents to (((the path to library folder from user domain) as text) & "LaunchAgents:") as alias
set theUserLaunchAgentsPath to POSIX path of theUserLaunchAgents as text
set theUserLaunchAgentsPathDisabled to doReplace(theUserLaunchAgentsPath, "LaunchAgents/", "LaunchAgents(Disabled)")
---コマンドライン整形
set theCmdCom to ("'/bin/mkdir'  -p '" & theUserLaunchAgentsPathDisabled & "'") as text
---コマンド実行
do shell script theCmdCom
end try
---ローカルドメインのライブラリにLaunchAgents(Disabled)フォルダを作ります
try
set theCmdCom to ""
set theLocalLaunchAgents to (((the path to library folder from local domain) as text) & "LaunchAgents:") as alias
set theLocalLaunchAgentsPath to POSIX path of theLocalLaunchAgents as text
set theLocalLaunchAgentsPathDisabled to doReplace(theLocalLaunchAgentsPath, "LaunchAgents/", "LaunchAgents(Disabled)")
---コマンドライン整形
set theCmdCom to ("'/bin/mkdir'  -p '" & theLocalLaunchAgentsPathDisabled & "'") as text
---コマンド実行
do shell script theCmdCom with administrator privileges
end try
---ローカルドメインのライブラリにLaunchDaemons(Disabled)フォルダを作ります
try
set theCmdCom to ""
set theLocalLaunchDaemons to (((the path to library folder from local domain) as text) & "LaunchDaemons:") as alias
set theLocalLaunchDaemonsPath to POSIX path of theLocalLaunchDaemons as text
set theLocalLaunchDaemonsPathDisabled to doReplace(theLocalLaunchDaemonsPath, "LaunchDaemons/", "LaunchDaemons(Disabled)")
---コマンドライン整形
set theCmdCom to ("'/bin/mkdir'  -p '" & theLocalLaunchDaemonsPathDisabled & "'") as text
---コマンド実行
do shell script theCmdCom with administrator privileges
end try
---システムドメインのライブラリにLaunchAgents(Disabled)フォルダを作ります
try
set theCmdCom to ""
set theSystemLaunchAgents to (((the path to library folder from system domain) as text) & "LaunchAgents:") as alias
set theSystemLaunchAgentsPath to POSIX path of theSystemLaunchAgents as text
set theSystemLaunchAgentsPathDisabled to doReplace(theSystemLaunchAgentsPath, "LaunchAgents/", "LaunchAgents(Disabled)")
---コマンドライン整形
set theCmdCom to ("'/bin/mkdir'  -p '" & theSystemLaunchAgentsPathDisabled & "'") as text
---コマンド実行
do shell script theCmdCom with administrator privileges
end try
---システムドメインのライブラリにLaunchDaemons(Disabled)フォルダを作ります
try
set theCmdCom to ""
set theSystemLaunchDaemons to (((the path to library folder from system domain) as text) & "LaunchDaemons:") as alias
set theSystemLaunchDaemonsPath to POSIX path of theSystemLaunchDaemons as text
set theSystemLaunchDaemonsPathDisabled to doReplace(theSystemLaunchDaemonsPath, "LaunchDaemons/", "LaunchDaemons(Disabled)")
---コマンドライン整形
set theCmdCom to ("'/bin/mkdir'  -p '" & theSystemLaunchDaemonsPathDisabled & "'") as text
---コマンド実行
do shell script theCmdCom with administrator privileges
end try


---複数選択した場合もあるのでリピート

repeat with objFiles in ObjDropOrOpen
---選択したファイルのエイリアスを取得
set theAlias to objFiles as alias
---UNIXパスに変換
set thePlistPath to POSIX path of theAlias as text
---アクセス権を調整
try
---コマンドライン整形
set theCmdCom to ("'/bin/chmod'  644 '" & thePlistPath & "'") as text
---コマンド実行
do shell script theCmdCom with administrator privileges
end try
---オーナーをrootに変更
try
---コマンドライン整形
set theCmdCom to ("'/usr/sbin/chown'  root '" & thePlistPath & "'") as text
---コマンド実行
do shell script theCmdCom with administrator privileges
end try
---ここでようやくアン・ロード（停止）させます
try
---コマンドライン整形
set theCmdCom to ("'/bin/launchctl'  unload -w '" & thePlistPath & "'") as text
---コマンド実行
do shell script theCmdCom with administrator privileges
end try
---停止後にDisabledディレクトリに移動
if thePlistPath contains theUserLaunchAgentsPath then
---コマンドライン整形
set theCmdCom to ("'/bin/mv'  -f '" & thePlistPath & "' '" & theUserLaunchAgentsPathDisabled & "'") as text
---コマンド実行
do shell script theCmdCom with administrator privileges

else if thePlistPath contains theSystemLaunchAgentsPath then
---コマンドライン整形
set theCmdCom to ("'/bin/mv'  -f '" & thePlistPath & "' '" & theSystemLaunchAgentsPathDisabled & "'") as text
---コマンド実行
do shell script theCmdCom with administrator privileges

else if thePlistPath contains theSystemLaunchDaemonsPath then
---コマンドライン整形
set theCmdCom to ("'/bin/mv'  -f '" & thePlistPath & "' '" & theSystemLaunchDaemonsPathDisabled & "'") as text
---コマンド実行
do shell script theCmdCom with administrator privileges

else if thePlistPath contains theLocalLaunchAgentsPath then
---コマンドライン整形
set theCmdCom to ("'/bin/mv'  -f '" & thePlistPath & "' '" & theLocalLaunchAgentsPathDisabled & "'") as text
---コマンド実行
do shell script theCmdCom with administrator privileges

else if thePlistPath contains theLocalLaunchDaemonsPath then
---コマンドライン整形
set theCmdCom to ("'/bin/mv'  -f '" & thePlistPath & "' '" & theLocalLaunchDaemonsPathDisabled & "'") as text
---コマンド実行
do shell script theCmdCom with administrator privileges
end if
end repeat
end open




-----#文字の置き換え
to doReplace(theText, orgStr, newStr)
set oldDelim to AppleScript's text item delimiters
set AppleScript's text item delimiters to orgStr
set tmpList to every text item of theText
set AppleScript's text item delimiters to newStr
set tmpStr to tmpList as text
set AppleScript's text item delimiters to oldDelim
return tmpStr
end doReplace