Set objShell = CreateObject("Wscript.Shell")
strCommandLine = "ttpsetup.exe" ‘启动安装程序
objShell.Run(strCommandLine)
set WshShell = CreateObject("WScript.Shell")
WScript.Sleep 3000 ‘延时3秒
WshShell.SendKeys "s" ‘模拟按下 S 键开始安装
WScript.Sleep 300 ‘延时0.3秒
WshShell.SendKeys "a" ‘模拟按下 A 键同意协议
WScript.Sleep 300
WshShell.SendKeys...

