Dim x, y
Set objWShell = CreateObject("WScript.Shell")
Set x =CreateObject("WScript.Shell")
'wait for 10 Sec for confirmation,if not confirm it as "Yes"
y=x.Popup("System about to shutdown in 10 seconds",10,"Answer This Question:",4 + 32)
if y=7 then
Set objCmd = objWShell.Exec("shutdown /l /a /y")
else
Set objCmd = objWShell.Exec("shutdown -s -t 01")
end if
*******Other Arguments ********

Argument detials
-s shutdown the computer
-f Forces the applications to close ,close the hung/busy application instantly without prompting you to end the application manually(end now)
-a Aborts system Shut down instantly (if confirmation is no,"shutdown /l /a /y" in above example)
-t Interval for shutdown.
-r Restarts
-l Local Machine
-m \\computer_name_or_IP_Address Remote Machine
shutdown -s -f -t 10 -m \\