#115926 - 2004-03-11 01:58 PM
How to collect the MDAC version?
|
Detector
Fresh Scripter
Registered: 2004-03-10
Posts: 6
|
Hi all,
I'm looking for an example of how to collect the MDAC version from users at logon and save to a file.
Thanks.
|
|
Top
|
|
|
|
|
#115928 - 2004-03-11 02:40 PM
Re: How to collect the MDAC version?
|
Radimus
Moderator
Registered: 2000-01-06
Posts: 5187
Loc: Tampa, FL
|
look at this for ideas...
Code:
if not keyexist('HKLM\SOFTWARE\Microsoft\Updates\DataAccess\Q832483')
$CFPath = ReadValue('HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion', 'CommonFilesDir')
$MDACVer = GETFILEVERSION ($CFPath + '\System\ado\msado15.dll')
if left($MDACVer,4) > '2.52'
and not left($MDACVer,4) = '2.60'
and not left($MDACVer,4) = '2.61'
shell 'cmd /c $server\MDAC_Hotfix\enu_q832483_mdac_z86.exe /C:"dahotfix.exe /q /n" /q'
else
? 'must update MDAC version ' + $MDACVer
endif
endif
|
|
Top
|
|
|
|
|
#115929 - 2004-03-11 02:54 PM
Re: How to collect the MDAC version?
|
Detector
Fresh Scripter
Registered: 2004-03-10
Posts: 6
|
Thanks Radimus.
Sorry Co, but I see your post has no scripts either  j/k I will post in the proper location from now on.
|
|
Top
|
|
|
|
|
#115931 - 2004-03-23 03:30 PM
Re: How to collect the MDAC version?
|
MarkyMark
Fresh Scripter
Registered: 2003-11-20
Posts: 6
|
How about
Code:
$mdac = right(ReadValue("HKEY_CLASSES_ROOT\MDACVer.Version\CurVer", ""),4)
$=Open (1, "\\path\mdac.txt", 4)
$=Writeline (1, @userid + "," + @fullname + "," + @wksta + "," + ",mdac=" + $mdac + chr(13) + chr(10))
$=Close (1)
|
|
Top
|
|
|
|
|
#115933 - 2004-03-23 06:44 PM
Re: How to collect the MDAC version?
|
NTDOC
Administrator
Registered: 2000-07-28
Posts: 11631
Loc: CA
|
I'd agree with Jens in this case, however I did notice an odd value when I ran this code.
Code:
Debug Off
Break On
Dim $RC,$MDAC,$RB,$CFPath,$MDACVer
$RC=SetOption('Explicit','On')
$RC=SetOption('NoVarsInStrings','On')
$MDAC = Trim(ReadValue('HKLM\SOFTWARE\Microsoft\DataAccess','FullInstallVer'))
$RB = Trim(ReadValue('HKLM\SOFTWARE\Microsoft\DataAccess','RollbackVersion'))
$CFPath = ReadValue('HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion', 'CommonFilesDir')
$MDACVer = Trim(GETFILEVERSION ($CFPath + '\System\ado\msado15.dll','BinFileVersion'))
? 'MDAC Registry version is: ' + $MDAC
? 'MDAC Registry Rollback is: ' + $RB
? 'MDAC Binary Version is: ' + $MDACVer
It gave me the following return
- MDAC Registry version is: 2.71.9030.4
- MDAC Registry Rollback is:
- MDAC Binary Version is: 2.71.9030.0
Odd that the Binary version is lower then the Registry version.
Microsoft Data Access Components (MDAC) 2.8
http://www.microsoft.com/downloads/details.aspx?FamilyID=6c050fe3-c795-4b7d-b037-185d0506396c&DisplayLang=en
Microsoft Data Access Components (MDAC) Security Patch MS04-003 (32-bit)
http://www.microsoft.com/downloads/details.aspx?FamilyId=39472EE8-C14A-47B4-BFCC-87988E062D91&displaylang=en
|
|
Top
|
|
|
|
Moderator: Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart
|
1 registered
(Allen)
and 363 anonymous users online.
|
|
|
