Automatic Logoff when Screensaver Activates

less than 1 minute read

Many organizations have workstations in common areas for various purposes. If a user walks off without logging out first, that workstation needs to be unlocked by an administrator or hard rebooted before another user can logon. This script is designed to be placed in the startup folder on these common workstations. It runs constantly in the background and checks to see if a screensaver is running. If it finds an active screensaver, it will force a logoff.

'Script that automatically logs off a user when the screensaver activates.
'Intended to contantly run in the background on a scanstation or common
'From Microsoft Technet "Hey Scripting Guy!" article.
'Jason Hofferle

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set objEventSource = objWMIService.ExecNotificationQuery _
    ("SELECT * FROM __InstanceOperationEvent WITHIN 10 WHERE TargetInstance ISA 'Win32_Process'")

Do While True
    Set objEventObject = objEventSource.NextEvent()
    If Right(objEventObject.TargetInstance.Name, 4) = ".scr" Then
        Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
        For Each objItem in colItems
    End If