eMail bei Änderung der IP Adresse

Ist dem Internet Gateways keine feste IP Adresse zugeordnet, änder sich die externe IP Adresse regelmäßig.  Das folgende Applescrip überprüft regelmäßig ob sich die externe IP Adresse geändet hat. Wird dem Internet Gateway durch den Provider eine neue dynamische IP Adresse zugewiesen wird eine eMail versendet.

-- Mail-IP.applescript

property newAddress : ""
property currentAddress : ""
property newMessage : ""
property emailRecepient : "Benutzername
property emailAddress : "benutzer@domäne.xxx-- eMail Empfänger

on idle
 -- Auslesen der derzeitigen externen IP Adresse.
 tell application "System Events" to set newAddress to do shell script "curl http://checkip.dyndns.org | awk '/: / {print $6}' | cut -f 1 -d '<' "

 -- Hat sich die IP Adresse seit der letzten Überprüfung geändert ...
 if newAddress is not equal to currentAddress then

-- ... sendet die IP Adresse als eMail.
 tell application "Mail"
 set newMessage to make new outgoing message with properties {visible:true, subject:"ip info", content:"Die externe IP Adresse lautet: " & newAddress}
 tell newMessage
 make new to recipient at end of to recipients with properties {address:emailAddress}
 end tell
 activate
 send newMessage
 end tell
end if

-- Die derzeitige IP Adresse als neue IP Adresse definiert.
 set currentAddress to newAddress

-- Stündlich wird eine Überprüfung durchgeführt Die Angabe erfolgt in Sekunden.
 return 3600

end idle