Gimmick-Blog

Gui-Scripting…. Ad Hoc ganz schnell

Da ich des öfteren an Orten bin, die zwar Internet via Lan, aber kein WLan anbieten, suchte ich nach einer Lösung, mein iPhone über ein Ad-Hoc Netzwerk (MacBook - iPhone) ins Internet zu bringen.
Leider ist das ganze mit sehr viel "klickerei" verbunden. Ein Script würde die ganze Sache sehr vereinfachen.
Nach langem Suchen bin ich auch fündig geworden. Ein Script von StefanK aus der Schweiz (http://bbs.macscripter.net/viewtopic.php?pid=99243). Viele Grüße dahin!
Ich habe das Script ein wenig eingedeutscht und angepasst. Leider läuft es noch nicht komplett ohne Benutzereingriff. Das liegt unter anderem auch daran, das sich ein deutsches MacOS nicht wirklich gut scripten lässt. Versucht mal, den englischen Namen, bei einem deutschen Button/Preference-Pane zu finden!

Die Funktion des Scriptes ist folgende:

1. Anlegen eines Ad-Hoc Netzwerkes
2. Öffnen der Systemeinstellungen

In den Systemeinstellungen kann man dann "von Hand" das Internetsharing aktivieren.

Für mich eine kleine Erleichterung.

Hier also das Script:

property Netzwerkname : "iPhone" -- SSID des Netzwerkes
property Kennwort : "12345" -- Genau 5 Zeichen lang
property CreateMenuName : "Netzwerk anlegen …"

tell application "System Events"
tell process "SystemUIServer"
tell menu bar 1
set menu_extras to value of attribute "AXDescription" of menu bar items
repeat with the_menu from 1 to the count of menu_extras
if item the_menu of menu_extras contains "Airport" then exit repeat
end repeat
tell menu bar item the_menu
perform action "AXPress"
delay 0.2
perform action "AXPress" of menu item CreateMenuName of menu 1
end tell
end tell
repeat until exists window 1
delay 0.5
end repeat
tell window 1
keystroke Netzwerkname
click checkbox 1
keystroke Kennwort
keystroke tab
keystroke Kennwort
click pop up button 2
click menu item 1 of menu 1 of pop up button 2
delay 0.5
click button 1
end tell
end tell
end tell

tell application "Finder"
activate
make new Finder window to startup disk
set target of Finder window 1 to folder "Applications" of startup disk
open application file "System Preferences.app" of folder "Applications" of startup disk
end tell
tell application "Finder"
activate
close Finder window 1
end tell

Natürlich lässt sich das Ganze mit dem Script-Editor auch als ausführbares Programm speichern und sich so einfach mit dem Finder starten. Was da in dem Video abläuft, ist das starten des Scriptes... Das ganze geht so schnell, das man es nicht wirklich verfolgen kann