Shutdown Automatico NO FUNCIONA

Saludos a todos:

Tengo el siguiente script para apagar el sistema
automaticamente, pero no funciona bien por que al final
sale el mensaje ahora puede apagar el equipo, No es la
opcion de "Opciones de energia" la que me falta activar
por que cunado las apago manualmente SI se apagan.Yo deseo
que a las 22:00 hora las maquinas si se apagen de verdad.
Agradesco de antemano la ayuda que me puedan dar. Aqui
esta el script:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Shutdown)}!\\" & _
strComputer & "oot\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
("SELECT * FROM Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
objOperatingSystem.Shoutdown()
Next