' VBScript File

i_acrobatreader = false
on error resume next
num = 0
myarray = array("PDF.PdfCtrl.1", "PDF.PdfCtrl.2", "PDF.PdfCtrl.3", "PDF.PdfCtrl.4", "PDF.PdfCtrl.5", "PDF.PdfCtrl.6", "PDF.PdfCtrl.7", "PDF.PdfCtrl.8")
size = UBound(myarray)
do until num = size
	set tmp = CreateObject(myarray(num))
	if IsObject(tmp) then
		i_acrobatreader = true
		v_acrobatreader = num
	end if
	num = num + 1
loop
if not i_acrobatreader then
	set tmp = CreateObject("AcroPDF.PDF.1")
	if IsObject(tmp) then
		i_acrobatreader = true
		a_acrobatreader = tmp.GetVersions
	end if
end if
if IsObject(ocx_pdf) and i_acrobatreader and not a_acrobatreader then
	a_acrobatreader = ocx_pdf.GetVersions
end if