关于网友提出的“ (vbScript)vbs自动安装postgressql”问题疑问,本网通过在网上对“ (vbScript)vbs自动安装postgressql”有关的相关答案进行了整理,供用户进行参考,详细问题解答如下:
问题: (vbScript)vbs自动安装postgressql描述:
vbspostgresql自动安装
vbs自动安装postgressql时,是通过设置等待时间安装的vbs:
Set objWord = CreateObject("Word.Application")
Set ws = CreateObject("Wscript.Shell")
strCommandLine = "postgresql-9.3.4-4-windows.exe" 'start
ws.Run(strCommandLine)
WScript.Sleep 20000
Set colTasks = objWord.Tasks
for each colTask in colTasks
if instr(colTask.name,"Setup")<>0 then k=1
next
objWord.Quit
if k=1 then
ws.appactivate "Setup"
wscript.sleep 3000
ws.sendkeys "{enter}"
wscript.sleep 1000
ws.sendkeys "{enter}"
wscript.sleep 1000
ws.sendkeys "{enter}"
wscript.sleep 1000
ws.sendkeys "p"
ws.sendkeys "o"
ws.sendkeys "s"
ws.sendkeys "t"
ws.sendkeys "g"
ws.sendkeys "r"
ws.sendkeys "e"
ws.sendkeys "s"
wscript.sleep 1000
ws.sendkeys "{tab}"
ws.sendkeys "p"
ws.sendkeys "o"
ws.sendkeys "s"
ws.sendkeys "t"
ws.sendkeys "g"
ws.sendkeys "r"
ws.sendkeys "e"
ws.sendkeys "s"
wscript.sleep 1000
ws.sendkeys "{enter}"
wscript.sleep 1000
ws.sendkeys "{enter}"
wscript.sleep 1000
ws.sendkeys "{enter}"
wscript.sleep 1000
ws.sendkeys "{enter}"
wscript.sleep 30000
ws.sendkeys "{tab}"
ws.sendkeys "{space}"
ws.sendkeys "{tab}"
ws.sendkeys "{enter}"
else
msgbox "no"
end if
有没有其他办法,可以不通过时间点击下一步的