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.

Sample Code to Install MS Y2K Product Analyzer

Keywords: 	  Microsoft Y2K Product Analyzer y2kscan.exe

This sample code installs the Microsoft Y2K Product Analyzer (y2kscan.exe):

;Program to execute the Microsoft Y2K Product Analyzer
username=ASKLINE("MS Y2K Scan","Please enter your Username","")
mswind="Microsoft Year 2000 Product Analyzer"

run("c:\y2kscan\y2kscan.exe", "")


Sendkeysto(mswind, "!n")
TimeDelay(0.5)

Sendkeysto(mswind, "!u") ;custom config
TimeDelay(0.5)

Sendkeysto(mswind, "!n")  ;hit next
TimeDelay(0.5)

Sendkeysto(mswind, "!n")  ;hit next
TimeDelay(0.5)

Sendkeysto(mswind, "!n")  ;hit next
TimeDelay(0.5)

Sendkeysto(mswind, "c:\temp\y2kresults\y2kdbEN.txt")  ;hit next
TimeDelay(0.5)

Sendkeysto(mswind, "!n")  ;hit next
TimeDelay(0.5)

Sendkeysto(mswind, "!n")  ;choose Microsoft products
TimeDelay(0.5)

Sendkeysto(mswind, "!n")  ;choose htm
TimeDelay(0.5)

Sendkeysto(mswind, "c:\temp\y2kresults\%username%.htm")  ;specify output file
TimeDelay(0.5)

Sendkeysto(mswind, "!n")  ;specify output file
TimeDelay(0.5)

Sendkeysto(mswind, "!n")  ;confirm settings
TimeDelay(0.5)

while @true
childlist=WinItemChild(mswind)
findit=ItemLocate("Completing the Microsoft Year 2000 Product Analyzer Wizard",childlist,@tab)
if findit!=0
 Sendkeysto(mswind, "!v")  ;confirm settings
 break
else
 TimeDelay(0.5)
endif
endwhile

TimeDelay(0.5)
WinClose(mswind)
exit


Article ID:   W14371
Filename:   Script to Install MS Y2K Product Analyzer.txt
File Created: 1999:11:04:13:46:26
Last Updated: 1999:11:04:13:46:26