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

WinBatch
OLE COM ADO CDO ADSI LDAP
MDAC

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

Get Version of MDAC Installed

 Keywords: How to Get Version of MDAC Installed

Question:

Does any body know if WinBatch can be used to check what version of MDAC is installed on Win 9x and NT/2000 PC, I have used the following VBScript in a html doc to do this but I realy need to run this check in an small exe automatically. I am not sure if WinBatch can do this. 

language=vbscript>

sub cmdCheck_onclick
on error resume next
sMessage = "Microsoft Data Access Components Version Check"
set cnTest = createObject("ADODB.Connection")
if Err.Number<>0 then
msgbox "Microsoft Data Access Components is not installed.",vbExclamation,sMessage
else
if cnTest.version >= "2.5" then
msgbox "You have Microsoft Data Access Components version " & cnTest.version & " installed.
You do not need to upgrade.",vbOKOnly,sMessage
else
msgbox "You have Microsoft Data Access Components version " & cnTest.version & " installed.
You need to upgrade to version 2.5",vbExclamation,sMessage
end if
set cnTest = nothing
end if
On Error Goto 0
end sub

Answer:

Example #1: 

;Determine version
cnTest = ObjectOpen("ADODB.Connection")
Err = ObjectOpen("ADODB.Error")
ErrNum = Err.Number 
If ErrNum == 0
	   MDACversion = cnTest.version
	   Message("MDAC Version",MDACversion)
Endif

Example #2: (user defined function) 

#DefineFunction GetMDACVersion()
      ;Check if MDAC installed 
	If RegExistKey(@RegClasses,"ADODB.Connection") == @FALSE
	  message("Error:Cannot Continue","MDAC Does Not Appear To Be Installed.")
	  Return 0
	Endif

	;Determine version
	cnTest = ObjectOpen("ADODB.Connection")
	Err = ObjectOpen("ADODB.Error")
	ErrNum = Err.Number 
	If ErrNum == 0
	   MDACversion = cnTest.version
		return MDACversion
	Endif
	Return 0
#EndFunction

Ver = GetMDACVersion()
If Ver == 0
   Message("Error","Unable to obtain Microsoft Data Access Components version")
Else
	If Ver >= "2.5" then
		Message( "You have Microsoft Data Access Components version ", Ver)
	Else
		Message( "You have an OLD Microsoft Data Access Components version ",Ver)
	Endif 
Endif

Example #3:
Or, if you want the full installed version, try: 

key=RegOpenkey(@RegMachine, "Software\Microsoft\DataAccess")
ver=regqueryvalue(key,"[version]")
RegCloseKey(key)
message("MDAC","Full MDAC version %ver%") 

Article ID:   W14906

File Created: 2001:11:08:12:40:56
Last Updated: 2001:11:08:12:40:56