on 2006-03-11 12:05 AM, David Freels at [log in to unmask] wrote:

> I would really like to activate/deactivate Bluetooth on the Mac via
> Applescript (hopefully) via the computer keyboard and/or phone keypad.

Here's a script that turns Bluetooth off. I'll leave it to you to figure out
how to run it from the keyboard.

Notice that the property identifying the location of the Bluetooth menu in
the menu bar has to be set according to the particular arrangement of menu
extras on your machine. You'll have to set it again if you install or remove
menu extras.

-- Set the bluetoothIndex to suit your setup
-- (for best stability, count from the end)

property bluetoothIndex : -6

activate application "SystemUIServer"
tell application "System Events"
    tell process "SystemUIServer"
        set bluetoothItem to menu bar item bluetoothIndex of menu bar 1
        click bluetoothItem
        tell menu 1 of bluetoothItem
            if title of menu item 1 does not start with "BlueTooth" then
                beep
                display dialog "This is not the BlueTooth menu extra."
buttons {"OK"} default button "OK"
                return
            end if
            if title of menu item 2 ends with "Off" then
                click menu item 2
            end if
        end tell
    end tell
end tell


--

Bill Cheeseman - [log in to unmask]
Quechee Software, Quechee, Vermont, USA
http://www.quecheesoftware.com

PreFab Software - http://www.prefab.com/scripting.html
The AppleScript Sourcebook - http://www.AppleScriptSourcebook.com
Vermont Recipes - http://www.stepwise.com/Articles/VermontRecipes