WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

Installation Licensing Setup
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

MS Web Administration Software Installation Sample Script

Keywords:   Microsoft Web Administration Software 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 Web Administration software.
;IN THIS EXAMPLE, H: IS THE CD-ROM DRIVE TO INSTALL FROM.
;CHANGE ACCORDING TO YOUR SYSTEM CONFIGURATION AS TO WHERE
;WEBADMIN.EXE IS LOCATED.


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

;'run=h:\post2\webadmin\webadmin.exe'

TimeDelay(1)
dacommand='h:\post2\webadmin\webadmin.exe'
run(dacommand,'')

;'Web based+Please read={TAB}#~'

windowtext='Please read'
windowtitle='Web based'
WinWaitExist(windowtitle,-1)
windowtitle=WinIDGet(windowtitle)
TimeDelay(1)
if winexist(windowtitle)
   intcontrol(36,windowtitle,5,0,0)
   Sendkeysto(windowtitle,'{TAB}')
endif
TimeDelay(1)
if winexist(windowtitle)
   intcontrol(36,windowtitle,5,0,0)
   Sendkeysto(windowtitle,'~')
endif

;'Web based+Welcome to Setup=~'

windowtext='Welcome to Setup'
windowtitle='Web based'
WinWaitExist(windowtitle,-1)
windowtitle=WinIDGet(windowtitle)
TimeDelay(1)
if winexist(windowtitle)
   intcontrol(36,windowtitle,5,0,0)
   Sendkeysto(windowtitle,'~')
endif

;'Web based+Please exit to Windows NT=~'

windowtext='Please exit to Windows NT'
windowtitle='Web based'
WinWaitExist(windowtitle,-1)
windowtitle=WinIDGet(windowtitle)
TimeDelay(1)
if winexist(windowtitle)
   intcontrol(36,windowtitle,5,0,0)
   Sendkeysto(windowtitle,'~')
endif

;'ReadMe=!f#x'

windowtitle='ReadMe'
WinWaitExist(windowtitle,-1)
windowtitle=WinIDGet(windowtitle)
TimeDelay(1)
if winexist(windowtitle)
   intcontrol(36,windowtitle,5,0,0)
   Sendkeysto(windowtitle,'!f')
endif
TimeDelay(1)
if winexist(windowtitle)
   intcontrol(36,windowtitle,5,0,0)
   Sendkeysto(windowtitle,'x')
endif






Article ID:   W13414
Filename:   Web Administration Software Install.txt
File Created: 1999:04:15:16:53:52
Last Updated: 1999:04:15:16:53:52