Status bar

I have the following script that reports on a specific file version.  I would like to add a status bar that shows the progress as it adds the output to a txt file.  How might I go about doing that?

WScript.Echo "Server name" & vbTab & "File Version"

Const ForReading = 1
Const ForWriting = 2

Set objDictionary = CreateObject("Scripting.Dictionary")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("C:\servers.txt", ForReading)
Set objReportFile = objFSO.OpenTextFile("C:\report.txt", ForWriting)

i = 0
Do Until objTextFile.AtEndOfStream
   strNextLine = objTextFile.Readline
   objDictionary.Add i, strNextLine
   i = i + 1
Loop
For Each objItem in objDictionary
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   objReportFile.WriteLine objDictionary.Item(objItem) & vbTab & objFSO.GetFileVersion _
("\\"& objDictionary.Item(objItem) & "\C$\Program Files\application\file.exe")                  

Next

Thanks
mchristo63Asked:
Who is Participating?
 
Mohammad Aamir QureshiCommented:
what about Progress bar if u use progress bar i will help u
0
 
mchristo63Author Commented:
what?
0
 
mchristo63Author Commented:
How can i insert that script into my script?
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.