Applescript for Internet Sharing in Leopard

Okay, so at home I use a wireless network, but at work I use a wired one. When at work, I share my wired connection over Airport to my iPhone. This works fine except that I mist manually turn it on and off. I also use the excellent DSW (Do Something When) tool, so I thought it would be good to have DSW start Internet Sharing automagically whenever my work USB drive is connected. I found the script below on this site:

tell application "System Preferences"
activate
end tell

tell application "System Events"
tell process "System Preferences"
click menu item "Sharing" of menu "View" of menu bar 1
delay 3
tell window "Sharing"
if (exists tab group 1) then
tell tab group 1
click radio button "Internet"
delay 1
click button "Start"
delay 1
end tell
end if
if exists sheet 1 then
tell sheet 1
click button "Start"
end tell
end if
end tell
end tell
end tell

ignoring application responses
tell application "System Preferences" to quit
end ignoring

For some reason, though, if I paste it in, compile it, and then hit run, it gets me as far as the Sharing screen, but it fails to put a check mark in the "Internet Sharing" item and further never clicks the Start button (since the Internet Sharing item is never clicked, the Start button never shows).

I noticed the one line says:

"click radio button "Internet"

and I've tried modifying it to say "Internet Sharing" instead, but I get the same results. Anyone know why this isn't working?

Further, Leopard seems to remember the Internet Sharing state, so I'm curious how I would automate this to also disable Internet Sharing (I know I can have DSW do it when my work drive in unmounted... I just need the AppleScript). Any thoughts?

*bump*

Anyone?

Thanks Jewtobog. I got it working and added growl support as well.

Here's the script to start it:
-------------------------------

(* Author: A. Davis
Date: 05.20.2008
Latest Revision: 05.20.2008
Purpose: Start Interet Sharing - specifically, this is used to share the wired network connection
over Airport to be used by my iPhone. If scripted with DSW when the work Time Machine drive mounts
then its that much better. A correlary script can be used to disable Internet Sharing when the
same drive is unmounted.
*)

register_growl()

tell application "System Preferences" to set current pane to pane "com.apple.preferences.sharing"
tell application "System Events" to tell process "System Preferences"
click checkbox 1 of row 10 of table 1 of scroll area 1 of group 1 of window "Sharing"
delay 1
if (exists sheet 1 of window "Sharing") then
click button "Start" of sheet 1 of window "Sharing"
end if
try
set message to "Internet Connection Sharing Enabled"
my growlnote("General Notification", message)
on error
set message to "Internet Connection Sharing was Not Enabled"
my growlnote("error notification", message)
end try
end tell
ignoring application responses
tell application "System Preferences" to quit
end ignoring

on register_growl()
try
tell application "GrowlHelperApp"
set the allNotificationsList to {"General Notification", "Debug Notification", "Error Notification"}
set the enabledNotificationsList to {"General Notification", "Debug Notification", "Error Notification"}
register as application "Enable Internet Connection Sharing" all notifications allNotificationsList default notifications enabledNotificationsList icon of application "Sharing"
end tell
end try
end register_growl

on growlnote(growltype, str)
try
tell application "GrowlHelperApp"
notify with name growltype title growltype description str application name "Enable Internet Connection Sharing"
end tell
end try
end growlnote

And here's the script to turn it off:
--------------------------------------

(* Author: A. Davis
Date: 05.20.2008
Latest Revision: 05.20.2008
Purpose: Stop Interet Sharing - specifically, this is used to share the wired network connection
over Airport to be used by my iPhone. If scripted with DSW when the work Time Machine drive mounts
then its that much better. A correlary script can be used to disable Internet Sharing when the
same drive is unmounted.
*)

register_growl()

tell application "System Preferences" to set current pane to pane "com.apple.preferences.sharing"
tell application "System Events" to tell process "System Preferences"
click checkbox 1 of row 10 of table 1 of scroll area 1 of group 1 of window "Sharing"
delay 1
try
set message to "Internet Connection Sharing Disabled"
my growlnote("General Notification", message)
on error
set message to "Internet Connection Sharing was Not Enabled"
my growlnote("error notification", message)
end try
end tell
ignoring application responses
tell application "System Preferences" to quit
end ignoring

on register_growl()
try
tell application "GrowlHelperApp"
set the allNotificationsList to {"General Notification", "Debug Notification", "Error Notification"}
set the enabledNotificationsList to {"General Notification", "Debug Notification", "Error Notification"}
register as application "Enable Internet Connection Sharing" all notifications allNotificationsList default notifications enabledNotificationsList icon of application "Sharing"
end tell
end try
end register_growl

on growlnote(growltype, str)
try
tell application "GrowlHelperApp"
notify with name growltype title growltype description str application name "Enable Internet Connection Sharing"
end tell
end try
end growlnote