You can't do this in VBScript, unfortunately. You will need to either create an ActiveX control using VB6 and instantiate it from your script and use it, or you can display a simple "Please wait" message while the operation continues.