'quitScript.vbs
'Ending Script Execution
'Scripting by Fusion 13
'webmaster@Fusion13.com Please send attachments and personal programs and or scripts
'computing.Fusion13.com
'7-22-01
'Copyright Fusion 13

Option Explicit
dim endOrNot

endOrNot = inputbox("Enter 1 to contine or 2 to quit.", "Continue or Quit")

if endOrNot = 1 then
	WScript.echo "You chose not to quit."
end if

if endOrNot = 2 then
	WScript.Echo "Ending Script after this Message."
	WScript.Quit 1
end if

WScript.Echo "This Message will only appear if you did not end the Script"