Dim oShell : Set oShell = CreateObject("Shell.Application")

oShell.ShutdownWindows