Rellenar campos con script

[truskyvb]

Hola a todos. Intento entrar directamente en una página en la que tengo que introducir usuario y contraseña.

Utilizo Safari.
Primero abro la aplicación y llego a la pantalla de login:

Set open = CreateObject("Wscript.Shell")
open.Run "safari https://xxx.com/xxx/login"

El tema, es ¿cómo hacer para que escriba el usuario y contraseña?

Con Internet explorer lo conseguí así, (en Safari no funciona):

set objIE = createobject("internetexplorer.application")
objIE.visible = True
objIE.navigate "https://xxx.com/xxx/login"
do while objIE.busy
wscript.sleep 200
loop
objIE.document.getelementbyid("usuario").value = "miusuario"
objIE.document.getelementbyid("clave").value = "miconstraseña"
objIE.document.getelementbyid("acceder").click


Gracias de antemano.
Un saludo