Active Directory Attribut Kontakte

  • VBScript

    Active Directory Attribut Kontakte

    Hallo liebe Community,

    folgende Problemstellung:
    Im Active Directory muss bei ca 900 Kontakten ein Attribut hinzugefügt werden.
    Eine Liste mit den Kontakten gibt es schon als Textdatei.

    Ich habe mir schon etwas zurecht gebastelt mit dem ich das Attribut für einen Kontakt im Script setzen kann.

    Visual Basic-Quellcode

    1. Set ou = GetObject("LDAP://ou=Telefon,ou=mybusiness,dc=example,dc=local")
    3. ' Set string variables
    4. ' Note: Assume an OU called suppliers exists.
    5. strshown = "CN=Telefon,CN=All Address Lists,CN=Address Lists Container,CN=First Organization,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=example,DC=local"
    7. ' Build the actual contacts.
    8. Set objContact = GetObject("LDAP://CN=test vbs,OU=telefon,OU=mybusiness,DC=example,DC=local")
    9. objContact.Put "showInAddressBook", strshown
    10. objContact.SetInfo
    12. WScript.Quit


    Meine Frage: Wie kann ich die Textdatei mit den Kontakten zeilenweisen einlesen und in die Zeile

    Visual Basic-Quellcode

    1. Set objContact = GetObject("LDAP://CN= [b]Zeile der Textdatei[/b],OU=telefon,OU=mybusiness,DC=example,DC=local")
    einfügen lassen?

    Ein blutiger VBS Anfänger freut sich auf eure Anregungen.


    Gruß
    Manuel

    *Topic verschoben, VB-BBCode eingesetzt*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

Facebook
Telefonspende