中国DOS联盟

想让vbs自动安装程序，但是中间需要WScript.Sleep 沉睡的时间的语句，但是有的电脑慢一点有的快，有没有什么语句是自动让vbs计算 安装程序的进度 然后作出判断，进行操作！能有这样子的效果的话 那真的是太好了！
一下是vbs的脚本 不知道 需不需要改进！

Set objShell = CreateObject("Wscript.Shell")
strCommandLine = "McAfeeSetup.exe"
objShell.Run(strCommandLine)
set WshShell = CreateObject("WScript.Shell")
WScript.Sleep 40000
WshShell.SendKeys "n"
WScript.Sleep 300
WshShell.SendKeys "{TAB}"
WScript.Sleep 300
WshShell.SendKeys "{TAB}"
WScript.Sleep 300
WshShell.SendKeys "{DOWN}"
WScript.Sleep 300
WshShell.SendKeys "{DOWN}"
..........................................................

高手们帮帮我吧！