VBScript to Display Countdown Timer

Following script displays countdown timer



Dim counter
Dim oShell
counter = 10
Set oShell= CreateObject("Wscript.Shell")
While counter > 0


oShell.Popup " Left " & counter & " Seconds",1,"Remind"
counter = counter-1
Wend