'Emergency script created for a friend to toggle HDR
Set oShell = CreateObject("WScript.Shell")
oShell.Run("""ms-settings:display""")
WScript.Sleep 2000
oShell.AppActivate "settings"
WScript.Sleep 100
oShell.SendKeys "{TAB}"
WScript.Sleep 100
oShell.SendKeys "{TAB}"
WScript.Sleep 100
oShell.SendKeys "{TAB}"
WScript.Sleep 100
oShell.SendKeys "{TAB}"
WScript.Sleep 100
oShell.SendKeys "{TAB}"
WScript.Sleep 100
oShell.SendKeys "{TAB}"
WScript.Sleep 100
oShell.SendKeys " "