verifying if computer is locked

[brian32]

How can I use VBScript to determine if a computer is locked and by who?

I know I can use the following methods to determine who's logged into the desktop:

GetObject("winmgmts:\\client01\root\cimv2")

objWMIService.ExecQuery("Select * From Win32_Process Where Name = 'explorer.exe'")

But how can I tell if the computer is locked by the user? Thanks.

 

[jfdabiri]

if a screen saver or login/password prompt is running.

 

[brian32]

And how do I script that?

 

[jfdabiri]

you have to check to see if this app is active:
logon.scr
what have you done so far?