objExplorer.Document.Body.InnerHTML and Windows 7

Dim objFSO, strAVPath
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
 
 
If objFSO.FileExists("c:\Program Files\AV\MP4\avp.exe") Then
        strAVPath = "C:\Program Files\AV\MP4\avp.exe"
Else
        strAVPath = "C:\Program Files\AV\MP1\avp.exe"
End If
 
iRtn = Msgbox("Would you like to run a Virus Scan before shutdown?", vbYesNo, "Confirm Shutdown")
 
If iRtn = vbYes Then
        Set objExplorer = WScript.CreateObject("InternetExplorer.Application")
        objExplorer.Navigate "about:blank"   
        objExplorer.ToolBar = 0
        objExplorer.StatusBar = 0
        objExplorer.Width=400
        objExplorer.Height = 200 
        objExplorer.Left = 0
        objExplorer.Top = 0
        objExplorer.Visible = 1
 
        objExplorer.Document.Body.InnerHTML = "Running virus scan, please wait..."
 
        objShell.Run strAVPath & " /all", 1, True
End If
 
objShell.Run "shutdown -s -f -t 0"

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

' AV Scan.vbs
 
' -----------------------------------------------------------------'
Option Explicit
Dim objFSO, strAVPath
Dim objShell
Dim iRtn
Dim objExplorer 

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
Set objExplorer = WScript.CreateObject("InternetExplorer.Application")
 
If objFSO.FileExists("C:\Program Files\Kaspersky Lab\Kaspersky Anti-Virus 6.0 for Windows Workstations MP4\avp.com") Then
        strAVPath = """C:\Program Files\Kaspersky Lab\Kaspersky Anti-Virus 6.0 for Windows Workstations MP4\avp.com"""
Else
        
        strAVPath = """C:\Program Files\Kaspersky Lab\Kaspersky Anti-Virus 6.0 for Windows Workstations\avp.com"""
End If
 
        Set objExplorer = WScript.CreateObject("InternetExplorer.Application")
        objExplorer.Navigate "about:blank"   
        objExplorer.ToolBar = 0
        objExplorer.StatusBar = 0
        objExplorer.Width=400
        objExplorer.Height = 200 
        objExplorer.Left = 0
        objExplorer.Top = 0
        objExplorer.Visible = 1 
	Do Until objExplorer.ReadyState = 4 : WScript.Sleep 50 : Loop
	objExplorer.document.parentwindow.focus
	
 
        objExplorer.Document.Title = "Scan in progress"
        objExplorer.Document.Body.InnerHTML = "Running virus scan, Your computer will shutdown when completed." _ 
               & " Close open window to cancel scan."
 
        objShell.Run strAVPath & "SCAN /ALL /i2", 1, True
        objExplorer.Quit 
 
objShell.Run "shutdown -s -f -t 0"

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44: