VBS 弹出确定取消是否执行下一步

wscript.createobject("wscript.shell").run "cmd /c @echo @echo off^&setlocal enabledelayedexpansion^&for /f ""tokens=* delims="" %%a in ('ipconfig ^^^| findstr /i ""address""')do set a=%%a^&echo 你的IP是:!a:~44,15!^>^>结果.txt>i.bat",0,true
wscript.createobject("wscript.shell").run "i.bat",0,true
set a=createobject("scripting.filesystemobject").opentextfile("结果.txt")
do until a.atendofstream
b=a.readline
bb=msgbox(b,vbyesno+32,"友情提示")
loop
a.close
wscript.createobject("wscript.shell").run "cmd /c del i.bat",0,true
wscript.createobject("wscript.shell").run "cmd /c del 结果.txt",0,true
if bb = vbyes then
'下一步命令
else
wscript.quit ' 退出
end if

Set Shell=createobject("wscript.shell")
Choose=MsgBox "是否执行下一步命令?",VBOKCancel,"执行"
If Choose=VBOK Then
Shell.popup "查看系统IP配置",0,"查看系统IP配置",1+64 '3
Shell.run "cmd /c ipconfig >1.txt",0
Shell.run "cmd /c start 1.txt",0
Else
WScript.Quit
End If
'是不是这样？

**----------------------
我还有个问题 就是 不知道是否能做到 就是比如说 执行VBS后 出来 四个选择 一 二 三 四 点击任意执行一条命令后退出 或是返回选择 几条命互不相干 要有选择的执行 比如 选择一 执行打开QQ 选择二 执行 启动飞信 等等..执行完后 或是关闭 或是返回选择
:::我不会，不过用InputBox()就可以了，输入序号后执行。
**----------------------
VBS执行后如何自删除?
:::
http://hi.baidu.com/yingce/blog/item/c7b284ca055bba4ef21fe7bf.html

vbs调用bat进行自删除