Function GetMDACVersion()
Dim WshShell, sRet
' création obj reg
Set WshShell = CreateObject("Wscript.Shell")
' valeur
sRet = WshShell.RegRead("HKEY_CLASSES_ROOT\MDACVer.Version\CurVer\")
' détruit
Set WshShell = nothing
' retour
If IsNull(sRet) Then
GetMDACVersion = "0.00"
Else
GetMDACVersion = RightB(sRet,8)
End If
End function