Justin
Fri Jul 16 09:00:18 CDT 2004
Auric__ wrote:
>>"richierich" <rsr2564@hotmail.com> wrote in message
>>news:eO49HlqaEHA.2816@TK2MSFTNGP11.phx.gbl...
>>
>>>Does anyone know how to script this red screen of death when a user does
>>>not have the right security patch or anti-virus software on their systems.
>
> On Thu, 15 Jul 2004 19:30:08 -0400, "Ray at <%=sLocation%> [MVP]" wrote:
>>What is a red screen of death?
>
> I've seen it before - I *think* it was done by Symantec A/V, though I
> could be remembering wrong... it was at [large international bank] when
> I was contracted (along with ~100 other people) to upgrade every
> computer owned by [bank] in town - right in the middle of one of the big
> nasty worm floods last year. Unfortunately, I don't know how they did
> it, and I don't know how to do it via a script. (I could imitate it in a
> regular program...)
Ah, that certainly makes things clearer. There is Internet Explorer's
theater mode, which could show a red warning screen. Of course, nothing
would stop users from closing, minimizing or otherwise dismissing the
warning.
I have included a code fragment that represents the bare minimum script
that suits the requirements. The function, "UpdatesRequired" can be
customized to suit the situation. Also, you could greatly improve the
utility of the warning by replacing the loop with code which
automatically installs the missing software.
Dim browser, windowClosed
If UpdatesRequired() Then
Set browser = WScript.CreateObject( _
"InternetExplorer.Application", _
"Browser_")
browser.TheaterMode = True
browser.Visible = True
browser.Navigate2 "
http://windowsupdate.microsoft.com/"
windowClosed = False
Do Until windowClosed
' If there is any processing you want to do while the window
' is open, this would be a suitable place for it.
WScript.Sleep 100
Wend
End If
' Function: UpdatesRequired
' Determine if any software or security patches are missing.
'
' Returns:
' False if all required software was found, True otherwise.
Function UpdatesRequired()
' Scan for missing security patches, software, etc.
UpdatesRequired = True
End Function
' Event handlers
Sub Browser_OnQuit()
windowClosed = True
End Sub
--
Justin Piper
Bizco Technologies
http://www.bizco.com/