Reboot System - VBScript

set sh=createobject("wscript.shell")


set fso=createobject("scripting.filesystemobject")
Dim a
a=MsgBox("Do you want to Reboot your system",4,"Application Name")
If a=6 Then


MsgBox "yes was clicked"
sh.Run "shutdown -r"


End if