AppleScript: Slå på Internet Sharing.

Tråden skapades 2004-09-20 och har fått 2 svar. Det senaste inlägget skrevs 2004-09-21.

1

2004-09-20 13:11

#1

Jont Olof
Medlem ●
2004-09-20 13:11

Jag behöver ett AppleScript som sätter på Internet Sharing. Har hittat den här länken som visar lite hur man scriptar System Preferences. Exemplet tar dock upp inställningar för Sound.

Jag har försökt använda den kod som står där för att aktivera inställningingspanelen File Sharing (för att därefter välja Internet). I mappen /System/Library/PreferencePanes/ hittade jag att Filesharing-panelen hette SharingPref.prefPane. Ledd av min Ciceron på ovanstående länk försökte jag med följade kod:

tell application "System Preferences"
activate
set current pane to pane "com.apple.preference.SharingPref"
end tell

... men det resulterar i ett AppleScript-fel som lydde:

Systeminställningar drabbades av ett fel: NSArgumentEvaluationScriptError

Med andra verkar det som om jag flunkat på något sätt. Jag har testat en massa derivat av ovanstående, exempelvis FileSharing, Sharing osv. utan att lyckas.

Någon som vet hur jag skriptar InternetDelningen!?

Tacksam för svar!

/Jont Olof

Anmäl Ändra Gilla Svara

2004-09-20 23:51

#2

wlao
Medlem ●
2004-09-20 23:51

Testa med "com.apple.preferences.sharing" (med ett "s" på slutet av preferences...)

Jag körde scriptet "... get every pane ..." och läste resultatet för att hitta det.

Anmäl Ändra Gilla Svara

2004-09-21 01:05

#3

thevil
Medlem ●
2004-09-21 01:05

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 10
    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

Från vännerna på Mac OS X Hints.