VBScript help Progress bar

Posted on 2009-05-12
Last Modified: 2012-06-22
I'm hoping someone can help us with this.  We have a VBScript in place that I have some of our student tachs use to clean systems of old user profiles, disk cleanup etc.  What I would like to have is, a progress bar running within the script so they can tell that it is actually running and how far along it is.  What is happening is they are running the script and becase no prog bar is showing on the screen they end up runnng it again and again and errors occur.  I'm kinda new here so if I'm not posting correctly please let me know.  Thanks in advance.
Question by:pain995
  • 2
LVL 23

Accepted Solution

Kamaraj Subramanian earned 500 total points
ID: 24363895
Sub main

  ' Create the progress dialog box

  Set ProgressDialog = CreateObject("TPFSoftware.ProgressDialog")

 ' Set the caption (the title) of the

  ' Progress dialog box.

  ProgressDialog.Caption = "My Progress"

 ' Set the minimum value of the progress bar.

  ProgressDialog.Min = 0

 ' Set the initial position while the dialog box is not

  ' yet open, in case the dialog box

  ' was used previously and the position was not reset.

  Position = 0

  ProgressDialog.Position = Position

 ' Set the maximum value of the progress bar.

  Max = 5

  ProgressDialog.Max = Max

 ' This is the number of seconds to delay when

  ' simulating work. Your real script will not 

  ' need this.

  DelaySeconds = 2

 ' Display the progress dialog box


 ' This While Loop simulates doing the work.

  While Position < Max

    ' Update the progress message

    ProgressDialog.Message = "Performing step " & (Position + 1)

   ' A delay to simulate work being done


   ' Work has been done. Update the progress

    ' position.

    Position = Position + 1

    ProgressDialog.Position = Position


 ' Update the progress message to tell them we

  ' finished.

  ProgressDialog.Message = "All steps completed!"

 ' I inserted a short delay here so we could see

  ' the progress bar at 100 percent and also read

  ' the message.


 ' Close the progress dialog box. If the entire 

  ' script is over at this point, you don't have 

  ' to call this.


End Sub

' ----------------------------------------------------

' This is a delay function I got from the Internet

' This example uses this function to provide a 

' delay that simulates some real work being done.

' ----------------------------------------------------

Private Sub wait_function(secs)

  Dim enter_time, leave_time

  enter_time = Timer

  leave_time = Timer

  While (enter_time + secs > leave_time)

    leave_time = Timer


End Sub

Open in new window

LVL 23

Expert Comment

by:Kamaraj Subramanian
ID: 24363899
LVL 75

Expert Comment

by:käµfm³d 👽
ID: 24364292
Couldn't you just add a

   MsgBox "Done"

to the end of your script?

Author Comment

ID: 24364368
The problem with that is if nothing visually shows that it is actually doing something when there is a lot of profiles etc being deleted and the extended time it takes to complete they asume maybe its not working and just attempt to run it again.

Testing solutions provided in a just a bit


Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Script to copy or move mouse-selected collection of files plus targets referenced by shortcuts (.lnk) The purpose of this article is to help illuminate the real challenges and options available (where they may exist) for utilizing simple scriptin…
This is an addendum to the following article: Acitve Directory based Outlook Signature ( The script is fine, and works in normal client-server domains…
This Micro Tutorial will give you a basic overview how to record your screen with Microsoft Expression Encoder. This program is still free and open for the public to download. This will be demonstrated using Microsoft Expression Encoder 4.
Windows 10 is mostly good. However the one thing that annoys me is how many clicks you have to do to dial a VPN connection. You have to go to settings from the start menu, (2 clicks), Network and Internet (1 click), Click VPN (another click) then fi…

863 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

23 Experts available now in Live!

Get 1:1 Help Now