o seguinte vbscript funcionará:
Set objRootDSE = GetObject("LDAP://RootDSE")
For Each strVersion In objRootDSE.Get("SupportedLDAPVersion")
Wscript.Echo "LDAP Version: " & strVersion
Next
retorna:
Versão do LDAP: 3
Versão do LDAP: 2
consulte o link