U盘中的程序安装

U盘中总是存在一些安装程序，不必再每次的去找该安装什么程序，一个VBS可以让安装过程变得简化起来。
程序源码：

Dim a,b,MZ
msgbox("Mayuko Soft"&vbcrlf&"        ver:1.0")
b=inputbox("请输入U盘的盘符"&vbcrlf&"  ","选择驱动器","在此处输入...")
 if b="" then
    WScript.Quit 
 end if
a=inputbox("安装..."&vbcrlf&"1 QQ"&vbcrlf&"2 UC浏览器"&vbcrlf&"3 迅雷"&vbcrlf&"4 小米手机助手"&vbcrlf&"5 小米随身wifi"&vbcrlf&"6 Visual C++6.0绿色版"&vbcrlf&"7 Codeblocks"&vbcrlf&"8 Visual C++6.0 中文企业版"&vbcrlf&"9 小米手机驱动"&vbcrlf&"10 PsmPlayer"&vbcrlf&"11 Cool Edit pro"&vbcrlf&"12 MikuMikuDance","Mayuko程序安装器","输入数字...")
 if a=1 then
   Set MZ=WScript.CreateObject("WScript.shell") 
   MZ.run b+":\程序文件\QQ.exe"
 else if a=2 then
   Set MZ=WScript.CreateObject("WScript.shell") 
   MZ.run b+":\程序文件\Browser.exe"
else if a=3 then
   Set MZ=WScript.CreateObject("WScript.shell") 
   MZ.run b+":\程序文件\Thunder.exe"
else if a=4 then
   Set MZ=WScript.CreateObject("WScript.shell") 
   MZ.run b+":\程序文件\MiInstaller.exe"
else if a=5 then
   Set MZ=WScript.CreateObject("WScript.shell") 
   MZ.run b+":\程序文件\Miwifi.exe"
else if a=6 then
   Set MZ=WScript.CreateObject("WScript.shell") 
   MZ.run b+":\程序文件\vc6.exe"
else if a=7 then
   Set MZ=WScript.CreateObject("WScript.shell") 
   MZ.run b+":\程序文件\codeblocks.exe"
else if a=8 then
   Set MZ=WScript.CreateObject("WScript.shell") 
   MZ.run b+":\程序文件\VC_CN-v6.0.zip"
else if a=9 then
   Set MZ=WScript.CreateObject("WScript.shell") 
   MZ.run b+":\程序文件\小米手机驱动.rar"
else if a=10 then
   Set MZ=WScript.CreateObject("WScript.shell") 
   MZ.run b+":\程序文件\PsmPlayerV5.0h.rar"
else if a=11 then
   Set MZ=WScript.CreateObject("WScript.shell") 
   MZ.run b+":\程序文件\CoolEdit.exe"
else if a=12 then
   Set MZ=WScript.CreateObject("WScript.shell") 
   MZ.run b+":\程序文件\HA_MMD739.exe"
 else 
   msgbox("输入的数字有误或没有该程序！")
   WScript.Quit 
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if

截图：