Progress Bar Scripting Techniques
Track Script Progress in a Command WindowTrack Script Progress Using Internet Explorer
You can use any of the VBScript programs below in ActiveXperts Network Monitor. Click here for an explanation about how to include scripts in ActiveXperts Network Monitor.
Track Script Progress in a Command Window
Demonstrates the use of StdOut as a method for indicating the progress being made by a script.
Wscript.Echo "Processing information. This might take several minutes." strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colServices = objWMIService.ExecQuery("Select * from Win32_Service") For Each objService in colServices Wscript.StdOut.Write(".") Next Wscript.StdOut.WriteLine Wscript.Echo "Service information processed."
Track Script Progress Using Internet Explorer
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:\\" & strComputer & "\root\cimv2"). _ ExecQuery("Select * from Win32_Service") For Each objService in colServices Wscript.Sleep 200 Next objExplorer.Document.Body.InnerHTML = "Service information retrieved." Wscript.Sleep 3000 objExplorer.Quit