' ============================================================
' SetDisableStickyKeysPrompt.vbs
'
' Disable Sticky Keys Shortcut Prompt.
' Stops the Sticky Keys dialog from popping up when Shift is pressed 5 times.
'
' Usage: cscript SetDisableStickyKeysPrompt.vbs
' ============================================================

Option Explicit

Dim objShell
Set objShell = CreateObject("WScript.Shell")

On Error Resume Next
objShell.RegWrite "HKCU\Control Panel\Accessibility\StickyKeys\Flags", "506", "REG_SZ"

If Err.Number = 0 Then
    WScript.Echo "Disable Sticky Keys Shortcut Prompt applied."
Else
    WScript.Echo "Failed to apply tweak (Error " & Err.Number & ": " & Err.Description & ")"
End If
On Error Goto 0