Script vbs activation écran

Bonjour

J'ai créé 2 scripts, un qui fait passer le mode gestion énergie pour l'écran à extinction après 1 seconde.
Un deuxième qui modifie ce même paramètre à jamais.
Les deux sont activé avec le planificateur de tâches.
L'extinction marche bien, l'allumage moins.
J'ai ajouté une ligne à la fin du script pour simuler une touche et allumer l'écran mais cela ne fonctionne pas.
Une idée ?

Dim objShell
Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd /c nircmd monitor on", 0, True
Set objShell = Nothing
Dim Wsh
Set Wsh = Wscript.CreateObject("Wscript.Shell")
Wsh.SendKeys "{LEFT}"