Microsoft Index Server Installation Sample Script

Keywords:    Microsoft Index Server Installation Sample Script 

---

Question:

The Setup program normally requires users to click on some dialog boxes. How can I automate that using WinBatch? Is there any example that automates clicking dialog box?

Answer:

It depends. In a lot of cases you can just send keystrokes. For more complicated problems, you can try downloading our Control Manager extender. Here's an example that installs Microsoft Index Server.

;IN THIS EXAMPLE, H: IS THE CD-ROM DRIVE TO INSTALL FROM.
;CHANGE ACCORDING TO YOUR SYSTEM CONFIGURATION AS TO WHERE
;ISPSETUP.BAT IS LOCATED.



intcontrol(12,5,0,0,0)

;'run=h:\post4\iis30\index11\issetup.bat'

TimeDelay(1)
dacommand='h:\post4\iis30\index11\issetup.bat'
run(dacommand,'')

;'Microsoft Index+Do you wish=!y'

windowtext='Do you wish'
windowtitle='Microsoft Index'
WinWaitExist(windowtitle,-1)
windowtitle=WinIDGet(windowtitle)
TimeDelay(1)
if winexist(windowtitle)
   intcontrol(36,windowtitle,5,0,0)
   Sendkeysto(windowtitle,'!y')
endif

;'Microsoft Index+Please read the foll=!y'

windowtext='Please read the foll'
windowtitle='Microsoft Index'
WinWaitExist(windowtitle,-1)
windowtitle=WinIDGet(windowtitle)
TimeDelay(1)
if winexist(windowtitle)
   intcontrol(36,windowtitle,5,0,0)
   Sendkeysto(windowtitle,'!y')
endif

;'Microsoft Index+Welcome to Setup=!c'

windowtext='Welcome to Setup'
windowtitle='Microsoft Index'
WinWaitExist(windowtitle,-1)
windowtitle=WinIDGet(windowtitle)
TimeDelay(1)
if winexist(windowtitle)
   intcontrol(36,windowtitle,5,0,0)
   Sendkeysto(windowtitle,'!c')
endif

;'Microsoft Index+IIS scripts=~'

windowtext='IIS scripts'
windowtitle='Microsoft Index'
WinWaitExist(windowtitle,-1)
windowtitle=WinIDGet(windowtitle)
TimeDelay(1)
if winexist(windowtitle)
   intcontrol(36,windowtitle,5,0,0)
   Sendkeysto(windowtitle,'~')
endif

;'Microsoft Index+IIS virtual root=~'

windowtext='IIS virtual root'
windowtitle='Microsoft Index'
WinWaitExist(windowtitle,-1)
windowtitle=WinIDGet(windowtitle)
TimeDelay(1)
if winexist(windowtitle)
   intcontrol(36,windowtitle,5,0,0)
   Sendkeysto(windowtitle,'~')
endif

;'Microsoft Index+path to the directory=~'

windowtext='path to the directory'
windowtitle='Microsoft Index'
WinWaitExist(windowtitle,-1)
windowtitle=WinIDGet(windowtitle)
TimeDelay(1)
if winexist(windowtitle)
   intcontrol(36,windowtitle,5,0,0)
   Sendkeysto(windowtitle,'~')
endif

;'Microsoft Index+now installed=!w#~winwaitclose'

windowtext='now installed'
windowtitle='Microsoft Index'
WinWaitExist(windowtitle,-1)
windowtitle=WinIDGet(windowtitle)
TimeDelay(1)
if winexist(windowtitle)
   intcontrol(36,windowtitle,5,0,0)
   Sendkeysto(windowtitle,'!w')
endif
TimeDelay(1)
winwaitclose(windowtitle)

---

Article ID:   W13392

Filename:   Index Server Installation Script.txt