怎么用vbs弹出窗口后运行外部程序

就是运行后弹出一个窗口，输入528491后运行D:\360超速\360se6\Application\360se.exe，输入错误提示重新输入的一个vbs文件。可以发到我的邮箱1343413595@qq.com，也可以在知道页面回答。感谢各位大侠。请留下QQ。方便以后再请教，谢谢。我的QQ1343413595.

---

set x1=wscript.createobject("神卜wscript.shell")
a=inputbox("请冲瞎悄输入")
if a="528491" then
x1.run("D:\360超速\360se6\Application\360se.exe")
else
dim x2
x2=1
end if
do while x2=1
x3=inputbox("输入错误，请重输")
if x3="528491" then
x1.run("D:\360超速\360se6\Application\360se.exe")
x2=0
end if
loop
麻烦一点就这样，我懒得简化了，散渣你将就着吧

---