user in ad importieren

Seite 1 von 1 - Forum: Windows auf overclockers.at

URL: https://www.overclockers.at/windows/user_in_ad_importieren_125355/page_1 - zur Vollversion wechseln!

zork_sqc schrieb am 23.09.2004 um 18:29

hat irgendwer ein tool, mit dem man benutzname und kennwort von einer ms access datenbank in ein active diretory importieren kann.
mfg

void0 schrieb am 23.09.2004 um 21:26

Ich hatte mir mal ein Tool geschrieben um sequentiell User im AD anzulegen. Evtl. kannst du dir ja mit der VB6 Funktion hier selber weiterhelfen:

Code:

Private Function createUser(LDAPstr As String, thisUser As String)
On Error GoTo cu_err

    Dim ou As IADsContainer, usr As IADsUser
    Set ou = GetObject(LDAPstr)

    ' Create User
    Set usr = ou.Create("user", "CN=User " & thisUser)
    
    MkDir ValidatePath(ConfigUserHomeDirLocal) & thisUser
    usr.Put "samAccountName", thisUser
    usr.Put "userPrincipalName", thisUser & "@" & ConfigUserDomain
    usr.Put "EMailAddress", thisUser & "@" & ConfigUserEMAILDomain
    usr.Put "HomeDirectory", ValidatePath(ConfigUserHomeDirUNC) & thisUser
    usr.Put "MaxStorage", ConfigUserMaxStorage
    usr.SetInfo
    usr.Put "FullName", ConfigUserFullName
    usr.Put "LoginScript", ConfigUserLoginScript
    
    Set usr = ou.GetObject("user", "CN=User " & thisUser)
    Set usr = ou.GetObject("user", "CN=User " & thisUser)
    usr.Put "userPrincipalName", thisUser & "@" & ConfigUserDomain
    Set usr = ou.GetObject("user", "CN=User " & thisUser)
    
    ' Password
    If ConfigUserUniquePasswords = True Then
        Dim myPass As String
        myPass = GenPass
        usr.SetPassword myPass
        frmLog.txtLog.Text = frmLog.txtLog.Text & vbCrLf & "Pass: " & myPass
        
        If ConfigLog = True Then
            Open ConfigLogFile For Append As #1
                Print #1, thisUser & ", " & myPass
            Close #1
        End If
    End If
    
    ' Enable Account ....
    Set usr = ou.GetObject("user", "CN=User " & thisUser)
    usr.AccountDisabled = False
    usr.SetInfo
    
    
    ' Flag Homedirectory ....
    AddUserToSecurityForFSO ValidatePath(ConfigUserHomeDirLocal) & thisUser, thisUser

    
cu_exit:
    Exit Function
    
cu_err:
    frmLog.txtLog.Text = frmLog.txtLog.Text & vbCrLf & "ERROR: CreateUser: " & Err.Number & " - " & Err.Description
    Resume Next
End Function