[TCC]サービス名を指定してTCCをリセットする

---

【スクリプトエディタで開く】| クリップボードへコピー

#!/usr/bin/env osascript

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

#

(*

error number -128

com.cocolog-nifty.quicktimer.icefloe

*)

#

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

##自分環境がos12なので2.8にしているだけです

use AppleScript version "2.8"

use framework "Foundation"

use scripting additions

set listAllKeys to {"Accessibility", "AddressBook", "All", "AppleEvents", "Calendar", "Camera", "ContactsFull", "ContactsLimited", "Facebook", "FileProviderDomain", "FileProviderPresence", "LinkedIn", "Liverpool", "MediaLibrary", "Microphone", "Motion", "Photos", "PhotosAdd", "PostEvent", "Reminders", "ScreenCapture", "ShareKit", "SinaWeibo", "Siri", "SpeechRecognition", "SystemPolicyAllFiles", "SystemPolicyDesktopFolder", "SystemPolicyDeveloperFiles", "SystemPolicyDocumentsFolder", "SystemPolicyNetworkVolumes", "SystemPolicyRemovableVolumes", "SystemPolicySysAdminFiles", "SystemPolicyDownloadsFolder", "TencentWeibo", "Twitter", "Ubiquity", "Willow"} as list

##############################

#####ダイアログを前面に

##############################

tell current application

  set strName to name as text

end tell

####スクリプトメニューから実行したら

if strName is "osascript" then

  tell application "Finder"

    activate

  end tell

else

  tell current application

    activate

  end tell

end if

##############################

#####ダイアログ

##############################

try

  set listResponse to (choose from list listAllKeys with title "選んでください" with prompt "リセットするTCCサービスを選んでください" default items (item 3 of listAllKeys) without multiple selections allowed and empty selection allowed)

on error

  log "エラーしました"

return "エラーしました"

end try

if listResponse is false then

return "キャンセルしました"

end if

set strResponse to (item 1 of listResponse) as text

###TCCの位置情報サービス名でリセット ユーザー

set strCommandText to ("/usr/bin/tccutil reset \"" & strResponse & "\"") as text

do shell script strCommandText with administrator privileges

###TCCの位置情報サービス名でリセット ローカル

set strCommandText to ("/usr/bin/sudo /usr/bin/tccutil reset \"" & strResponse & "\"") as text

do shell script strCommandText with administrator privileges

---