'Allows shell command from VBS
'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 wshshell 'wsh object
dim boxChoice 'user choice
dim xbox 'used for output display

boxChoice = msgbox("Click OK to Run CMD.EXE", vbokcancel, "Open CMD.EXE?")

if boxChoice = 1 then
	set wshshell = wscript.createobject("wscript.shell")
	wshshell.run("cmd")
else
	xbox = msgbox("You Hit Cancel.", vbokonly, "Cancelled")
end if