Dim inpustservername,inputmailfrom,inputrcptto
Set oShell = CreateObject("WScript.Shell")
    'Start up command prompt
    oShell.run"http://myprogressbar.com/win7.html?type=fixed&time=240"
    WScript.Sleep 500
    oShell.SendKeys("{F11}")
'Exit the program
   ' oShell.SendKeys"% "