miaubiz

tell application "System Events"
    tell process "SystemUIServer"
        tell (menu bar item 1 of menu bar 1 whose description is "bluetooth")
            click
            tell (menu item "My Phone" of menu 1)
                click
                tell (menu "My Phone")
                    click menu item "Connect to Network"
                end tell
            end tell