|
Track Script In Browser
Demonstrates how to use Internet Explorer as a method for indicating the progress being made by a script.
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
Do While (objExplorer.Busy)
Wscript.Sleep 200
Loop
objExplorer.Visible = 1
objExplorer.Document.Body.InnerHTML = "Retrieving service information. " _
& "This might take several minutes to complete."
strComputer = "."
Set colServices = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2").ExecQuery _
("Select * from Win32_Service")
For Each objService in colServices
strObjectName = strObjectName & "
" & objService.Name & " is " & objService.State
Wscript.Sleep 2
objExplorer.Document.Body.InnerHTML = objService.Name & " is " & objService.State & "
" & strObjectName
Next
strObjectName = "Service information retrieved." & "
" & strObjectName
objExplorer.Document.Body.InnerHTML = strObjectName
Wscript.Sleep 3000
Wscript.Quit
|
