sudo のログを取得する(macOS15以降用）

---

AppleScript サンプルコード

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

AppleScript サンプルソース（参考）

行番号	ソース
001	#!/usr/bin/env osascript
002	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
003	# com.cocolog-nifty.quicktimer.icefloe
004	# オリジナルスクリプト
005	# https://derflounder.wordpress.com/2024/10/18/successfully-run-sudo-commands-are-no-longer-logged-by-default-to-unified-logging-on-macos-sequoia/
006	#回数は行数から取得しているのでアバウトな値です
007	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
008	use AppleScript version "2.8"
009	use framework "Foundation"
010	use framework "AppKit"
011	use scripting additions
012
013	property refMe : a reference to current application
014
015	#設定項目　ログの精査する時間
016	set strTimeH to "3h"
017
018
019	#保存先
020	set appFileManager to refMe's NSFileManager's defaultManager()
021	set ocidTempDirURL to appFileManager's temporaryDirectory()
022	set ocidUUID to refMe's NSUUID's alloc()'s init()
023	set ocidUUIDString to ocidUUID's UUIDString
024	set ocidSaveDirPathURL to ocidTempDirURL's URLByAppendingPathComponent:(ocidUUIDString) isDirectory:true
025	set ocidAttrDict to refMe's NSMutableDictionary's alloc()'s initWithCapacity:0
026	ocidAttrDict's setValue:(511) forKey:(refMe's NSFilePosixPermissions)
027	set listBoolMakeDir to appFileManager's createDirectoryAtURL:(ocidSaveDirPathURL) withIntermediateDirectories:true attributes:(ocidAttrDict) |error| :(reference)
028	#保存ファイル
029	set strFileName to "sudo.log" as text
030	set ocidSaveFilePathURL to ocidSaveDirPathURL's URLByAppendingPathComponent:(strFileName) isDirectory:false
031	#出力用のテキスト
032	set ocidOutputString to refMe's NSMutableString's alloc()'s initWithCapacity:(0)
033
034	#コマンド実行　エラー回数
035	set strCommandText to ("/usr/bin/log  show --last " & strTimeH & " --style syslog --predicate 'process == \"sudo\" AND composedMessage CONTAINS \"incorrect\"'") as text
036	log "\n" & strCommandText & "\n"
037	try
038	set strResponse to (do shell script strCommandText) as string
039	on error
040	return "log でエラーしましたA"
041	end try
042	ocidOutputString's appendString:(strResponse)
043	set ocidOutputString to (ocidOutputString's stringByReplacingOccurrencesOfString:("\r") withString:("\n"))
044	#
045	set ocidIncorrectArray to ocidOutputString's componentsSeparatedByString:("\n")
046	#行数数えて
047	set numCntIncorrect to ocidIncorrectArray's |count|()
048	if (numCntIncorrect as integer) >= 2 then
049	display notification "sudo エラーが発生しています" with title "セキュリティアラート" subtitle "sudoコマンドでのエラーが発生しました。アカウントのセキュリティを確認してください" sound name "Sonumi"
050	display alert "sudo エラーが発生しています" message "sudoコマンドでのエラーが発生しました。アカウントのセキュリティを確認してください" giving up after 2 as critical
051	end if
052
053	#コマンド実行
054	set strCommandText to ("/usr/bin/log  show --last " & strTimeH & " --style syslog --predicate 'process == \"sudo\"'") as text
055	log "\n" & strCommandText & "\n"
056	try
057	set strResponse to (do shell script strCommandText) as string
058	on error
059	return "log でエラーしましたB"
060	end try
061	##改行置換
062	ocidOutputString's appendString:("------\n")
063	ocidOutputString's appendString:(strResponse)
064	set ocidOutputString to (ocidOutputString's stringByReplacingOccurrencesOfString:("\r") withString:("\n"))
065	ocidOutputString's appendString:("------\n")
066	#行数数えて
067	set ocidFilePathStr to refMe's NSString's stringWithString:(strResponse)
068	set ocidSudoArray to ocidOutputString's componentsSeparatedByString:("\n")
069	set numCntSudo to ocidSudoArray's |count|()
070	#
071	set strRawNo to ("sudo回数: " & (numCntSudo as text) & "回\nうちエラー回数: " & (numCntIncorrect as text) & "回\n") as text
072	set strMes to ("sudoのログです") as text
073	#
074	tell current application
075	set strName to name as text
076	end tell
077	if strName is "osascript" then
078	tell application "Finder"
079	activate
080	end tell
081	else
082	tell current application
083	activate
084	end tell
085	end if
086	set aliasIconPath to (POSIX file "/System/Library/CoreServices/CoreTypes.bundle/Contents/Resources/Actions.icns") as alias
087	try
088	set recordResult to (display dialog strMes with title "戻り値です" default answer strRawNo buttons {"クリップボードにコピー", "終了", "詳細ログを開く"} default button "詳細ログを開く" cancel button "終了" giving up after 20 with icon aliasIconPath without hidden answer) as record
089	on error
090	return "エラーしました"
091	end try
092	if (gave up of recordResult) is true then
093	return "時間切れです"
094	end if
095	##############################
096	#####
097	##############################
098	if button returned of recordResult is "詳細ログを開く" then
099	set listDone to (ocidOutputString's writeToURL:(ocidSaveFilePathURL) atomically:(true) encoding:(refMe's NSUTF8StringEncoding) |error| :(reference))
100	#開く
101	set appSharedWorkspace to refMe's NSWorkspace's sharedWorkspace()
102	set boolDone to appSharedWorkspace's openURL:(ocidSaveFilePathURL)
103	end if
104	##############################
105	#####値のコピー
106	##############################
107	if button returned of recordResult is "クリップボードにコピー" then
108	try
109	set strText to text returned of recordResult as text
110	####ペーストボード宣言
111	set appPasteboard to refMe's NSPasteboard's generalPasteboard()
112	set ocidText to (refMe's NSString's stringWithString:(strText))
113	appPasteboard's clearContents()
114	appPasteboard's setString:(ocidText) forType:(refMe's NSPasteboardTypeString)
115	on error
116	tell application "Finder"
117	set the clipboard to strText as text
118	end tell
119	end try
120	end if
121
122
123	return 0
124
125
AppleScriptで生成しました

---

AEA1 拡張子 aea の解凍

---

サンプルコード

クリップボードへコピー

サンプルソース（参考）

行番号	ソース
001	#!/bin/bash
002	#com.cocolog-nifty.quicktimer.icefloe
003	# ipsw バイナリー
004	# iOS/macOS Research
005	# https://github.com/blacktop/ipsw
006	#################################################
007
008
009	STAT_USR=$(/usr/bin/stat -f%Su /dev/console)
010	STR_BIN_PATH="/Users/${STAT_USR}/bin/ipsw/ipsw"
011	STR_AEA_PATH="/Users/${STAT_USR}/Downloads/UniversalMac_15.0_24A335_Restore/096-29336-585.dmg.aea"
012	#ファイル名
013	STR_EXTRACT_PATH=$(/usr/bin/basename "$STR_AEA_PATH" ".aea")
014	PARENT_DIR=$(/usr/bin/dirname "$STR_AEA_PATH")
015	STR_SAVE_PATH="${PARENT_DIR}/${STR_EXTRACT_PATH}"
016
017	STR_KEY_VALUE=$("$STR_BIN_PATH" fw aea --key "$STR_AEA_PATH")
018
019	/usr/bin/aea decrypt -i "$STR_AEA_PATH" -o "$STR_SAVE_PATH" -key-value "$STR_KEY_VALUE"
020
021
022	/bin/echo "DONE"
AppleScriptで生成しました

---

[lsof]プロセスが握っているファイルの一覧を出力する

使用中ファイル（キーワードGrep）

---

AppleScript サンプルコード

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

AppleScript サンプルソース（参考）

行番号	ソース
001	#!/usr/bin/env osascript
002	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
003	#
004	#com.cocolog-nifty.quicktimer.icefloe
005	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
006	use AppleScript version "2.8"
007	use framework "Foundation"
008	use framework "AppKit"
009	use scripting additions
010
011	property refMe : a reference to current application
012	set strMes to ("プロセス名やプロセス番号等を入力\nよく使う気ワード\nsock　ソケット\nTCP ESTABLISHED\nユーザー名 root wheel等\nディスク名\n接続名 DIR REG ") as text
013
014	########################
015	## クリップボードの中身取り出し
016	########################
017	###初期化
018	set appPasteboard to refMe's NSPasteboard's generalPasteboard()
019	##格納されているタイプをリストにして
020	set ocidPastBoardTypeArray to appPasteboard's types
021	###テキストがあれば
022	set boolContain to ocidPastBoardTypeArray's containsObject:("public.utf8-plain-text")
023	if (boolContain as boolean) is true then
024	###値を格納する
025	tell application "Finder"
026	set strReadString to (the clipboard as text) as text
027	end tell
028	else
029	###UTF8が無いなら
030	##テキスト形式があるか？確認して
031	set boolContain to ocidPastBoardTypeArray's containsObject:(refMe's NSPasteboardTypeString)
032	##テキスト形式があるなら
033	if (boolContain as boolean) is true then
034	set ocidTypeClassArray to refMe's NSMutableArray's alloc()'s initWithCapacity:(0)
035	ocidTypeClassArray's addObject:(refMe's NSString)
036	set ocidReadString to appPasteboard's readObjectsForClasses:(ocidTypeClassArray) options:(missing value)
037	set strReadString to ocidReadString as text
038	else
039	log "テキストなし"
040	set strReadString to strMes as text
041	end if
042	end if
043	##############################
044	#####ダイアログ
045	##############################
046	###ダイアログを前面に出す
047	set strName to (name of current application) as text
048	if strName is "osascript" then
049	tell application "Finder" to activate
050	else
051	tell current application to activate
052	end if
053	set aliasIconPath to POSIX file "/System/Applications/Calculator.app/Contents/Resources/AppIcon.icns" as alias
054	try
055	set recordResult to (display dialog strMes with title "入力してください" default answer strReadString buttons {"OK", "キャンセル"} default button "OK" with icon aliasIconPath giving up after 20 without hidden answer) as record
056	on error
057	log "エラーしました"
058	return
059	end try
060	if "OK" is equal to (button returned of recordResult) then
061	set strReturnedText to (text returned of recordResult) as text
062	else if (gave up of recordResult) is true then
063	return "時間切れです"
064	else
065	return "キャンセル"
066	end if
067	##############################
068	#####戻り値整形
069	##############################
070	set ocidResponseText to (refMe's NSString's stringWithString:(strReturnedText))
071	###タブと改行を除去しておく
072	set ocidTextM to refMe's NSMutableString's alloc()'s initWithCapacity:(0)
073	ocidTextM's appendString:(ocidResponseText)
074	###除去する文字列リスト
075	set listRemoveChar to {"\n", "\r", "\t", "¥", "￥", "\\s"} as list
076	##置換
077	repeat with itemChar in listRemoveChar
078	set strPattern to itemChar as text
079	set strTemplate to ("") as text
080	set ocidOption to (refMe's NSRegularExpressionCaseInsensitive)
081	set listResponse to (refMe's NSRegularExpression's regularExpressionWithPattern:(strPattern) options:(ocidOption) |error| :(reference))
082	if (item 2 of listResponse) ≠ (missing value) then
083	log (item 2 of listResponse)'s localizedDescription() as text
084	return "正規表現パターンに誤りがあります"
085	else
086	set ocidRegex to (item 1 of listResponse)
087	end if
088	set numLength to ocidResponseText's |length|()
089	set ocidRange to refMe's NSRange's NSMakeRange(0, numLength)
090	set ocidResponseText to (ocidRegex's stringByReplacingMatchesInString:(ocidResponseText) options:0 range:(ocidRange) withTemplate:(strTemplate))
091	end repeat
092
093	set strResponseText to ocidResponseText as text
094
095	set strComandText to ("/usr/sbin/lsof | grep \"" & strResponseText & "\"") as text
096	log strComandText
097	try
098	set strResponse to (do shell script strComandText) as text
099	on error
100	set strResponse to "使用中のファイルはありませんでした"
101	end try
102
103
104	#######
105	set strDateNo to doGetDateNo("yyyyMMddhhmmss")
106	set strFileName to strDateNo & ".txt" as text
107	set aliasTemporaryPath to path to temporary items from user domain as alias
108	set strFilePath to (POSIX path of aliasTemporaryPath) & strFileName as text
109	tell application "TextEdit"
110	activate
111	make new document with properties {name:strFileName, path:strFilePath}
112	tell document strFileName
113	activate
114	set its text to "使用中のファイルのパス\r" & strResponse
115	save in (POSIX file strFilePath)
116	end tell
117	end tell
118	#######
119
120	tell application "Finder"
121	set aliasPathToMe to (path to me) as alias
122	end tell
123	run script aliasPathToMe with parameters "再実行"
124
125
126
127	to doGetDateNo(strDateFormat)
128	####日付情報の取得
129	set ocidDate to refMe's NSDate's |date|()
130	###日付のフォーマットを定義
131	set ocidNSDateFormatter to refMe's NSDateFormatter's alloc()'s init()
132	ocidNSDateFormatter's setLocale:(refMe's NSLocale's localeWithLocaleIdentifier:"en_US")
133	ocidNSDateFormatter's setDateFormat:strDateFormat
134
135	set ocidDateAndTime to ocidNSDateFormatter's stringFromDate:ocidDate
136	set strDateAndTime to ocidDateAndTime as text
137	return strDateAndTime
138	end doGetDateNo
AppleScriptで生成しました

---

使用中ファイル（ディスク指定）

---

AppleScript サンプルコード

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

AppleScript サンプルソース（参考）

行番号	ソース
001	#!/usr/bin/env osascript
002	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
003	#
004	#com.cocolog-nifty.quicktimer.icefloe
005	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
006
007	use AppleScript version "2.8"
008	use framework "Foundation"
009	use scripting additions
010
011	property refMe : a reference to current application
012
013	##########################
014	## ディスクリスト
015	##########################
016	set listDiskName to {}
017
018	tell application "System Events"
019	set listObjDisk to every disk as list
020	repeat with objDisk in listObjDisk
021	tell objDisk
022	##ディスク名をリストに格納
023	set srtDiskName to name
024	copy "" & srtDiskName & "" to end of listDiskName
025	end tell
026	end repeat
027	end tell
028
029	##########################
030	## ダイアログ
031	##########################
032	###ダイアログを前面に出す
033	set strName to (name of current application) as text
034	if strName is "osascript" then
035	tell application "Finder" to activate
036	else
037	tell current application to activate
038	end if
039	set numCntDisk to (count of listDiskName) as integer
040	try
041	set strDiskName to (choose from list listDiskName with title "ディスクの選択" with prompt "使用中のファイルリストを出力します" default items (item numCntDisk of listDiskName) OK button name "OK" cancel button name "キャンセル" with multiple selections allowed without empty selection allowed)
042	on error
043	log "エラーしました"
044	return
045	end try
046	if strDiskName is false then
047	return
048	end if
049	try
050	set theComandText to ("/usr/sbin/lsof \"/Volumes/" & strDiskName & "\"") as text
051	set strResponse to (do shell script theComandText) as text
052	on error
053	set strResponse to "使用中のファイルはありませんでした"
054	end try
055
056	set strDateNo to doGetDateNo("yyyyMMddhhmmss")
057	set strFileName to strDateNo & ".txt" as text
058	set aliasTemporaryPath to path to temporary items from user domain as alias
059	set strFilePath to (POSIX path of aliasTemporaryPath) & strFileName as text
060	tell application "TextEdit"
061	activate
062	make new document with properties {name:strFileName, path:strFilePath}
063	tell document strFileName
064	activate
065	set its text to "使用中のファイルのパス\r" & strResponse
066	save in (POSIX file strFilePath)
067	end tell
068	end tell
069
070	#######
071
072	tell application "Finder"
073	set aliasPathToMe to (path to me) as alias
074	end tell
075	run script aliasPathToMe with parameters "再実行"
076
077
078	to doGetDateNo(strDateFormat)
079	####日付情報の取得
080	set ocidDate to refMe's NSDate's |date|()
081	###日付のフォーマットを定義
082	set ocidNSDateFormatter to refMe's NSDateFormatter's alloc()'s init()
083	ocidNSDateFormatter's setLocale:(refMe's NSLocale's localeWithLocaleIdentifier:"en_US")
084	ocidNSDateFormatter's setDateFormat:strDateFormat
085
086	set ocidDateAndTime to ocidNSDateFormatter's stringFromDate:ocidDate
087	set strDateAndTime to ocidDateAndTime as text
088	return strDateAndTime
089	end doGetDateNo
AppleScriptで生成しました

---

Affinityのダウンロード用のURLを取得する（クエリー付き）

---

AppleScript サンプルコード

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

AppleScript サンプルソース（参考）

行番号	ソース
001	#!/usr/bin/env osascript
002	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
003	#
004	#com.cocolog-nifty.quicktimer.icefloe
005	#
006	#
007	#
008	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
009	use AppleScript version "2.8"
010	use framework "Foundation"
011	use framework "AppKit"
012	use scripting additions
013	property refMe : a reference to current application
014
015
016	#対象のURL
017	# set strURL to ("https://store.serif.com/en-gb/update/macos/publisher/2/") as text
018	# set strURL to ("https://store.serif.com/en-gb/update/macos/photo/2/") as text
019	set strURL to ("https://store.serif.com/en-gb/update/macos/designer/2/") as text
020
021	#URL
022	set ocidURLString to (refMe's NSString's stringWithString:(strURL))
023	set ocidURL to (refMe's NSURL's alloc()'s initWithString:(ocidURLString))
024
025	#XML
026	set ocidOption to (refMe's NSXMLDocumentTidyHTML)
027	set listReadXMLDoc to (refMe's NSXMLDocument's alloc()'s initWithContentsOfURL:(ocidURL) options:(ocidOption) |error| :(reference))
028	set ocidReadXMLDoc to (item 1 of listReadXMLDoc)
029	set ocidRootElement to ocidReadXMLDoc's rootElement()
030	set ocidHeadElement to (ocidRootElement's elementsForName:("body"))'s firstObject()
031	set listResponse to (ocidHeadElement's nodesForXPath:("//a") |error| :(reference))
032	if (item 2 of listResponse) = (missing value) then
033	set ocidAArray to (item 1 of listResponse)
034	else if (item 2 of listResponse) ≠ (missing value) then
035	set strErrorNO to (item 2 of listResponse)'s code() as text
036	set strErrorMes to (item 2 of listResponse)'s localizedDescription() as text
037	refMe's NSLog("■：" & strErrorNO & strErrorMes)
038	return "エラーしました" & strErrorNO & strErrorMes
039	end if
040
041	#出力用テキスト
042	set ocidOutPutstring to refMe's NSMutableString's alloc()'s initWithCapacity:(0)
043
044	#収集したURLの数だけ繰り返し
045	repeat with itemNode in ocidAArray
046	set ocidLinkAttr to (itemNode's attributeForName:("href"))
047	set strLinkURL to ocidLinkAttr's stringValue() as text
048	set ocidLinkURLString to (refMe's NSString's stringWithString:(strLinkURL))
049	set ocidLinkURL to (refMe's NSURL's alloc()'s initWithString:(ocidLinkURLString))
050	set strExtensionName to ocidLinkURL's pathExtension() as text
051	if strExtensionName is "dmg" then
052	(ocidOutPutstring's appendString:(ocidLinkURLString))
053	(ocidOutPutstring's appendString:("\n--------------------------\n"))
054	end if
055	end repeat
056
057	log ocidOutPutstring as text
058
059
060	return (ocidOutPutstring as text)
AppleScriptで生成しました

---

デバイスの情報表示（仮）

JamfCheck
https://github.com/txhaflaire/JamfCheck
SilentKnight
https://eclecticlight.co/lockrattler-systhist/
を
足して２で割ったようなのを目指したが断念
まぁ普通に表示まではいけます

---

AppleScript サンプルコード

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

AppleScript サンプルソース（参考）

行番号	ソース
001	#! /usr/bin/env osascript
002	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
003	#com.cocolog-nifty.quicktimer.icefloe
004	# 各種情報を収集HTML表示
005	# 計画性なく作ったV1
006	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
007	use AppleScript version "2.8"
008	use framework "Foundation"
009	use framework "AppKit"
010	use scripting additions
011
012	property refMe : a reference to current application
013
014
015	##########################################
016	#【１】コンピューター名
017	set appFileManager to refMe's NSFileManager's defaultManager()
018	set ocidURLsArray to (appFileManager's URLsForDirectory:(refMe's NSLibraryDirectory) inDomains:(refMe's NSLocalDomainMask))
019	set ocidLibraryDirPathURL to ocidURLsArray's firstObject()
020	set ocidPlistFilePathURL to ocidLibraryDirPathURL's URLByAppendingPathComponent:("Preferences/SystemConfiguration/preferences.plist") isDirectory:(false)
021	#
022	set listResponse to refMe's NSDictionary's alloc()'s initWithContentsOfURL:(ocidPlistFilePathURL) |error| :(reference)
023	if (item 2 of listResponse) = (missing value) then
024	log "正常処理"
025	set ocidPlistDict to (item 1 of listResponse)
026	else if (item 2 of listResponse) ≠ (missing value) then
027	log (item 2 of listResponse)'s code() as text
028	log (item 2 of listResponse)'s localizedDescription() as text
029	log "エラーしました"
030	return false
031	end if
032	set ocidPlistFilePathURL to ocidLibraryDirPathURL's URLByAppendingPathComponent:("Preferences/SystemConfiguration/com.apple.smb.server.plist") isDirectory:(false)
033	#
034	set listResponse to refMe's NSDictionary's alloc()'s initWithContentsOfURL:(ocidPlistFilePathURL) |error| :(reference)
035	if (item 2 of listResponse) = (missing value) then
036	log "正常処理"
037	set ocidPlistDictSMB to (item 1 of listResponse)
038	else if (item 2 of listResponse) ≠ (missing value) then
039	log (item 2 of listResponse)'s code() as text
040	log (item 2 of listResponse)'s localizedDescription() as text
041	log "エラーしました"
042	return false
043	end if
044	(* この方法だとBonjourとSMB名が取れないので使わない
045	set recordSystemInfo to (system info) as record
046	###MacOS用
047	set strComputerName to (computer name of recordSystemInfo) as text
048	###/bin/hostname　と同等
049	set strHostName to (host name of recordSystemInfo) as text
050	*)
051	###Bonjourローカルネットワーク用
052	set ocidLocalHostName to (ocidPlistDict's valueForKeyPath:("System.Network.HostNames.LocalHostName"))
053	###MacOS用
054	set ocidComputerName to (ocidPlistDict's valueForKeyPath:("System.System.ComputerName"))
055	###/bin/hostname　と同等
056	set ocidHostName to (ocidPlistDict's valueForKeyPath:("System.System.HostName"))
057	###SMB用
058	set ocidNetBIOSName to (ocidPlistDictSMB's valueForKeyPath:("NetBIOSName"))
059
060	log ocidLocalHostName as text
061	log ocidComputerName as text
062	log ocidHostName as text
063	log ocidNetBIOSName as text
064
065
066	##########################################
067	#【２】OS情報
068	set ocidURLsArray to (appFileManager's URLsForDirectory:(refMe's NSCoreServiceDirectory) inDomains:(refMe's NSSystemDomainMask))
069	set ocidCoreServiceDirPathURL to ocidURLsArray's firstObject()
070	set ocidPlistFilePathURL to ocidCoreServiceDirPathURL's URLByAppendingPathComponent:("SystemVersion.plist") isDirectory:(false)
071	#
072	set listResponse to refMe's NSDictionary's alloc()'s initWithContentsOfURL:(ocidPlistFilePathURL) |error| :(reference)
073	if (item 2 of listResponse) = (missing value) then
074	log "正常処理"
075	set ocidPlistDict to (item 1 of listResponse)
076	else if (item 2 of listResponse) ≠ (missing value) then
077	log (item 2 of listResponse)'s code() as text
078	log (item 2 of listResponse)'s localizedDescription() as text
079	log "エラーしました"
080	return false
081	end if
082	(* この方法だとビルド番号が取れないので使わない
083	set recordSystemInfo to (system info) as record
084	###OSバージョン
085	set strProductBuildVersion to (system version of recordSystemInfo) as text
086	*)
087	###ビルド番号
088	set ocidProductBuildVersion to (ocidPlistDict's valueForKeyPath:("ProductBuildVersion"))
089	###OSバージョン
090	set ocidProductVersion to (ocidPlistDict's valueForKeyPath:("ProductVersion"))
091
092	log ocidProductBuildVersion as text
093	log ocidProductBuildVersion as text
094
095	##########################################
096	#【３】シリアル番号 system_profiler JSON
097	set ocidSerialNo to doSPHardwareDataTypeJson("SPHardwareDataType.serial_number")'s firstObject()
098	set ocidModelName to doSPHardwareDataTypeJson("SPHardwareDataType.machine_model")
099	set ocidPlatform_UUID to doSPHardwareDataTypeJson("SPHardwareDataType.platform_UUID")
100	set ocidBootRomVer to doSPHardwareDataTypeJson("SPHardwareDataType.boot_rom_version")
101
102	log ocidSerialNo as text
103	log ocidModelName as text
104	log ocidPlatform_UUID as text
105	log ocidBootRomVer as text
106
107	##########################################
108	#【４】モデル名 ConfigCode
109	set ocidConfigCode to doGetConfigCode(ocidSerialNo)
110	log ocidConfigCode as text
111
112	##########################################
113	#【５】メモリー量
114	set ocidProcessInfo to refMe's NSProcessInfo's processInfo()
115	set realMemoryByte to ocidProcessInfo's physicalMemory() as real
116	set realGB to "1073741824" as real
117	set numPhysicalMemory to (realMemoryByte / realGB) as integer
118	(* これはこの方法でも良かった
119	set recordSystemInfo to (system info) as record
120	set numMem to (physical memory of recordSystemInfo) as real
121	set numPhysicalMemory to (numMem / 1000) as integer
122	*)
123
124	##########################################
125	#【６】ディスク　キャパ　と　残 diskutil
126	set listVolumeInfo to doGetVolumeInfo()
127	set ocidVolumeName to (item 1 of listVolumeInfo)
128	set ocidFileVault to (item 2 of listVolumeInfo)
129	set ocidEncryption to (item 3 of listVolumeInfo)
130	set numTotalSize to (item 4 of listVolumeInfo)
131	set numContainerFree to (item 5 of listVolumeInfo)
132	set ocidDiskUUID to (item 6 of listVolumeInfo)
133	log ocidVolumeName as text
134	log ocidFileVault as text
135	log ocidEncryption as text
136	log numTotalSize as text
137	log numContainerFree as text
138	log ocidDiskUUID as text
139	(*ディスクサイズとディスク残はこの方法でも良い
140
141	tell application "System Events"
142	set strVolumeName to (name of startup disk) as text
143	tell startup disk
144	set numDiskCapacity to capacity as real
145	set numFreeSpace to free space as real
146	end tell
147	end tell
148	set intGB to "1073741824" as integer
149	set intGB to "1000000000" as integer
150	set numTotalSize to (numTotalSize / intGB) as integer
151	set numContainerFree to (numContainerFree / intGB) as integer
152	*)
153
154	##########################################
155	#【７】システム保護
156	set strCommandText to ("/bin/bash -c '/usr/bin/csrutil status 2>&1'") as text
157	set strResponse to (do shell script strCommandText) as text
158	if strResponse contains "enabled" then
159	log "System Integrity Protection ON"
160	set ocidSIP to ("ON") as text
161	else
162	log "System Integrity ProtectionがOFFです"
163	set ocidSIP to ("OFF") as text
164	end if
165
166
167	##########################################
168	#【８】XProtect
169	set strCommandText to ("/bin/bash -c '/usr/sbin/spctl --status 2>&1'") as text
170	set strResponse to (do shell script strCommandText) as text
171	if strResponse contains "enabled" then
172	log "XProtect ON"
173	set ocidXProtect to ("ON") as text
174	else
175	log "XProtectがOFFです"
176	set ocidXProtect to ("OFF") as text
177	end if
178
179
180	##########################################
181	#【９】TCCバージョン
182	set strChkFilePath to ("/Library/Apple/Library/Bundles/TCC_Compatibility.bundle") as text
183	#バージョン取得
184	set ocidTCCver to doGetVersion(strChkFilePath)
185	log ocidTCCver as text
186
187	##########################################
188	#【１０】AppleKext　バージョン
189	set strChkFilePath to ("/Library/Apple/System/Library/Extensions/AppleKextExcludeList.kext") as text
190	#バージョン取得
191	set ocidKEXTver to doGetVersion(strChkFilePath)
192	log ocidKEXTver as text
193
194	##########################################
195	#【１１】XProtect　バージョン
196	set strChkFilePath to ("/Library/Apple/System/Library/CoreServices/XProtect.bundle/Contents/Info.plist") as text
197	#バージョン取得
198	set ocidMRTver to doGetPlistValue(strChkFilePath, "CFBundleShortVersionString")
199	log ocidMRTver as text
200
201	##########################################
202	#【１２】ディスクの暗号化 fdesetup
203	set strCommandText to ("/bin/bash -c '/usr/bin/fdesetup status 2>&1'") as text
204	set strResponse to (do shell script strCommandText) as text
205	if strResponse contains "Off" then
206	log "FileVault未設定"
207	set ocidFileVault to ("OFF") as text
208	else
209	log "FileVault実行中"
210	set ocidFileVault to ("ON") as text
211	end if
212
213	##########################################
214	#【１３】ユーザー情報
215	(* 一般的にはこの方法がいいでしょう
216	##system infoを使う
217	set recordSystemInfo to (system info) as record
218	set strUserName to (short user name of recordSystemInfo) as text
219	set strUserNameLong to (long user name of recordSystemInfo) as text
220	set strUID to (user ID of recordSystemInfo) as text
221	#ここだけエイリアスが戻り値
222	set aliasHomeDirPath to (home directory of recordSystemInfo) as alias
223	set strHomeDirPath to (POSIX path of aliasHomeDirPath) as text
224	*)
225	#ユーザー名ショート
226	set ocidUserName to refMe's NSUserName()
227	#ユーザー名ロング
228	set ocidUserNameLong to refMe's NSFullUserName()
229	#Unixパス　ホームディレクトリ
230	set ocidHomeDirPath to refMe's NSHomeDirectory()
231	#NSURL　ホームディレクトリ
232	set ocidHomeDirPathURL to appFileManager's homeDirectoryForUser:(ocidUserName)
233	set ocidHomeDirPath to ocidHomeDirPathURL's |path|()
234	#コンソールのIDを取得する方法
235	set strDevDirPath to ("/dev/console") as text
236	set ocidDevDirPathStr to refMe's NSString's stringWithString:(strDevDirPath)
237	set ocidDevDirPath to ocidDevDirPathStr's stringByStandardizingPath()
238	#アトリビュートを取得して
239	set listResponse to appFileManager's attributesOfItemAtPath:(ocidDevDirPath) |error| :(reference)
240	if (item 2 of listResponse) = (missing value) then
241	log "正常処理"
242	set ocidAttarDict to (item 1 of listResponse)
243	else if (item 2 of listResponse) ≠ (missing value) then
244	log (item 2 of listResponse)'s code() as text
245	log (item 2 of listResponse)'s localizedDescription() as text
246	return "エラーしました"
247	end if
248	#UIDを取得する
249	set ocidUID to (ocidAttarDict's valueForKey:(refMe's NSFileOwnerAccountID))
250
251	##########################################
252	#【１４】電源情報 pmset
253
254	if (ocidModelName as text) contains "book" then
255	set listResponse to doGetPmset()
256	set ocidBatterySerialNumber to (item 1 of listResponse)
257	set ocidBatteryHealth to (item 2 of listResponse)
258	set ocidOptimized to (item 3 of listResponse)
259	log ocidBatterySerialNumber as text
260	log ocidBatteryHealth as text
261	log ocidOptimized as text
262
263	end if
264	##########################################
265	#【OUTPUT】HTMLにして表示
266
267	set strHTML to ("<!DOCTYPE html><html lang=\"ja\"><head><title>システム情報</title><meta http-equiv=\"Content-Type\" content=\"text/html; charset=UTF-8\"><meta name=\"viewport\" content=\"width=720\"><style>body {margin: 10px;background-color: #FFFFFF;font-family: system-ui;}article {max-width: 720px;}.content {display: flex;flex-wrap: wrap;gap: 12px;}.module {width: 216px;height: 72px;border-radius: .5em;background-color: lightgrey;flex-direction: column;align-items: center;text-align: center;border: 1px solid #ccc;}.module p,.module h4,.module h5 {margin: 5px 0;}a {text-decoration: none;}small{font-size: 0.5rem;}</style><meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no\"></head><body><header id=\"header\" class=\"body_header\"><div><h3>システム情報</h3></div></header><article id=\"article\" class=\"body_article\"><div class=\"content\"><div class=\"module\"><h4>コンピューター名<a href=\"x-apple.systempreferences:com.apple.SystemProfiler.AboutExtension?aboutSection\">⚒️</a></h4><h5>ComputerName</h5><p>" & ocidComputerName & "</p></div><div class=\"module\"><h4>Bonjour名<a href=\"x-apple.systempreferences:com.apple.Sharing-Settings.extension?Services_PersonalFileSharing\">⚒️</a></h4><h5>LocalHostName</h5><p>" & ocidLocalHostName & "</p></div><div class=\"module\"><h4>ホスト名<a href=\"x-apple.systempreferences:com.apple.SystemProfiler.AboutExtension?aboutSection\">⚒️</a></h4><h5>HostName</h5><p>" & ocidHostName & "</p></div><div class=\"module\"><h4>SMB名<a href=\"x-apple.systempreferences:com.apple.Sharing-Settings.extension?Services_WindowsSharing\">⚒️</a></h4><h5>NetBIOSName</h5><p>" & ocidNetBIOSName & "</p></div><div class=\"module\"><h4>Osバージョン<a href=\"x-apple.systempreferences:com.apple.SystemProfiler.AboutExtension?softwareSection\">⚒️</a></h4><h5>ProductVersion</h5><p>" & ocidProductVersion & "</p></div><div class=\"module\"><h4>ビルド番号<a href=\"x-apple.systempreferences:com.apple.SystemProfiler.AboutExtension?softwareSection\">⚒️</a></h4><h5>ProductBuildVersion</h5><p>" & ocidProductBuildVersion & "</p></div><div class=\"module\"><h4>モデル番号<a href=\"x-apple.systempreferences:com.apple.SystemProfiler.AboutExtension?aboutSection\">⚒️</a></h4><h5>machine_model</h5><p>" & ocidModelName & "</p></div><div class=\"module\"><h4>モデル名<a href=\"x-apple.systempreferences:com.apple.SystemProfiler.AboutExtension?aboutSection\">⚒️</a></h4><h5>ConfigCode</h5><p><small>" & ocidConfigCode & "</small></p></div><div class=\"module\"><h4>シリアルNO<a href=\"x-apple.systempreferences:com.apple.SystemProfiler.AboutExtension?aboutSection\">⚒️</a></h4><h5>serial_number</h5><p>" & ocidSerialNo & "</p></div><div class=\"module\"><h4>デバイスUUID<a href=\"file:///System/Applications/Utilities/System Information.app\">⚙️</a></h4><h5>platform_UUID</h5><p><small>" & ocidPlatform_UUID & "</small></p></div><div class=\"module\"><h4>BootRomバージョン<a href=\"file:///System/Applications/Utilities/System Information.app\">⚙️</a></h4><h5>boot_rom_version</h5><p>" & ocidBootRomVer & "</p></div><div class=\"module\"><h4>メモリー搭載量<a href=\"x-apple.systempreferences:com.apple.SystemProfiler.AboutExtension?aboutSection\">⚒️</a></h4><h5>physicalMemory</h5><p>" & numPhysicalMemory & "GB" & "</p></div><div class=\"module\"><h4>ディスク容量<a href=\"x-apple.systempreferences:com.apple.settings.Storage?storagePref\">🗄️</a></h4><h5>TotalSize</h5><p>" & numTotalSize & "GB" & "</p></div><div class=\"module\"><h4>ディスク残<a href=\"x-apple.systempreferences:com.apple.settings.Storage?storagePref\">🗄️</a></h4><h5>APFSContainerFree</h5><p>" & numContainerFree & "GB" & "</p></div><div class=\"module\"><h4>ディスクUUID<a href=\"file:///System/Applications/Utilities/System Information.app\">⚙️</a></h4><h5>DiskUUID</h5><p><small>" & ocidDiskUUID & "</small></p></div><div class=\"module\"><h4>FileVault実行<a href=\"x-apple.systempreferences:com.apple.settings.PrivacySecurity.extension?FileVault\">🗄️</a></h4><h5>FileVault</h5><p>" & ocidFileVault & "</p></div><div class=\"module\"><h4>暗号化<a href=\"x-apple.systempreferences:com.apple.settings.PrivacySecurity.extension?FileVault\">🗄️</a></h4><h5>Encryption</h5><p>" & ocidEncryption & "</p></div><div class=\"module\"><h4>起動ディスク名<a href=\"x-apple.systempreferences:com.apple.Startup-Disk-Settings.extension?StartupSearchGroup\">🗄️</a></h4><h5>VolumeName</h5><p>" & ocidVolumeName & "</p></div><div class=\"module\"><h4>システム保護SIP<a href=\"x-apple.systempreferences:com.apple.settings.PrivacySecurity.extension?Security\">🗄️</a></h4><h5>csrutil</h5><p>" & ocidSIP & "</p></div><div class=\"module\"><h4>XProtect</h4><h5>spctl</h5><p>" & ocidXProtect & "</p></div><div class=\"module\"><h4>TCCバージョン</h4><h5>TCC_Compatibility</h5><p>" & ocidTCCver & "</p></div><div class=\"module\"><h4>AppleKext</h4><h5>ExcludeList</h5><p>" & ocidKEXTver & "</p></div><div class=\"module\"><h4>XProtect</h4><h5>XProtect</h5><p>" & ocidMRTver & "</p></div><div class=\"module\"><h4>FileVault<a href=\"x-apple.systempreferences:com.apple.settings.PrivacySecurity.extension?FileVault\">🗄️</a></h4><h5>fdesetup</h5><p>" & ocidFileVault & "</p></div><div class=\"module\"><h4>ユーザー名<a href=\"x-apple.systempreferences:com.apple.Users-Groups-Settings.extension\">👤</a></h4><h5>NSUserName</h5><p>" & ocidUserName & "</p></div><div class=\"module\"><h4>ユーザーID<a href=\"x-apple.systempreferences:com.apple.Users-Groups-Settings.extension\">👤</a></h4><h5>AccountID</h5><p>" & ocidUID & "</p></div><div class=\"module\"><h4> </h4><h5> </h5><p> </p></div><div class=\"module\"><h4>バッテリーシリアル<a href=\"file:///System/Applications/Utilities/System Information.app\">⚙️</a></h4><h5>Hardware Serial Number</h5><p>" & ocidBatterySerialNumber & "</p></div><div class=\"module\"><h4>バッテリー最適化<a href=\"x-apple.systempreferences:com.apple.Battery-Settings.extension*BatteryPreferences?batteryhealth\">🔋</a></h4><h5>Optimized Battery</h5><p>" & ocidOptimized & "</p></div><div class=\"module\"><h4>バッテリー状態<a href=\"x-apple.systempreferences:com.apple.Battery-Settings.extension*BatteryPreferences?currentSource\">🔋</a></h4><h5>BatteryHealth</h5><p>" & ocidBatteryHealth & "</p></div></div></article><footer id=\"footer\" class=\"body_footer\"><div><p><a href=\"https://quicktimer.cocolog-nifty.com/icefloe/2024/06/post-9cf776.html\" target=\"_blank\">AppleScriptで生成しました</a></p></div></footer></body></html>") as text
268
269	set ocidSaveFilePathURL to doSaveText(strHTML)
270	##HTMLを開く
271	set appSharedWorkspace to refMe's NSWorkspace's sharedWorkspace()
272	set boolDone to appSharedWorkspace's openURL:(ocidSaveFilePathURL)
273
274	##########################################
275	#HTMLとして保存
276	to doSaveText(argText)
277	###ディレクトリ
278	set appFileManager to refMe's NSFileManager's defaultManager()
279	set ocidTempDirURL to appFileManager's temporaryDirectory()
280	set ocidUUID to refMe's NSUUID's alloc()'s init()
281	set ocidUUIDString to ocidUUID's UUIDString
282	set ocidSaveDirPathURL to ocidTempDirURL's URLByAppendingPathComponent:(ocidUUIDString) isDirectory:true
283	#
284	set ocidAttrDict to refMe's NSMutableDictionary's alloc()'s initWithCapacity:0
285	# 777-->511 755-->493 700-->448 766-->502
286	ocidAttrDict's setValue:(511) forKey:(refMe's NSFilePosixPermissions)
287	set listBoolMakeDir to appFileManager's createDirectoryAtURL:(ocidSaveDirPathURL) withIntermediateDirectories:true attributes:(ocidAttrDict) |error| :(reference)
288	###パス
289	set strFileName to "device_info.html" as text
290	set ocidSaveFilePathURL to ocidSaveDirPathURL's URLByAppendingPathComponent:(strFileName) isDirectory:false
291	#
292	set ocidSaveString to refMe's NSString's stringWithString:(argText)
293	set listDone to ocidSaveString's writeToURL:(ocidSaveFilePathURL) atomically:(true) encoding:(refMe's NSUTF8StringEncoding) |error| :(reference)
294	if (item 1 of listDone) is true then
295	log "正常処理"
296	return ocidSaveFilePathURL
297	else if (item 2 of listDone) ≠ (missing value) then
298	log (item 2 of listDone)'s code() as text
299	log (item 2 of listDone)'s localizedDescription() as text
300	log "エラーしました"
301	return false
302	end if
303
304
305	end doSaveText
306	return
307
308	##########################################
309	#【１４】電源情報 pmset
310
311	to doGetPmset()
312	set strCommandText to ("/bin/zsh -c '/usr/bin/pmset -g batt -xml'") as text
313	log strCommandText
314	try
315	set strResponse to (do shell script strCommandText) as text
316	on error
317	log "コマンドでエラーしました"
318	return false
319	end try
320	#戻り値をストリングに
321	set ocidPlistStrings to refMe's NSString's stringWithString:(strResponse)
322	#NSDATAにして
323	set ocidPlisStringstData to ocidPlistStrings's dataUsingEncoding:(refMe's NSUTF8StringEncoding)
324	#PLIST初期化して
325	set ocidFormat to (refMe's NSPropertyListXMLFormat_v1_0)
326	set listResponse to refMe's NSPropertyListSerialization's propertyListWithData:ocidPlisStringstData options:(0) format:(ocidFormat) |error| :(reference)
327	if (item 2 of listResponse) = (missing value) then
328	log "正常処理"
329	set ocidPlistDict to (item 1 of listResponse)
330	else if (item 2 of listResponse) ≠ (missing value) then
331	log (item 2 of listResponse)'s code() as text
332	log (item 2 of listResponse)'s localizedDescription() as text
333	return "エラーしました"
334	end if
335	set ocidBatterySerialNumber to ocidPlistDict's valueForKey:("Hardware Serial Number")
336	set ocidBatteryHealth to ocidPlistDict's valueForKey:("BatteryHealth")
337	set ocidOptimized to ocidPlistDict's valueForKey:("Optimized Battery Charging Engaged")
338
339	return {ocidBatterySerialNumber, ocidBatteryHealth, ocidOptimized}
340
341	end doGetPmset
342
343	##########################################
344	# 【１３】 アップデート softwareupdate
345	set strCommandText to ("/bin/bash -c '/usr/sbin/softwareupdate  --list --include-config-data 2>&1'") as text
346	log strCommandText
347	set strResponse to (do shell script strCommandText) as text
348	if strResponse contains "No new software available" then
349	log "最新です"
350	else
351	log "アップデートがあります"
352	end if
353
354	##########################################
355	#【６】ディスク　キャパ　と　残 diskutil
356	to doGetVolumeInfo()
357	set strCommandText to "/usr/sbin/diskutil info -plist /" as text
358	log strCommandText
359	try
360	set strResponse to (do shell script strCommandText) as text
361	on error
362	log "コマンドでエラーしました"
363	return false
364	end try
365	#戻り値をストリングに
366	set ocidPlistStrings to refMe's NSString's stringWithString:(strResponse)
367	#NSDATAにして
368	set ocidPlisStringstData to ocidPlistStrings's dataUsingEncoding:(refMe's NSUTF8StringEncoding)
369	#PLIST初期化して
370	set ocidFormat to (refMe's NSPropertyListXMLFormat_v1_0)
371	set listResponse to refMe's NSPropertyListSerialization's propertyListWithData:ocidPlisStringstData options:(0) format:(ocidFormat) |error| :(reference)
372	if (item 2 of listResponse) = (missing value) then
373	log "正常処理"
374	set ocidPlistDict to (item 1 of listResponse)
375	else if (item 2 of listResponse) ≠ (missing value) then
376	log (item 2 of listResponse)'s code() as text
377	log (item 2 of listResponse)'s localizedDescription() as text
378	return "エラーしました"
379	end if
380	#
381	set ocidVolumeName to (ocidPlistDict's valueForKey:"VolumeName")
382	set ocidDiskUUID to (ocidPlistDict's valueForKey:"DiskUUID")
383	set ocidVolumeUUID to (ocidPlistDict's valueForKey:"VolumeUUID")
384	set ocidFilesystemName to (ocidPlistDict's valueForKey:"FilesystemName")
385	set ocidFileVault to (ocidPlistDict's valueForKey:"FileVault")
386	set ocidEncryption to (ocidPlistDict's valueForKey:"Encryption")
387	#サイズ
388	set ocidTotalSize to (ocidPlistDict's valueForKey:"TotalSize")
389	set intGB to "1073741824" as integer
390	set ocidGB to (refMe's NSNumber's numberWithInteger:intGB)
391	set numTotalSize to ((ocidTotalSize's doubleValue as real) / (ocidGB's doubleValue as real)) as integer
392	#残
393	set ocidAPFSContainerFree to (ocidPlistDict's valueForKey:"APFSContainerFree")
394	set intGB to "1073741824" as integer
395	set ocidGB to (refMe's NSNumber's numberWithInteger:intGB)
396	set numContainerFree to ((ocidAPFSContainerFree's doubleValue as real) / (ocidGB's doubleValue as real)) as integer
397
398	return {ocidVolumeName, ocidFileVault, ocidEncryption, numTotalSize, numContainerFree, ocidDiskUUID}
399	end doGetVolumeInfo
400
401	##########################################
402	#【４】モデル名 ConfigCode
403	to doGetConfigCode(argSerialNo)
404	#ConfigCodeになる４文字を取り出して
405	set intTextlength to (argSerialNo's |length|) as integer
406	set ocidRenge to refMe's NSMakeRange((intTextlength - 4), 4)
407	set strConfigCode to (argSerialNo's substringWithRange:(ocidRenge)) as text
408	#URL整形
409	set ocidURLComponents to refMe's NSURLComponents's alloc()'s init()
410	#スキーム を追加
411	ocidURLComponents's setScheme:("https")
412	#ホスト追加
413	ocidURLComponents's setHost:("support-sp.apple.com")
414	#パスを追加（setHostじゃないよ）
415	ocidURLComponents's setPath:("/sp/product")
416	#CC config Codeクエリーを追加
417	set ocidComponentArray to refMe's NSMutableArray's alloc()'s initWithCapacity:(0)
418	set ocidQueryItem to refMe's NSURLQueryItem's alloc()'s initWithName:("cc") value:(strConfigCode)
419	ocidComponentArray's addObject:(ocidQueryItem)
420	#langクエリーを追加
421	set ocidLocale to refMe's NSLocale's currentLocale()
422	set ocidLocaleID to ocidLocale's localeIdentifier()
423	set ocidQueryItem to (refMe's NSURLQueryItem's alloc()'s initWithName:("lang") value:(ocidLocaleID))
424	(ocidComponentArray's addObject:(ocidQueryItem))
425	#検索クエリーとして追加
426	(ocidURLComponents's setQueryItems:(ocidComponentArray))
427	#コンポーネントをURLに展開
428	set ocidURL to ocidURLComponents's |URL|()
429	#XML読み込み
430	set ocidOption to (refMe's NSXMLDocumentTidyXML)
431	set listResponse to refMe's NSXMLDocument's alloc()'s initWithContentsOfURL:(ocidURL) options:(ocidOption) |error| :(reference)
432	if (item 2 of listResponse) = (missing value) then
433	log "正常処理"
434	set ocidReadXMLDoc to (item 1 of listResponse)
435	else if (item 2 of listResponse) ≠ (missing value) then
436	log (item 2 of listResponse)'s code() as text
437	log (item 2 of listResponse)'s localizedDescription() as text
438	log "エラーしました"
439	return false
440	end if
441	#ROOTエレメント
442	set ocidRootElement to ocidReadXMLDoc's rootElement()
443	#configCodeからモデル名を取得
444	set ocidConfigCode to (ocidRootElement's elementsForName:("configCode"))'s firstObject()
445	set ocidConfigCode to ocidConfigCode's stringValue()
446	return ocidConfigCode
447	end doGetConfigCode
448
449	##########################################
450	#【３】system_profiler　json
451	to doSPHardwareDataTypeJson(argKeyPath)
452	set strCommandText to ("/bin/zsh -c '/usr/sbin/system_profiler SPHardwareDataType -json'") as text
453	log strCommandText
454	set strResponse to (do shell script strCommandText) as text
455	set ocidJsonStrings to refMe's NSString's stringWithString:(strResponse)
456	set ocidJsonData to ocidJsonStrings's dataUsingEncoding:(refMe's NSUTF8StringEncoding)
457	set ocidOption to (refMe's NSJSONReadingMutableContainers)
458	set listResponse to (refMe's NSJSONSerialization's JSONObjectWithData:(ocidJsonData) options:(ocidOption) |error| :(reference))
459	if (item 2 of listResponse) = (missing value) then
460	log "正常処理"
461	set ocidJsonDict to (item 1 of listResponse)
462	else if (item 2 of listResponse) ≠ (missing value) then
463	log (item 2 of listResponse)'s code() as text
464	log (item 2 of listResponse)'s localizedDescription() as text
465	return "エラーしました"
466	end if
467	set ocidValue to (ocidJsonDict's valueForKeyPath:(argKeyPath))
468	return ocidValue
469	end doSPHardwareDataTypeJson
470
471
472	##########################################
473	#テキストパスからバージョンを取得
474	to doGetVersion(argFilePathStrings)
475	#パス
476	set strFilePath to (argFilePathStrings) as text
477	set ocidFilePathStr to refMe's NSString's stringWithString:(strFilePath)
478	set ocidFilePath to ocidFilePathStr's stringByStandardizingPath()
479	set ocidFilePathURL to refMe's NSURL's alloc()'s initFileURLWithPath:(ocidFilePath) isDirectory:(false)
480	#
481	set ocidAppBundle to refMe's NSBundle's bundleWithURL:(ocidFilePathURL)
482	set ocidInfoDict to ocidAppBundle's infoDictionary()
483	set ocidCFBundleVersion to (ocidInfoDict's valueForKey:("CFBundleVersion"))
484	return ocidCFBundleVersion
485	end doGetVersion
486
487
488	##########################################
489	#plistから指定のキーの値を取得する
490	to doGetPlistValue(argFilePathStrings, argKey)
491	#パス
492	set strFilePath to (argFilePathStrings) as text
493	set ocidFilePathStr to refMe's NSString's stringWithString:(strFilePath)
494	set ocidFilePath to ocidFilePathStr's stringByStandardizingPath()
495	set ocidFilePathURL to refMe's NSURL's alloc()'s initFileURLWithPath:(ocidFilePath) isDirectory:(false)
496	#レコードを読み込み
497	set listResponse to refMe's NSDictionary's alloc()'s initWithContentsOfURL:(ocidFilePathURL) |error| :(reference)
498	if (item 2 of listResponse) = (missing value) then
499	log "正常処理"
500	set ocidPlistDict to (item 1 of listResponse)
501	else if (item 2 of listResponse) ≠ (missing value) then
502	log (item 2 of listResponse)'s code() as text
503	log (item 2 of listResponse)'s localizedDescription() as text
504	log "エラーしました"
505	return false
506	end if
507	set ocidValue to ocidPlistDict's valueForKey:(argKey)
508	if ocidValue = (missing value) then
509	return false
510	else
511	return ocidValue
512	end if
513	end doGetPlistValue
514
515
516
AppleScriptで生成しました

---

[ioreg]ロジックボード番号を取得する

---

あくまでも参考にしてください

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

サンプルソース（参考）

行番号	ソース
001	#! /usr/bin/env osascript
002	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
003	#　バイナリーで戻り値があるロジックボード番号の取得
004	# com.cocolog-nifty.quicktimer.icefloe
005	----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
006	use AppleScript version "2.6"
007	use framework "Foundation"
008	use scripting additions
009
010	property refMe : a reference to current application
011
012
013	set appFileManager to refMe's NSFileManager's defaultManager()
014	#####################################
015	######ファイル保存先
016	#####################################
017	set ocidUserLibraryPathArray to (appFileManager's URLsForDirectory:(refMe's NSDocumentDirectory) inDomains:(refMe's NSUserDomainMask))
018	set ocidFilePathURL to ocidUserLibraryPathArray's firstObject()
019	set ocidSaveDirPathURL to ocidFilePathURL's URLByAppendingPathComponent:("Apple/IOreg") isDirectory:(true)
020	############################
021	###フォルダを作る
022	set ocidAttrDict to refMe's NSMutableDictionary's alloc()'s initWithCapacity:0
023	ocidAttrDict's setValue:(448) forKey:(refMe's NSFilePosixPermissions)
024	set listDone to appFileManager's createDirectoryAtURL:(ocidSaveDirPathURL) withIntermediateDirectories:true attributes:(ocidAttrDict) |error| :(reference)
025	if (item 1 of listDone) is true then
026	log "正常処理"
027	else if (item 2 of listDone) ≠ (missing value) then
028	log (item 2 of listDone)'s code() as text
029	log (item 2 of listDone)'s localizedDescription() as text
030	return "フォルダ エラーしました"
031	end if
032
033	#####################################
034	######PLISTパス
035	#####################################
036	set ocidSaveFilePathURL to ocidSaveDirPathURL's URLByAppendingPathComponent:("IOPlatformExpertDevice.plist") isDirectory:(false)
037	set strPlistFilePath to (ocidSaveFilePathURL's |path|()) as text
038	###古いファイルはゴミ箱に
039	set listDone to (appFileManager's trashItemAtURL:(ocidSaveFilePathURL) resultingItemURL:(ocidSaveFilePathURL) |error| :(reference))
040	if (item 1 of listDone) is true then
041	log "正常処理"
042	else if (item 2 of listDone) ≠ (missing value) then
043	log (item 2 of listDone)'s code() as text
044	log (item 2 of listDone)'s localizedDescription() as text
045	return "フォルダ エラーしました"
046	end if
047	#####################################
048	set strCommandText to "/usr/sbin/ioreg -c IOPlatformExpertDevice -a " as text
049	set strPlistData to (do shell script strCommandText) as text
050	###戻り値をストリングに
051	set ocidPlistStrings to refMe's NSString's stringWithString:(strPlistData)
052	###NSDATAにして
053	set ocidPlistData to ocidPlistStrings's dataUsingEncoding:(refMe's NSUTF8StringEncoding)
054	###ファイルに書き込み(使い回し用）-->不要な場合は削除して
055	set ocidOption to (refMe's NSDataWritingAtomic)
056	set listDone to (ocidPlistData's writeToURL:(ocidSaveFilePathURL) options:(ocidOption) |error| :(reference))
057	if (item 1 of listDone) is true then
058	log "正常処理"
059	else if (item 2 of listDone) ≠ (missing value) then
060	log (item 2 of listDone)'s code() as text
061	log (item 2 of listDone)'s localizedDescription() as text
062	return "ファイル保存エラーしました"
063	end if
064
065	###PLIST初期化して
066	set listResponse to refMe's NSPropertyListSerialization's propertyListWithData:(ocidPlistData) options:0 format:(refMe's NSPropertyListXMLFormat_v1_0) |error| :(reference)
067	if (item 2 of listResponse) = (missing value) then
068	log "正常処理"
069	set ocidPlistDataArray to (item 1 of listResponse)
070	else if (item 2 of listResponse) ≠ (missing value) then
071	log (item 2 of listResponse)'s code() as text
072	log (item 2 of listResponse)'s localizedDescription() as text
073	return "NSDATAエラーしました"
074	end if
075	####serial-number"
076	set ocidObjectArray to ocidPlistDataArray's valueForKeyPath:("IORegistryEntryChildren.serial-number")
077	set ocidValue to ocidObjectArray's firstObject()
078	set ocidSerialNumber to refMe's NSString's alloc()'s initWithData:(ocidValue) encoding:(refMe's NSUTF8StringEncoding)
079	####
080	set ocidObjectArray to ocidPlistDataArray's valueForKeyPath:("IORegistryEntryChildren.mlb-serial-number")
081	set ocidValue to ocidObjectArray's firstObject()
082	set ocidMainLogicBoardSerialNumber to refMe's NSString's alloc()'s initWithData:(ocidValue) encoding:(refMe's NSUTF8StringEncoding)
083	####
084	set ocidObjectArray to ocidPlistDataArray's valueForKeyPath:("IORegistryEntryChildren.model")
085	set ocidValue to ocidObjectArray's firstObject()
086	set ocidModelName to refMe's NSString's alloc()'s initWithData:(ocidValue) encoding:(refMe's NSUTF8StringEncoding)
087	####
088	set ocidObjectArray to ocidPlistDataArray's valueForKeyPath:("IORegistryEntryChildren.model-number")
089	set ocidValue to ocidObjectArray's firstObject()
090	set ocidModelNO to refMe's NSString's alloc()'s initWithData:(ocidValue) encoding:(refMe's NSUTF8StringEncoding)
091	####
092	set ocidObjectArray to ocidPlistDataArray's valueForKeyPath:("IORegistryEntryChildren.regulatory-model-number")
093	set ocidValue to ocidObjectArray's firstObject()
094	set ocidRegModelNO to refMe's NSString's alloc()'s initWithData:(ocidValue) encoding:(refMe's NSUTF8StringEncoding)
095	####
096	set ocidObjectArray to ocidPlistDataArray's valueForKeyPath:("IORegistryEntryChildren.region-info")
097	set ocidValue to ocidObjectArray's firstObject()
098	set ocidRegionInfo to refMe's NSString's alloc()'s initWithData:(ocidValue) encoding:(refMe's NSUTF8StringEncoding)
099	###各種値を取得する
100	set ocidDeviceUUID to (ocidPlistDataArray's valueForKeyPath:"IORegistryEntryChildren.IOPlatformUUID")
101	set ocidDeviceSerialNumber to (ocidPlistDataArray's valueForKeyPath:"IORegistryEntryChildren.IOPlatformSerialNumber")
102	set ocidDeviceEntryName to (ocidPlistDataArray's valueForKeyPath:"IORegistryEntryChildren.IORegistryEntryName")
103	###モデル名はNSDATAなのでテキストに解凍する
104	set ocidModelArray to (ocidPlistDataArray's valueForKeyPath:("IORegistryEntryChildren.model"))
105	set ocidModel to ocidModelArray's firstObject()
106	###まぁエラーになるとは思えないが
107	if (className() of ocidModel as text) is "NSNull" then
108	set strCommandText to ("/usr/sbin/sysctl -n hw.model") as text
109	set strModelStr to (do shell script strCommandText) as text
110	else
111	set ocidModelStr to refMe's NSString's alloc()'s initWithData:(ocidModel) encoding:(refMe's NSUTF8StringEncoding)
112	set strModelStr to ocidModelStr as text
113	end if
114	###OSのバージョン
115	set ocidSystemPathArray to (appFileManager's URLsForDirectory:(refMe's NSCoreServiceDirectory) inDomains:(refMe's NSSystemDomainMask))
116	set ocidCoreServicePathURL to ocidSystemPathArray's firstObject()
117	set ocidPlistFilePathURL to ocidCoreServicePathURL's URLByAppendingPathComponent:"SystemVersion.plist"
118	set ocidPlistDict to refMe's NSMutableDictionary's alloc()'s initWithContentsOfURL:(ocidPlistFilePathURL)
119	set strOSversion to (ocidPlistDict's valueForKey:("ProductVersion")) as text
120
121	set strIconPath to "/System/Library/CoreServices/CoreTypes.bundle/Contents/Resources/FinderIcon.icns" as text
122	set aliasIconPath to POSIX file strIconPath as alias
123
124	set strAns to ("デバイス型番：" & ocidDeviceEntryName & "\n") as text
125	set strAns to (strAns & "モデル番号：" & strModelStr & "\n") as text
126	set strAns to (strAns & "デバイスUUID：" & ocidDeviceUUID & "\n") as text
127	set strAns to (strAns & "シリアル番号：" & ocidDeviceSerialNumber & "\n") as text
128	set strAns to (strAns & "OSバージョン：" & strOSversion & "\n") as text
129	set strAns to (strAns & "----------\n") as text
130	set strAns to (strAns & "シリアル番号：" & ocidSerialNumber & "\n") as text
131	set strAns to (strAns & "ロジックボード番号：" & ocidMainLogicBoardSerialNumber & "\n") as text
132	set strAns to (strAns & "モデル名：" & ocidModelName & "\n") as text
133	set strAns to (strAns & "モデル番号：" & ocidModelNO & "\n") as text
134	set strAns to (strAns & "規制モデル番号：" & ocidRegModelNO & "\n") as text
135	set strAns to (strAns & "対象国：" & ocidRegionInfo & "\n") as text
136
137
138	#####ダイアログを前面に
139	tell current application
140	set strName to name as text
141	end tell
142	####スクリプトメニューから実行したら
143	if strName is "osascript" then
144	tell application "Finder" to activate
145	else
146	tell current application to activate
147	end if
148
149	###ダイアログ
150	set recordResult to (display dialog "ioreg 戻り値です" with title "モデル番号" default answer strAns buttons {"クリップボードにコピー", "キャンセル", "OK"} default button "OK" giving up after 20 with icon aliasIconPath without hidden answer)
151	###クリップボードコピー
152	if button returned of recordResult is "クリップボードにコピー" then
153	set strText to text returned of recordResult as text
154	####ペーストボード宣言
155	set appPasteboard to refMe's NSPasteboard's generalPasteboard()
156	set ocidText to (refMe's NSString's stringWithString:(strText))
157	appPasteboard's clearContents()
158	appPasteboard's setString:(ocidText) forType:(refMe's NSPasteboardTypeString)
159	end if
AppleScriptで生成しました

---

IORegistryExplorerを開く

---

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

#!/usr/bin/env osascript

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

# com.cocolog-nifty.quicktimer.icefloe

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

use AppleScript version "2.8"

use framework "Foundation"

use framework "AppKit"

use framework "UniformTypeIdentifiers"

use scripting additions

property refMe : a reference to current application

set strBundleID to "com.apple.IORegistryExplorer" as text

set appSharedWorkspace to refMe's NSWorkspace's sharedWorkspace()

set ocidAppBundle to (refMe's NSBundle's bundleWithIdentifier:(strBundleID))

if ocidAppBundle ≠ (missing value) then

  set ocidAppPathURL to ocidAppBundle's bundleURL()

else if ocidAppBundle = (missing value) then

  set ocidAppPathURL to (appSharedWorkspace's URLForApplicationWithBundleIdentifier:(strBundleID))

end if

if ocidAppPathURL = (missing value) then

  tell application "Finder"

    try

      set aliasAppApth to (application file id strBundleID) as alias

    on error

      set aliasIconPath to POSIX file "/System/Library/CoreServices/CoreTypes.bundle/Contents/Resources/AlertNoteIcon.icns"

      set strMes to ("https://developer.apple.com/download/all/?q=Additional%20Tools%20for%20Xcode") as text

      set recordResult to (display dialog "【エラー】アプリケーションが見つかりませんでした" with title "アプリケーションが見つかりませんでした\rダウンロードはデベロッパーサイトから" default answer strMes buttons {"リンクを開く", "終了"} default button "リンクを開く" cancel button "終了" giving up after 20 with icon aliasIconPath without hidden answer)

      if button returned of recordResult is "リンクを開く" then

tell application "Finder"

open location strMes

end tell

      end if

return "アプリケーションが見つかりませんでした"

    end try

  end tell

  set strAppPath to POSIX path of aliasAppApth as text

  set strAppPathStr to refMe's NSString's stringWithString:(strAppPath)

  set strAppPath to strAppPathStr's stringByStandardizingPath()

  set ocidAppPathURL to refMe's NSURL's alloc()'s initFileURLWithPath:(ocidFilePath) isDirectory:true

end if

set ocidOpenConfig to refMe's NSWorkspaceOpenConfiguration's configuration

(ocidOpenConfig's setActivates:(refMe's NSNumber's numberWithBool:true))

(appSharedWorkspace's openApplicationAtURL:(ocidAppPathURL) configuration:(ocidOpenConfig) completionHandler:(missing value))

---

scutilの情報を取得表示します

---

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

#!/usr/bin/env osascript

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

#

# com.cocolog-nifty.quicktimer.icefloe

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

use AppleScript version "2.8"

use framework "Foundation"

use framework "AppKit"

use scripting additions

property refMe : a reference to current application

#####最初のリスト取得

set strSubKey to doListSelect()

#####最初のコマンド実行

doCommand(strSubKey)

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

##リスト　選択

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

to doListSelect()

  set strCommandText to ("/bin/echo list | /usr/sbin/scutil") as text

  log strCommandText

  set strResponse to (do shell script strCommandText) as text

  set listChooseList to {} as list

  set AppleScript's text item delimiters to "\r"

  set listResponse to every text item of strResponse

  set AppleScript's text item delimiters to ""

  repeat with itemResponse in listResponse

    set AppleScript's text item delimiters to "="

    set listTmpSubKey to every text item of itemResponse

    set AppleScript's text item delimiters to ""

    set strSubKey to (item 2 of listTmpSubKey) as text

    set end of listChooseList to strSubKey

  end repeat

  try

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

    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

    set listResponse to (choose from list listChooseList with title "選んでください" with prompt "設定値を表示します\r選んでください" default items (item 1 of listChooseList) OK button name "OK" cancel button name "キャンセル" without multiple selections allowed and empty selection allowed) as list

  on error

    log "エラーしました"

return "エラーしました"

  end try

  if (item 1 of listResponse) is false then

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

  end if

  set theResponse to (item 1 of listResponse) as text

end doListSelect

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

##コマンド実行

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

to doCommand(argSubKey)

  set strCommandText to ("/bin/echo \"show" & argSubKey & "\" | /usr/sbin/scutil") as text

  log strCommandText

  set strResponse to (do shell script strCommandText) as text

  ###

doDialog(strResponse)

end doCommand

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

##戻り値表示

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

to doDialog(argResponse)

  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

  set aliasIconPath to POSIX file "/System/Library/CoreServices/CoreTypes.bundle/Contents/Resources/BookmarkIcon.icns" as alias

  try

    set recordResponse to (display dialog "設定内容" with title "設定内容確認" default answer argResponse buttons {"クリップボードにコピー", "終了", "もう一度"} default button "終了" cancel button "終了" with icon aliasIconPath giving up after 20 without hidden answer)

  on error

    log "エラーしました"

return "エラーしました"

  end try

  if true is equal to (gave up of recordResponse) then

return "時間切れですやりなおしてください"

  end if

  if "終了" is equal to (button returned of recordResponse) then

    set strResponse to (text returned of recordResponse) as text

return strResponse

  else if button returned of recordResponse is "クリップボードにコピー" then

    set strText to text returned of recordResponse as text

    ####ペーストボード宣言

    set appPasteboard to refMe's NSPasteboard's generalPasteboard()

    ##結果をペーストボードにテキストで入れる

    set ocidText to (refMe's NSString's stringWithString:(strText))

appPasteboard's clearContents()

appPasteboard's setString:(ocidText) forType:(refMe's NSPasteboardTypeString)

return strText

  else if button returned of recordResponse is "もう一度" then

    set strSubKey to doListSelect()

doCommand(strSubKey)

  else

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

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

  end if

return

end doDialog

---

[nettop]接続中のネットワークサービスの一覧を出力する（修正）

---

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

#!/usr/bin/env osascript

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

#

#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

property refMe : a reference to current application

set strCommandText to "/usr/bin/nettop -x -n" as text

tell application "Terminal"

  launch

  activate

  set objTabWindows to do script "\n\n"

  tell objTabWindows

    activate

  end tell

  tell front window

    activate

    set numWidowID to id as integer

  end tell

  tell window id numWidowID

    set size to {720, 270}

    set position to {360, 25}

    set origin to {360, 500}

    set frame to {360, 500, 1080, 875}

    set bounds to {360, 25, 1080, 295}

  end tell

  tell objTabWindows

    activate

do script strCommandText in objTabWindows

  end tell

end tell

set strCommandText to "/usr/bin/nettop -m tcp" as text

tell application "Terminal"

  launch

  activate

  set objTabWindows to do script "\n\n"

  tell objTabWindows

    activate

  end tell

  tell front window

    activate

    set numWidowID to id as integer

  end tell

  tell window id numWidowID

    set size to {720, 300}

    set position to {360, 300}

    set origin to {360, 300}

    set frame to {360, 300, 1080, 600}

    set bounds to {360, 300, 1080, 600}

  end tell

  tell objTabWindows

    activate

do script strCommandText in objTabWindows

  end tell

end tell

set strCommandText to "/usr/bin/nettop -t wifi" as text

tell application "Terminal"

  launch

  activate

  set objTabWindows to do script "\n\n"

  tell objTabWindows

    activate

  end tell

  tell front window

    activate

    set numWidowID to id as integer

  end tell

  tell window id numWidowID

    set size to {720, 300}

    set position to {360, 600}

    set origin to {360, 0}

    set frame to {360, 0, 1080, 300}

    set bounds to {360, 600, 1080, 900}

  end tell

  tell objTabWindows

    activate

do script strCommandText in objTabWindows

  end tell

end tell

set strCommandText to "/usr/bin/man -a nettop"

tell application "Terminal"

  set objTabWindows to do script "\n\n"

  tell front window

    activate

    set numWidowID to id as integer

  end tell

  tell window id numWidowID

    activate

    set size to {360, 870}

    set position to {0, 25}

    set origin to {0, 0}

    set frame to {0, 0, 360, 875}

    set bounds to {0, 25, 360, 900}

  end tell

  tell objTabWindows

    activate

do script strCommandText in objTabWindows

  end tell

end tell

return

---

IPアドレス取得（汎用）

---

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

#!/usr/bin/env osascript

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

# com.cocolog-nifty.quicktimer.icefloe

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

use AppleScript version "2.8"

use framework "Foundation"

use framework "AppKit"

use scripting additions

property refMe : a reference to current application

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

######Macアドレス取得

###コマンド生成　実行

set strCommandText to "/usr/sbin/networksetup -listallnetworkservices"

set strResults to (do shell script strCommandText) as text

###戻り値を改行でリストに

set ocidListallnetworkservices to refMe's NSString's stringWithString:(strResults)

set ocidChrSet to refMe's NSCharacterSet's characterSetWithCharactersInString:("\r")

set ocidNetworkNameArray to ocidListallnetworkservices's componentsSeparatedByCharactersInSet:(ocidChrSet)

(ocidNetworkNameArray's removeObjectAtIndex:(0))

set strMacAdd to "" as text

repeat with itemNetworkName in ocidNetworkNameArray

  set strServiceName to itemNetworkName as text

  ###コマンド生成　実行

  set strCommandText to "/usr/sbin/networksetup -getinfo \"" & strServiceName & "\"" as text

  set strResponse to (do shell script strCommandText) as text

  ###戻り値を改行でリストに

  set ocidResponse to (refMe's NSString's stringWithString:(strResponse))

  set ocidChrSet to (refMe's NSCharacterSet's characterSetWithCharactersInString:("\r"))

  set ocidResponseArray to (ocidResponse's componentsSeparatedByCharactersInSet:(ocidChrSet))

  repeat with itemResponse in ocidResponseArray

    set strResponse to itemResponse as text

    if strResponse contains "Wi-Fi ID" then

      set strMacAdd to strServiceName & "：" & strResponse & "\r" & strMacAdd as text

    else if strResponse contains "Ethernet Address" then

      set strMacAdd to strServiceName & "：" & strResponse & "\r" & strMacAdd as text

    end if

  end repeat

end repeat

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

######　IPアドレス取得

set strURL to "https://www.cloudflare.com/cdn-cgi/trace?json" as text

set ocidURL to refMe's NSURL's URLWithString:(strURL)

###URLをリクエスト

set listContents to refMe's NSString's stringWithContentsOfURL:(ocidURL) encoding:(refMe's NSUTF8StringEncoding) |error|:(reference)

set ocidContents to item 1 of listContents

###改行で

set ocidCharacterSet to refMe's NSCharacterSet's newlineCharacterSet

###リスト化して

set ocidStringArray to ocidContents's componentsSeparatedByCharactersInSet:(ocidCharacterSet)

###IPアドレスを取得

repeat with itemStringArray in ocidStringArray

  if (itemStringArray as text) starts with "ip" then

    set ocidIPArray to (itemStringArray's componentsSeparatedByString:"=")

    set ocidIPAdd to (ocidIPArray's objectAtIndex:1)

  end if

end repeat

###正順　IPアドレス

set strIPAdd to ocidIPAdd as text

set ocidIpAddArray to ocidIPAdd's componentsSeparatedByString:(".")

set ocidIpAddArrayRev to (ocidIpAddArray's reverseObjectEnumerator())'s allObjects()

###逆順 IPアドレス

set strIPAddRev to (ocidIpAddArrayRev's componentsJoinedByString:(".")) as text

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

###### URL部分

set strURLrev to ("https://cloudflare-dns.com/dns-query?name=" & strIPAddRev & ".in-addr.arpa&type=PTR") as text

set ocidURLrevStr to refMe's NSString's stringWithString:(strURLrev)

set ocidURLrevURL to refMe's NSURL's URLWithString:(ocidURLrevStr)

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

###### URLRequest部分

set ocidURLRequest to refMe's NSMutableURLRequest's alloc()'s init()

ocidURLRequest's setHTTPMethod:("GET")

ocidURLRequest's setURL:(ocidURLrevURL)

ocidURLRequest's addValue:("application/json") forHTTPHeaderField:("Content-Type")

ocidURLRequest's addValue:("application/dns-json") forHTTPHeaderField:("accept")

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

repeat 5 times

  ###### データ取得

  set listServerResponse to refMe's NSURLConnection's sendSynchronousRequest:(ocidURLRequest) returningResponse:(missing value) |error|:(reference)

  ###取得JSONデータ

  set ocidJsonResponse to (item 1 of listServerResponse)

  ####取得データをJSONで確定

  set listJsonData to refMe's NSJSONSerialization's JSONObjectWithData:ocidJsonResponse options:(refMe's NSJSONReadingMutableContainers) |error|:(reference)

  set ocidJsonData to (item 1 of listJsonData)

  ####レコードに格納

  set ocidJsonDict to refMe's NSDictionary's alloc()'s initWithDictionary:(ocidJsonData)

  set numStatus to (ocidJsonDict's valueForKey:("Status")) as integer

  if numStatus = 0 then

    set ocidRevHost to (ocidJsonDict's valueForKey:("Question"))'s valueForKey:("name")

    set strRevHost to ocidRevHost as text

    exit repeat

  else

    delay 1

  end if

end repeat

if numStatus ≠ 0 then

  display alert "データの取得に失敗しました" giving up after 3

return "データの取得に失敗しました"

end if

###ホスト名解決

set strCommandText to ("/usr/bin/dig -x " & strIPAdd & " +short")

set strHostName to (do shell script strCommandText) as text

set strCommandText to ("/sbin/ifconfig | grep \"inet.*broadcast\" | awk '{print $2}'") as text

set strLocalIP to (do shell script strCommandText) as text

set strAns to ("ホスト名：" & strHostName & "\rグローバルIP：" & strIPAdd & "\r逆引き：" & strRevHost & "\rローカルIP：" & strLocalIP & "\r" & strMacAdd) as text

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

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

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

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

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

######ダイアログ

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

set aliasIconPath to POSIX file "/System/Library/CoreServices/CoreTypes.bundle/Contents/Resources/BookmarkIcon.icns" as alias

try

  set recordResponse to (display dialog strAns with title "IPアドレス" default answer strAns buttons {"クリップボードにコピー", "OK", "キャンセル"} default button "OK" cancel button "キャンセル" with icon aliasIconPath giving up after 20 without hidden answer)

on error

  log "エラーしました"

return "エラーしました"

end try

if true is equal to (gave up of recordResponse) then

return "時間切れですやりなおしてください"

end if

if "OK" is equal to (button returned of recordResponse) then

  set strResponse to (text returned of recordResponse) as text

else if button returned of recordResponse is "クリップボードにコピー" then

  set strText to text returned of recordResponse as text

  ####ペーストボード宣言

  set appPasteboard to refMe's NSPasteboard's generalPasteboard()

  ##結果をペーストボードにテキストで入れる

  set ocidText to (refMe's NSString's stringWithString:(strText))

appPasteboard's clearContents()

appPasteboard's setString:(ocidText) forType:(refMe's NSPasteboardTypeString)

return strText

else

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

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

end if

---