Σήμερα το μενού έχει scripting. Πώς κάνουμε export την τιμή ενός AD Attribute με vbscript? Ξέρω, ξέρω προφανώς και υπάρχουν αμέτρητα άρθρα επί του θέματος, αλλά διαβάστε τα παρακάτω και δεν θα χάσετε!

Αρχίζουμε με τα απλά:

Τι γίνεται αν το Attribute name περιέχει τον χαρκτήρα “-“;

Ύστερα από αρκετό ψάξιμο βρίσκουμε το εξής post του γνωστού scripting guy:

http://blogs.technet.com/heyscriptingguy/archive/2005/06/21/how-can-i-retrieve-the-value-of-an-active-directory-attribute-that-has-a-hyphen-in-its-name.aspx

Τι γίνεται αν το Attribute name περιέχει τον χαρκτήρα “-“ ΚΑΙ είναι multivalued; Ooops πρόβλημα έτσι; Εμένα μου πήρε λίγη ωρίτσα να το βρώ, η λύση παρακάτω.

Option Explicit

Dim strMetaDataEntry, strDNSDomain, strContainer
Dim objGroup, objRootDSEDim arrMetaData

strContainer = "cn=<group name>,cn=<container>, "
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("DefaultNamingContext")

Set objGroup = GetObject ("LDAP://"& strContainer & strDNSDomain)

objGroup.getInfoEx array("msDS-ReplValueMetaData"),0
arrMetaData = objGroup.GetEx("msDS-ReplValueMetaData")

' Loop = For Each .... Next
WScript.Echo "Metadata for members of: " & strContainer
For Each strMetaDataEntry in arrMetaData
WScript.echo strMetaDataEntry
Next

Wscript.Quit

Ελπίζω να σας φανεί χρήσιμο!

P.S Το script είναι κλινικά δοκιμασμένο , αλλά δεν αναλαμβάνω ευθύνη!

Φιλικά

SOF