Set WshShell = CreateObject("WScript.Shell")

intButton = WshShell.Popup ("Click OK to restart the system.", , "Restart", 1 + 64)

select case intButton
  case 1
    strMessage = WshShell.Run("shutdown -r -t 0")
  case 2
    
end select