Create User in Active Directory

1. offizieller Beitrag

    Hallo, hat einer ein Beispiel wie ich einen User im AD anlegen kann?
    Wie ich einzelne Attribute bearbeite, weiss ich.

    Ich brauch nur nen Schnipsel. In dem englischen hat man dieses mir zum testen gereicht.


    Dim $objDomain, $objUser

    $objDomain = ObjGet("LDAP://cn=Users,dc=mycorp,dc=com")
    $objUser = $objDomain.Create("user","cn=vlaunders")
    $objUser.Put ("sAMAccountName", "vlaunders")
    $objUser.Put ("userPrincipalName", "vlaunders@mycorp.com")


    leider funktioniert es nicht? Hat einer da was?
    Danke Danke Danke!

    • Offizieller Beitrag

    Hier mal 2 Links die Dir eventuell weiterhelfen!

    Microsoft TechNet

    TechTasks

    Ein lauffähiges VBS besitze ich bereits. Aber wollte halt eine 100%ige Autoit Lösung, da ich das vbs script schlecht über autoit aufrufen kann oder? Also Sauber. Danke aber all die URLs kenn i schon.

    • Offizieller Beitrag

    Probier dies mal. Kann es selber nicht testen, keine Domain hier.

    [autoit]

    Const $ADS_PROPERTY_APPEND = 3
    Dim $strComputer = "Carolina_xp"
    Dim $objGroup, $objUser
    ; Username = Carolina , Domain = cat
    $objGroup = ObjGet("WinNT://" & $strComputer & "/Administrator,group")
    $objUser = ObjGet("WinNT://cat/Carolina,user")
    $objGroup.Add($objUser.ADsPath)

    [/autoit]

    Ich hab hier mal noch ein Bsp. aus dem Scriptcenter adaptiert. Ebenfalls, mangels Domain, ungetestet.

    [autoit]

    ; 1) creates a new Active Directory organizational unit
    $objDomain = ObjGet("LDAP://dc=fabrikam,dc=com")
    $objOU = $objDomain.Create("organizationalUnit", "ou=Management")
    $objOU.SetInfo
    ; 2) creates a new user account and new security group
    $objOU = ObjGet("LDAP://OU=Management,dc=fabrikam,dc=com")
    $objUser = $objOU.Create("User", "cn= AckermanPilar")
    $objUser.Put( "sAMAccountName", "AckermanPila")
    $objUser.SetInfo
    ; 3) adds the new user as a member of that security group
    $objOU = ObjGet("LDAP://OU=Management,dc=fabrikam,dc=com")
    $objGroup = $objOU.Create("Group", "cn=atl-users")
    $objGroup.Put( "sAMAccountName", "atl-users")
    $objGroup.SetInfo

    [/autoit][autoit][/autoit][autoit]

    $objGroup.Add($objUser.ADSPath)

    [/autoit]