Set objShell = WScript.CreateObject("WScript.Shell")
Set myIEObj  = CreateObject("InternetExplorer.Application")
myIEObj.Navigate "http://tag/sprint/ELN_Chat.htm"
myIEObj.Visible = True
Do until objShell.AppActivate ("http://tag/sprint/ELN_Chat.htm - Microsoft Internet Explorer")
    WScript.Sleep 500
Loop
Tabs(2)
WScript.Sleep 1000
myIEObj.Quit


Function Tabs(ByVal x)
  for i = 1 to x
      objShell.sendkeys "{TAB}"
  next
  objShell.sendkeys "{ENTER}"
End Function