change cursor to an hourglass when a VBscript runs

[alanpike]

When a vbscript runs, is it possible to change the cursor to an hourglass until the script has completed running? Please reference the following simple script:

(change cursor to hourglass here)
For I = 0 to 1000000
I = I + 1
Next
(change cursor back to default here)

[Killer42]

When a vbscript runs, is it possible to change the cursor to an hourglass until the script has completed running? Please reference the following simple script:

(change cursor to hourglass here)
For I = 0 to 1000000
I = I + 1
Next
(change cursor back to default here)

In VB6, I would set Screen.MousePointer to value vbHourglass before, and value vbDefault afterward.

Don't know whether this will work for you, or not. (Note, in VB6, you might have to use Refresh and/or DoEvents before the change would be visible.)

[alanpike]

Thanks for the response. However, I put this in a VBScript file but it gives the following error message:

Object required: "Screen"

The file name is "Hourglass.vbs" and has the following code.

Screen.Mousepointer = vbHourglass
for I= 1 to 10000
i = i + 1
next
Screen.Mousepointer = vbDefault
(end of code)

In VB6, I would set Screen.MousePointer to value vbHourglass before, and value vbDefault afterward.

Don't know whether this will work for you, or not. (Note, in VB6, you might have to use Refresh and/or DoEvents before the change would be visible.)

[Killer42]

Thanks for the response. However, I put this in a VBScript file but it gives the following error message:

Object required: "Screen"

Oops! I guess this is one of the differences between VB and VBScript. Sorry, I'm not familiar with VBScript. I'd suggest you try the the reference at Microsoft, and do some digging.

It's possible that VBScript simply cannot do what you want, but don't give up without a fight.