Progress bar, prevent user actions with VBScript

[Guillaume]

Hi,

I've got a script in EA written in VB that runs a number of updates throughout the project.
I'm looking for a way to prevent users from accessing the models whilst the script is running (e.g. prevent from opening a diagram, element, etc.)
This could be notified via a simple popup window or progress bar.

Have you got any suggestion in achieving this with VBScript?

Thanks

[Geert Bellekens]

I guess you'll have to use a background thread for processing and a normal thread to show the dialog with progress bar.

But I'm not sure if VBScript can handle multithreading at all. :-?

Geert

[Guillaume]

Thanks Geert.
I went for a more simple solution by showing a popup for 20 seconds. As I'm displaying a message at the end of the execution via a Session.Prompt, this popup window is then automatically closed.

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Popup  "Please wait for the script to end before using the model.", 3, "Progress"

[Geert Bellekens]

Nice!
Thanks Guillaume, that might come in handy someday.

Geert