vbs script open window using url and close

set WshShell = WScript.CreateObject("WScript.Shell")
set shell = CreateObject("Shell.Application")
shell.Open "http://www.google.com"
WScript.Sleep 5000
WshShell.SendKeys"^{F4}"