Comment lister les propriétés d’un élément ADSI ?
Que celui-ci soit WinNT, LDAP ou encore IIS, il suffit de donner le chemin d’accès (Path) à l’élément pour en lister les propriétées.
Celles-ci se décomposent en deux catégories : Mandatory & Optional.
’ Pour WinNT
ADSIPath = CStr("WinNT ://domaineNT/utilisateurNT")
ADSIPath = CStr("WinNT ://domaineNT/ComputerXYZ")
’ Pour Exchange
strOrg = "EAU"
strSite = "DEF"
ADSIPath = CStr("LDAP ://ServeurNTExchange/cn=Recipients,OU=" & strSite & ",O=" & strOrg)
ADSIPath = CStr("LDAP ://ServeurNTExchange/cn=GroupeDeTest,cn=Recipients,OU=" & strSite & ",O=" & strOrg)
Set adsiObject = GetObject(ADSIPath)
Set objClass = GetObject(adsiObject.Schema)
WScript.Echo adsiObject.Name & " in " & ADSIPath & " Schema"
on error resume next
WScript.Echo "Mandatory Properites"
For Each ClassMembers In objClass.MandatoryProperties
WScript.Echo " >> " & ClassMembers &" : "& adsiObject.Get(ClassMembers)
Next
WScript.Echo
WScript.Echo "Optional Properites"
For Each ClassMembers In objClass.OptionalProperties
WScript.Echo " >> " & ClassMembers &" : "& adsiObject.Get(ClassMembers)
Next
|
|
|