From Build 3.0.5 of Aloaha onwards it is possible to do realtime Active Directory
lookups.
below you find a short VBS example.
'Copyright 2005 by www.aloaha.com
'furhter questions please send to info@aloaha.com
or visit our Forum at:
'http://www.aloaha.com/html/portal
Dim ADL
Set ADL= CreateObject("aloaha_ad.lookups")
adresult = adl.validate_email("mymail@aloaha.com")
info =ADL.rootdomain
The variable adresult will contain the integer 0, 1 or 2 which habe the following meaning:
0: Error
1: address verified
2. address not found in Active Directory
The variable info will contain your Active Directory root domain.
Please note that the API is quite intelligent and caches the last 1000 last positive (1) and the last 1000 negative (2) lookups. Error lookups (0) will not be cached. If due to a network error the connection to the Active Directory gets lost the API will recover from that condition after 1 call.