Set oShell = CreateObject("WScript.Shell") 'close settings window to start fresh oShell.Run("""ms-settings:display""") WScript.Sleep 1000 oShell.SendKeys "%{F4}" 'open settings, set to correct page oShell.Run("""ms-settings:display""") WScript.Sleep 1000 oShell.AppActivate "settings" WScript.Sleep 1000 'select "windows hd color settings" oShell.SendKeys "{TAB}" WScript.Sleep 50 oShell.SendKeys " " WScript.Sleep 1000 'select "choose display" drop down and move to the top and select primary display oShell.SendKeys "{TAB}" WScript.Sleep 50 oShell.SendKeys "{TAB}" WScript.Sleep 50 oShell.SendKeys " " WScript.Sleep 50 oShell.SendKeys "{UP}" WScript.Sleep 50 oShell.SendKeys "{UP}" WScript.Sleep 50 oShell.SendKeys "{UP}" WScript.Sleep 50 oShell.SendKeys "{UP}" WScript.Sleep 50 oShell.SendKeys " " WScript.Sleep 1000 'select "use hdr" toggle oShell.SendKeys "{TAB}" WScript.Sleep 50 oShell.SendKeys " " WScript.Sleep 4000 'done oShell.SendKeys "%{F4}"