求助，如何让电脑关机前进行询问

用WshShell（CreateObject("WScript.Shell")）的Popup方法来提示用户，
Popup方法弹出一个对话框等待用户的返回值，与MsgBox不同的是，它可以
在等待特定时间后自动关闭，并返回
  
Dim wshShell, btn
Set wshShell = WScript.CreateObject("WScript.Shell")
btn = WshShell.Popup("Shutdown?", 120, "Question:", &H4 + &H20)
If btn <> 7 Then WshShell.Run("shutdown /s")
  
就4句话的事情。。。