¡Quiero un código de apagado, del tipo que apaga la máquina directamente! ¡Tanto VBS como BAT están bien!

establecer a=wscript.createobject("wscript.shell")

a.SendKeys "^{Esc}u"

a.AppActivate "Desactivar la computadora "

wscript.sleep 100

a.SendKeys "{u}"

Convertido en un archivo .vbs