Source code for mdacver.kix

If $Help <> ""

	? "MDACVer.kix,  Version 1.00"

	? "Check the installed MDAC version, and optionally compare it to a"

	? "specified minimum required version number"

	?

	? "Usage:  KIX32.EXE  mdacver.kix  [ $ReqVer=min_req | $Help=x]"

	?

	? "Where:  " + Chr(34) + "min_req" + Chr(34) + "  is the minimum required version; the script will"

	? "                   return a return code 1 if the actual MDAC version"

	? "                   is older than the minimum specified, or 0 if it is"

	? "                   equal or newer or if no minimum was specified."

	? "        " + Chr(34) + "x" + Chr(34) + "        can be anything to display this help"

	?

	? "Written by Rob van der Woude"

	? "http://www.robvanderwoude.com@CRLF"

	Exit 1

EndIf

$intRC = 0

; Create a connection object

$AdoDbConn = CreateObject( "ADODB.Connection" )

; Display the (MDAC) version number

? "MDAC Version " + $AdoDbConn.Version + @CRLF

; If a minimum required version was specified, compare it to

; the actual version and return a non-zero return code if the

; required minimum wasn't met

If $AdoDbConn.Version < $ReqVer

	$intRC = 1

EndIf

$AdoDbConn = Nothing

; End the script, and return the result of the comparison

Exit $intRC