便利or面白いアップルスクリプトのスレッド

//////////////////////////////////////////

何でも良いから書いてください

//////////////////////////////////////////

TCP/IPの設定を自動切替するスクリプト。
--
property |切替先設定| : ""

if |切替先設定| = "" then
tell application "ネットワーク設定スクリプト"
open database
set |IP設定リスト| to {}
repeat with i in every TCPIP v4 configuration
set |IP設定名| to name of i
set end of |IP設定リスト| to |IP設定名|
end repeat
close database
end tell
choose from list |IP設定リスト| with prompt "TCP/IP設定を選択して下さい。：" returning |切替先設定|
display dialog "次回このアプレットを起動すると" & |切替先設定| & "に設定変更します。" buttons "終了" default button 1
else
set yu to display dialog "TCP/IP設定変更
(5秒待つと自動設定変更)" buttons {"実行"＠｀ "設定"＠｀ "終了"} default button 2 giving up after 5
set iq to button returned of yu
if gave up of yu is true then set iq to "実行"
if iq = "実行" then
display dialog (|切替先設定| as text) & "に設定変更します。(2秒後自動実行)" giving up after 2
try
tell application "ネットワーク設定スクリプト"
open database
begin transaction
set active of TCPIP v4 configuration (|切替先設定| as text) to true
end transaction
close database
end tell
on error
beep
quit application "ネットワーク設定スクリプト"
end try
else
if iq = "設定" then
tell application "ネットワーク設定スクリプト"
open database
set |IP設定リスト| to {}
repeat with i in every TCPIP v4 configuration
set |IP設定名| to name of i
set end of |IP設定リスト| to |IP設定名|
end repeat
close database
end tell
choose from list |IP設定リスト| with prompt "TCP/IP設定を選択して下さい。：" returning |切替先設定|
display dialog "次回このアプレットを起動すると" & |切替先設定| & "に設定変更します。" buttons "終了" default button 1
end if
end if
end if

ファイル名を、任意の接頭辞と接尾辞の付いた連番にするドロップレット。
画像ファイル等の整理にどうぞ。
--
on open thelist
display dialog "接頭辞を入力して下さい" default answer "" returning tp
display dialog "拡張子を入力して下さい" default answer "" returning sf
display dialog "番号の桁数を入力して下さい。" default answer "" returning kt
set top to text returned of tp
set suffix to text returned of sf
set keta to text returned of kt
tell application "Finder"
set i to 1
repeat with theitem in thelist
set zeroketa to keta - (count (i as text))
set zero to ""
repeat zeroketa times
set zero to zero & "0"
end repeat
set name of theitem to top & "-" & zero & (i as text) & "." & suffix
set i to i + 1
end repeat
end tell
end open

MacOS Teamのスクリーンセーバー？をアップルスクリプトで出すこと
って出来る？。

MacOS Teamのスクリーンセーバー ＝ コマンド＋オプション＋
コントロール＋このコンピューターについてで出てくるやつ

iMacのCMのようにiMacが回転しつづける
アップルスクリプトを作りなさい。