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