A one liner:
CreateObject("Shell.Application").ShutdownWindows
Sub Test2()
'SHUTDOWN [logoff_option] [/m \\Computer] [options]
'/s Shutdown
'/r Shutdown and Restart
SHUTDOWN /s
End Sub
Sub test()
Shell (Environ("SystemRoot") & "\System32\shutdown.exe -s")
End Sub