I created a script which retrieves values from registry
keys on all networked (online) computers in our domain.
For that purpose some kind of progress indicator was needed.
This is the *example* how that was made:
---START---
Set objExplorer = CreateObject("InternetExplorer.Application")
objExplorer.Navigate "about:blank"
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Width = 800
objExplorer.Height = 600
objExplorer.Left = 0
objExplorer.Top = 0
Do While (objExplorer.Busy)
Wscript.Sleep 200
Loop
objExplorer.Visible = 1
objExplorer.Document.Body.InnerHTML = "Progress..."
Do While 1=1
objExplorer.Document.Body.InnerHTML =
objExplorer.Document.Body.InnerHTML & "<BR>" & "some text..."
Wscript.Sleep 300
Loop
Wscript.Quit
---END---
When this script is run, Internet Explorer is started and lines
with text "some text..." are added one under another.
When there is too much text to fit on the screen, vertical scrollbar
is automatically created and text is scrollable.
The question is how to modify the script so that when lines
of text are added to the bottom the window automatically scrolls
to show the last line added to log, without user having to scroll
manually to see the newest lines?
Drazen