LISTING 3: Shutdown.vbs
Set objShellApp = CreateObject("Shell.Application")
objShellApp.ShutdownWindows