{"id":70223,"date":"2005-03-16T19:37:00","date_gmt":"2005-03-16T19:37:00","guid":{"rendered":"https:\/\/blogs.technet.microsoft.com\/heyscriptingguy\/2005\/03\/16\/how-can-i-display-a-progress-bar-or-something-similar-while-my-script-runs\/"},"modified":"2005-03-16T19:37:00","modified_gmt":"2005-03-16T19:37:00","slug":"how-can-i-display-a-progress-bar-or-something-similar-while-my-script-runs","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/scripting\/how-can-i-display-a-progress-bar-or-something-similar-while-my-script-runs\/","title":{"rendered":"How Can I Display A Progress Bar (or Something Similar) While My Script Runs?"},"content":{"rendered":"

\"Hey, \n

Hey, Scripting Guy! How can I get my script to do something interesting while the code executes; you know, how can I display a progress bar or something?

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

Hey, HD. To begin with, we don\u2019t recommend that you try to use a true progress bar; that\u2019s because it\u2019s very difficult to calculate – let alone display – progress. We\u2019re all familiar with those so-called progress bars – some, alas, included in Microsoft products – that tell you that the estimated time to complete an operation is 3 minutes, then 296 minutes, then 1 minute, then 14 minutes. We don\u2019t want to mess around with something like that.<\/P>\n

Instead, we suggest you try a simple little dialog box (or at least something that looks<\/I> like a dialog box) that merely informs the user that something is going on and asks them to be patient. When the operation is complete, our sample dialog box displays a message to that effect, and then disappears. It\u2019s not fancy, but it works.<\/P>\n

Here\u2019s the code:<\/P>

On Error Resume Next<\/p>\n
Set objExplorer = CreateObject _\n    (“InternetExplorer.Application”)<\/p>\n
objExplorer.Navigate “about:blank”   \nobjExplorer.ToolBar = 0\nobjExplorer.StatusBar = 0\nobjExplorer.Width = 400\nobjExplorer.Height = 200 \nobjExplorer.Visible = 1             <\/p>\n
objExplorer.Document.Title = “Logon script in progress”\nobjExplorer.Document.Body.InnerHTML = “Your logon script is being processed. ” _\n    & “This might take several minutes to complete.”<\/p>\n
Wscript.Sleep 10000<\/p>\n
objExplorer.Document.Body.InnerHTML = “Your logon script is now complete.”<\/p>\n
Wscript.Sleep 5000\nobjExplorer.Quit\n<\/PRE>\n
All we\u2019re doing here is creating an instance of Internet Explorer, then using this line of code to open up a blank page in the browser window:<\/P>
objExplorer.Navigate “about:blank”\n<\/PRE>\n
We get rid of the toolbar and the status bar (by setting those values to 0), and then set the size of our window to 400 pixels and 200 pixels. We then set the Visible property to 1, which actually displays our little Internet Explorer window on the screen. And just for the heck of it we configure the Title property for the window using this line of code:<\/P>
objExplorer.Document.Title = “Logon script in progress”\n<\/PRE>\n
The net result? Something that looks like this:<\/P>\"Internet \n
That\u2019s almost OK in and of itself, but we can probably do a little better: for one thing, we can display a custom message in our Internet Explorer document. To do that we set the InnerHTML property of the document body:<\/P>
objExplorer.Document.Body.InnerHTML = “Your logon script is being processed. ” _\n    & “This might take several minutes to complete.”\n<\/PRE>\n
What\u2019s cool about this is that we can use all our favorite HTML tags when assigning a value to the InnerHTML property. For example, suppose we want this message displayed in bold. In that case, we just need to include the <B> and <\/B> tags:<\/P>
objExplorer.Document.Body.InnerHTML = “<B>Your logon script is being processed. ” _\n    & “This might take several minutes to complete.<\/B>”\n<\/PRE>\n
After setting the InnerHTML property, we have an instance of Internet Explorer that looks like this:<\/P>\"Internet \n
Not too bad, huh? In our sample script, we pause for 10 seconds and then replace our old message with a new message, one that informs the user that their logon script has completed. We pause for 5 more seconds, and then dismiss our instance of Internet Explorer.<\/P>\n
If you want to get a little fancier, you can do a couple things. In the revised script we\u2019ll show you momentarily, we use the WMI class Win32_DesktopMonitor to determine the current video resolution (e.g., 1024×768). We then use some simple math to position the IE window in the middle of the screen. For example, if our screen is 1024 pixels wide, we subtract 400 (the width of our Internet Explorer window) from 1024. We divide that number by two, leaving us with the pixel position for the left side of our window. Repeating this trick with the display height (768) gives us the pixel position for the top of our window, and thus centers our dialog box on screen. Here\u2019s the code that gets the screen width and height:<\/P>
strComputer = “.”\nSet objWMIService = GetObject(“Winmgmts:\\\\” & strComputer & “\\root\\cimv2”)\nSet colItems = objWMIService.ExecQuery(“Select * From Win32_DesktopMonitor”)\nFor Each objItem in colItems\n    intHorizontal = objItem.ScreenWidth\n    intVertical = objItem.ScreenHeight\nNext\n<\/PRE>\n
And here are the two lines of code that position the window on screen:<\/P>
objExplorer.Left = (intHorizontal – 400) \/ 2\nobjExplorer.Top = (intVertical – 200) \/ 2\n<\/PRE>\n\n<\/THEAD>\n\n\n
\n
Note<\/B>. The preceding code is really designed for computers that have only a single monitor; things get a bit more complicated on a multi-monitor system, especially if one of those monitors is turned off. For now, we\u2019ll assume a single monitor; we\u2019ll deal with the multi-monitor issue somewhere down the road.<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n
<\/DIV>\n
In addition to centering the Internet Explorer window, we reinforce the fact that the user needs to wait for a moment by setting the cursor to an hourglass. That\u2019s done with this line of code:<\/P>
objExplorer.Document.Body.Style.Cursor = “wait”\n<\/PRE>\n
Later in the script we set the cursor to default<\/B>, which dismisses the hourglass and brings back the standard arrow cursor.<\/P>\n
Here\u2019s what our new and improved script looks like:<\/P>
On Error Resume Next<\/p>\n
strComputer = “.”\nSet objWMIService = GetObject(“Winmgmts:\\\\” & strComputer & “\\root\\cimv2”)\nSet colItems = objWMIService.ExecQuery(“Select * From Win32_DesktopMonitor”)\nFor Each objItem in colItems\n    intHorizontal = objItem.ScreenWidth\n    intVertical = objItem.ScreenHeight\nNext<\/p>\n
Set objExplorer = CreateObject _\n    (“InternetExplorer.Application”)<\/p>\n
objExplorer.Navigate “about:blank”   \nobjExplorer.ToolBar = 0\nobjExplorer.StatusBar = 0\nobjExplorer.Left = (intHorizontal – 400) \/ 2\nobjExplorer.Top = (intVertical – 200) \/ 2\nobjExplorer.Width = 400\nobjExplorer.Height = 200 \nobjExplorer.Visible = 1             <\/p>\n
objExplorer.Document.Body.Style.Cursor = “wait”<\/p>\n
objExplorer.Document.Title = “Logon script in progress”\nobjExplorer.Document.Body.InnerHTML = “Your logon script is being processed. ” _\n    & “This might take several minutes to complete.”<\/p>\n
Wscript.Sleep 10000<\/p>\n
objExplorer.Document.Body.InnerHTML = “Your logon script is now complete.”<\/p>\n
objExplorer.Document.Body.Style.Cursor = “default”<\/p>\n
Wscript.Sleep 5000<\/p>\n
objExplorer.Quit\n<\/PRE>\n
Still<\/I> not fancy enough for you? Well, another way to spice things up is to include an animated .GIF in your InnerHTML. For example, this line of code displays an animated .GIF as well as a message:<\/P>
objExplorer.Document.Title = “Logon script in progress”\nobjExplorer.Document.Body.InnerHTML = “<img src=’file:\/\/\/C:\\Scripts\\watch.gif’> ” & _\n    “Your logon script is being processed. This might take several minutes to complete.”\n<\/PRE>\n
The end result:<\/P>\"Internet \n
It might not qualify as art, but we think it does<\/I> qualify as doing \u201c\u2026something interesting while the code executes.\u201d And, remember, you can change the picture alignment, you can change the font size and color — you can pretty much do anything HTML allows you to do.<\/P>\n
Note<\/B>. If you want to do something really<\/I> interesting while your code executes, visit Dr. Scripto\u2019s Fun Zone<\/B><\/A> and learn how you can incorporate Microsoft Agent technology into your scripts.<\/P><\/p>\n","protected":false},"excerpt":{"rendered":"
Hey, Scripting Guy! How can I get my script to do something interesting while the code executes; you know, how can I display a progress bar or something?— HD Hey, HD. To begin with, we don\u2019t recommend that you try to use a true progress bar; that\u2019s because it\u2019s very difficult to calculate – let […]<\/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":[3,4,5,30],"class_list":["post-70223","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-scripting-guy","tag-scripting-techniques","tag-vbscript","tag-web-pages-and-htas"],"acf":[],"blog_post_summary":"
Hey, Scripting Guy! How can I get my script to do something interesting while the code executes; you know, how can I display a progress bar or something?— HD Hey, HD. To begin with, we don\u2019t recommend that you try to use a true progress bar; that\u2019s because it\u2019s very difficult to calculate – let […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/70223","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=70223"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/70223\/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=70223"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=70223"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=70223"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}