Option Explicit



Dim WSHShell, RegKey, ScreenSaver, Result



Set WSHShell = CreateObject("WScript.Shell")



RegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\"



ScreenSaver = WSHShell.RegRead (regkey & "DisableCAD")



If ScreenSaver = 0 Then 'Ctrl/Alt/Delete is Enabled.



   Result = MsgBox("Ctrl/Alt/Delete is currently active." & _ 

        vbNewLine & "Would you like to disable it?", 36)



   If Result = 6 Then 'clicked yes

      WSHShell.RegWrite regkey & "DisableCAD", 1

   End If



Else 'Ctrl/Alt/Delete is Disabled



   Result = MsgBox("Ctrl/Alt/Delete is currently disabled." & _ 

        vbNewLine & "Would you like to enable it?", 36)



   If Result = 6 Then 'clicked yes

      WSHShell.RegWrite regkey & "DisableCAD", 0

   End If



End If