set IE = WScript.CreateObject("InternetExplorer.Application")

dim ObjTitle

IE.Navigate("about:blank")
IE.Document.Title = "Software Update"
IE.FullScreen = 1
IE.Left       = 0
IE.Top        = 0
IE.MenuBar    = 0
IE.Toolbar    = 0
IE.StatusBar  = 0
IE.Width      = 540
IE.Height     = 151
IE.Visible    = 1

Set ObjBody  = IE.Document.Body
strHTML = "<b><h2>Software Update In Progress</H2><br>" &_
"Please do not use your computer during this time.  Thank you</B>"
objBody.InnerHTML = strHTML