Este a mi me funciona con la última versión de macOS Mojave.
Guardar este siguiente AppleScript en el Editor de secuencias de Comandos.aplicación como de "Ejecución Única" de la aplicación. Asegúrese de agregar su nueva aplicación a la lista de permitidos apps para controlar su equipo, en Preferencias del Sistema/Seguridad Y Privacidad/Privacy... menú de Accesibilidad y de Disco Completo menú de Acceso. El lanzamiento de su nueva aplicación y prueba para asegurarse de que funciona. También puede probar el código en el Editor de secuencias de Comandos.aplicación antes de guardarlo como una aplicación.
He actualizado el código para manejar el caso en que "Requieren una contraseña de administrador para acceder a todo el sistema de preferencias" en "...General->opciones Avanzadas ... Está habilitado. El único inconveniente es que la versión actualizada del código requiere que usted agregue su contraseña a la secuencia de comandos, el cual es necesario para desbloquear el panel de preferencias compartir. Aunque la grabación de esta nueva versión del código como de "Ejecución Única" de la aplicación en el Editor de secuencias de Comandos.aplicación, hace que Editor de secuencias de Comandos u otra secuencia de comandos de edición de la aplicación no se abre el archivo de sólo lectura, otras aplicaciones de edición de texto puede visualizar la semi ilegible el código y ver el valor de su contraseña (que no sea confusa porque está envuelto en comillas)
set thePass to "your_password"
delay 180 --WAITS 3 MINUTES ALLOWING YOUR COMPUTER TO DO ITS NORMAL START UP ROUTINE
try
if application "System Preferences" is running then do shell script "killall 'System Preferences'"
end try
repeat until application "System Preferences" is not running
delay 0.1
end repeat
tell application "System Preferences"
activate
reveal anchor "Services_PersonalFileSharing" of pane id "com.apple.preferences.sharing"
end tell
tell application "System Events"
repeat until exists of toolbar 1 of window "Sharing" of application process "System Preferences"
delay 0.3
end repeat
click toolbar 1 of window "Sharing" of application process "System Preferences"
if exists of button "Click the lock to make changes." of window "Sharing" of application process "System Preferences" then
-- Click the "Click the lock to make changes." button.
repeat until exists of UI element "Click the lock to make changes." of window "Sharing" of application process "System Preferences"
delay 0.3
end repeat
click UI element "Click the lock to make changes." of window "Sharing" of application process "System Preferences"
-- Click the "Use Password…" button.
delay 0.3
click UI element 5 of sheet 1 of window "Sharing" of application process "System Preferences"
repeat until exists of text field "Enter password" of sheet 1 of window "Sharing" of application process "System Preferences"
delay 0.3
end repeat
repeat 3 times -- May Be Overkill But Helped Avoiding Errors On My System
click text field "Enter password" of sheet 1 of window "Sharing" of application process "System Preferences"
end repeat
delay 0.5
tell application process "System Preferences"
keystroke thePass
end tell
delay 0.5
click UI element "Unlock" of sheet 1 of window "Sharing" of application process "System Preferences"
end if
end tell
delay 1
tell application "System Events"
tell process "System Preferences"
repeat while not (exists of checkbox 1 of row 2 of table 1 of scroll area 1 of group 1 of window "Sharing")
delay 0.2
end repeat
try
tell checkbox 1 of row 2 of table 1 of scroll area 1 of group 1 of window "Sharing" to if value is 0 then click
end try
end tell
repeat while not (exists of button "Options…" of group 1 of window "Sharing" of application process "System Preferences")
delay 0.3
end repeat
click button "Options…" of group 1 of window "Sharing" of application process "System Preferences"
repeat while not (exists of checkbox "Share files and folders using AFP" of sheet 1 of window "Sharing" of application process "System Preferences")
delay 0.3
end repeat
tell checkbox "Share files and folders using AFP" of sheet 1 of window "Sharing" of application process "System Preferences" to if value is 0 then click
delay 0.5
tell checkbox "Share files and folders using SMB" of sheet 1 of window "Sharing" of application process "System Preferences" to if value is 0 then click
delay 0.5
click button "Done" of sheet 1 of window "Sharing" of application process "System Preferences"
end tell
tell application "System Preferences" to quit
Suponiendo que todo está trabajando, seguir adelante y añadir esta aplicación a su puesta en marcha de elementos de Preferencias del Sistema. A continuación, seguir adelante y Reinicie su computadora y asegúrese de que el AppleScript aplicación funciona correctamente