{"id":67773,"date":"2006-03-13T22:28:00","date_gmt":"2006-03-13T22:28:00","guid":{"rendered":"https:\/\/blogs.technet.microsoft.com\/heyscriptingguy\/2006\/03\/13\/how-can-i-write-output-to-the-screen-that-overwrites-whatever-is-currently-on-the-screen\/"},"modified":"2006-03-13T22:28:00","modified_gmt":"2006-03-13T22:28:00","slug":"how-can-i-write-output-to-the-screen-that-overwrites-whatever-is-currently-on-the-screen","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/scripting\/how-can-i-write-output-to-the-screen-that-overwrites-whatever-is-currently-on-the-screen\/","title":{"rendered":"How Can I Write Output to the Screen that Overwrites Whatever is Currently on the Screen?"},"content":{"rendered":"

\"Hey, \n

Hey, Scripting Guy! How can I write output to the screen that overwrites whatever is currently on the screen?

— KM<\/P>\"Spacer\"\"Hey,\"Script<\/A> \n

Hey, KM. If you specifically need to write your output to the command window, well, then we don\u2019t have an answer for you: although we played around with a few things, we never found an easy, straightforward way to overwrite information in the command window.<\/P>\n

However, if you\u2019re willing to output your information to an Internet Explorer window, well, then we do<\/I> have an answer for you. And, coincidentally, here\u2019s that answer right now:<\/P>

Set objExplorer = CreateObject(“InternetExplorer.Application”)\nobjExplorer.Navigate “about:blank”   \nobjExplorer.ToolBar = 0\nobjExplorer.StatusBar = 0\nobjExplorer.Width = 400\nobjExplorer.Height = 200 \nobjExplorer.Left = 0\nobjExplorer.Top = 0<\/p>\n
Do While (objExplorer.Busy)\n    Wscript.Sleep 200\nLoop    <\/p>\n
objExplorer.Document.Title = “Process Information”   \nobjExplorer.Visible = 1  <\/p>\n
objExplorer.Document.Body.InnerHTML = “Retrieving process information.” <\/p>\n
Wscript.Sleep 2000<\/p>\n
strComputer = “.”\nSet objWMIService = GetObject(“winmgmts:\\\\” & strComputer & “\\root\\cimv2”)\nSet colItems = objWMIService.ExecQuery(“Select * from Win32_Process”)\nFor Each objItem in colItems\n    objExplorer.Document.Body.InnerHTML = objItem.Name\n    Wscript.Sleep 500\nNext<\/p>\n
objExplorer.Document.Body.InnerHTML = “Process information retrieved.”\nWscript.Sleep 3000\nobjExplorer.Quit\n<\/PRE>\n
Granted this looks a little long, but it\u2019s actually pretty easy, as you\u2019re about to find out. For example, at first glance this block of code might look a bit intimidating:<\/P>
Set objExplorer = CreateObject(“InternetExplorer.Application”)\nobjExplorer.Navigate “about:blank”   \nobjExplorer.ToolBar = 0\nobjExplorer.StatusBar = 0\nobjExplorer.Width = 400\nobjExplorer.Height = 200 \nobjExplorer.Left = 0\nobjExplorer.Top = 0\n<\/PRE>\n
As it turns out, though, all we\u2019re doing here is creating a blank instance of Internet Explorer; in particular, that\u2019s what the first two lines of code do. The remaining lines of code simply configure various properties of the Internet Explorer window: we set the width to 400 pixels, we hide the tool bar, and we position the Internet Explorer window in the upper left-hand corner of the screen. If you\u2019re happy with the default configuration of the Internet Explorer window then you could skip lines 3 through 8. <\/P>\n
After we\u2019re done setting up our Internet Explorer window we use this Do While loop to pause the script until Internet Explorer is fully loaded:<\/P>
Do While (objExplorer.Busy)\n    Wscript.Sleep 200\nLoop\n<\/PRE>\n
See? That\u2019s no so bad. With Internet Explorer up and running we next give our Internet Explorer window a title and set the Visible<\/B> property to True (1). We need to do that because, up till now, Internet Explorer has been running in a hidden window and has not been visible on screen. But this code will take care of that little problem:<\/P>
objExplorer.Document.Title = “Process Information”   \nobjExplorer.Visible = 1\n<\/PRE>\n
Now we\u2019re ready to write something to our window. For this sample script that\u2019s as easy as this:<\/P>
objExplorer.Document.Body.InnerHTML = “Retrieving process information.”\n<\/PRE>\n
As you can see, we\u2019re simply assigning a value to the Document.Body<\/B> object\u2019s InnerHTML<\/B> property. In this case we\u2019re merely assigning InnerHTML some text: Retrieving process information<\/I>. However, we could easily add some HTML tags and create fancier output. For example, this line of code will boldface the text written to the window:<\/P>
objExplorer.Document.Body.InnerHTML = “<B>Retrieving process information.<\/B>”\n<\/PRE>\n
OK, maybe that doesn\u2019t qualify as fancy<\/I>. But you get the idea.<\/P>\n
After displaying our text string in the Internet Explorer window we then pause the script for 2 seconds (2000 milliseconds). There\u2019s no reason why we have<\/I> to do that; that\u2019s done simply so you\u2019ll have a chance to see the text before we overwrite it. <\/P>\n
That brings us to this block of code:<\/P>
strComputer = “.”\nSet objWMIService = GetObject(“winmgmts:\\\\” & strComputer & “\\root\\cimv2”)\nSet colItems = objWMIService.ExecQuery(“Select * from Win32_Process”)\nFor Each objItem in colItems\n    objExplorer.Document.Body.InnerHTML = objItem.Name\n    Wscript.Sleep 500\nNext\n<\/PRE>\n
All we\u2019re doing here is retrieving a collection of the processes running on the local computer. That\u2019s not important; we just need the script to do something<\/I> interesting. What we care about today is what happens inside the For Each loop we set up to walk through all the items in that collection:<\/P>
For Each objItem in colItems\n    objExplorer.Document.Body.InnerHTML = objItem.Name\n    Wscript.Sleep 500\nNext\n<\/PRE>\n
In most WMI scripts we\u2019d echo back property values (such as Name<\/B>) inside our For Each loop. Here, however, we don\u2019t use Wscript.Echo. Instead, we assign the name of the first process in the collection to the body\u2019s InnerHTML property:<\/P>
objExplorer.Document.Body.InnerHTML = objItem.Name\n<\/PRE>\n
What\u2019s that going to do? That\u2019s going to overwrite the existing contents of our Internet Explorer window with the name of the first process in the collection. For example, at the time we begin the loop the Internet Explorer window will contain this text:<\/P>\n
Retrieving process information.<\/P>\n
As we start the loop, that text will be replaced with the name of the first process in the collection. For example:<\/P>\n
Winword.exe.<\/P>\n
After overwriting the contents of the window we pause the script for half a second (500 milliseconds). Again, that\u2019s not required; we do that simply to slow the script down a little and give you a chance to see the first process name displayed. Half a second later we loop around and retrieve information about the second process in the collection. The script then replaces the existing contents of the Internet Explorer window (technically, the value assigned to the InnerHTML property) with the name of the second process. Etc. etc.<\/P>\n
After we\u2019ve looped through the entire collection we indicate that the script has finished, pause for 3 seconds, and then dismiss the Internet Explorer window:<\/P>
objExplorer.Document.Body.InnerHTML = “Process information retrieved.”\nWscript.Sleep 3000\nobjExplorer.Quit\n<\/PRE>\n
This works pretty good, and is pretty easy as well. And because it uses HTML that means you can make your output as fancy as you want; in fact, you could even make your Internet Explorer window look like a command window. If that\u2019s not cool, well, we don\u2019t know what is. (Actually, as one of the Scripting Sons constantly reminds his Scripting Father, we don\u2019t<\/I> know what cool is.)<\/P><\/p>\n","protected":false},"excerpt":{"rendered":"
Hey, Scripting Guy! How can I write output to the screen that overwrites whatever is currently on the screen?— KM Hey, KM. If you specifically need to write your output to the command window, well, then we don\u2019t have an answer for you: although we played around with a few things, we never found an […]<\/p>\n","protected":false},"author":595,"featured_media":87096,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[1],"tags":[17,31,87,3,167,5],"class_list":["post-67773","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-internet-explorer","tag-operating-system","tag-processes","tag-scripting-guy","tag-using-the-internet","tag-vbscript"],"acf":[],"blog_post_summary":"
Hey, Scripting Guy! How can I write output to the screen that overwrites whatever is currently on the screen?— KM Hey, KM. If you specifically need to write your output to the command window, well, then we don\u2019t have an answer for you: although we played around with a few things, we never found an […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/67773","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/users\/595"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/comments?post=67773"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/67773\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media\/87096"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media?parent=67773"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=67773"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=67773"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}