(DTPtechNote:1626) Re: [InDesign CS3][scripting]スクリプトインストール先

[せうぞー <anonymous at unknown-host>]

>ちょっと想像するのは、サーバーとの接続性を確認して、未接続なら接続するとか、
>アクティブなフォントセットを表示してくれるとか。

たとえば、こんな感じ。
この場合、volume "hoge"がネットワークボリュームかどうか、ちゃんと調べるのをさぼってますが、普段使いには差し支えないかな、と。
最近、mount volumeなんて使っていないから、ほかにいい方法があるかもしれません。


set network_vol to "hoge" as Unicode text --ネットワークボリューム名
set server_ip to "192.168.xxx.xxx"

tell application "Finder"
	activate
	set my_disk to list disks
	if network_vol is in my_disk then
		display dialog ("ネットワークボリューム：" as Unicode text) & network_vol & return & "ステータス：接続されています"
	else
		mount volume "afp://" & server_ip & "/"
	end if
end tell

tell application "Font Book"
	set active_collection to name of every font collection whose enabled is true
end tell
activate
display dialog ("Font Bookでアクティブなコレクションは以下のとおりです" as Unicode text) & return & return & my as_join(return, active_collection)


----------------------------------------------○リストをデリミタで結合
to as_join(thedelimit, theList)
	set oldDelim to AppleScript's text item delimiters
	set AppleScript's text item delimiters to thedelimit
	set tmpstr to theList as text
	set AppleScript's text item delimiters to oldDelim
	return tmpstr
end as_join