|
Hallo,
Ich würde gerne wissen ob es möglich ist den RDN (Relative Distinguished Name) eines Users im AD zu ändern.
Hierzu habe ich ein kleines Script geschrieben, dass jedoch nicht funktioniert.
Könnt ihr mir vielleicht Helfen bzw. sagen wie ich den diesen Namen ändern kann.
Sub Namen_ändern()
Dim objOU, objUser, objRootDSE, objLogon
Dim strContainer, strLastUser, strDNSDomain, strDN
Dim Outputrow As Integer
Outputrow = 2
For Zähler = 1 To 4
If Zähler = 1 Then
strOU = "OU=Users,OU=DUS1,OU=EMEA"
End If
If Zähler = 2 Then
strOU = "OU=Users,OU=KAS1,OU=EMEA"
End If
If Zähler = 3 Then
strOU = "OU=Users,OU=HEI1,OU=EMEA"
End If
If Zähler = 4 Then
strOU = "OU=Users,OU=HEI2,OU=EMEA"
End If
strDNSDomain = "DC=das-ist-geheim,DC=local"
strContainer = strOU & "," & strDNSDomain
Set objOU = GetObject("LDAP://" & strContainer)
Name = "cn=" & Cells(Outputrow, 5).Value
'For Each objUser In objOU
Set objUser = GetObject("LDAP://cn=Dennis Nachname,ou=Users,ou=DUS1,ou=EMEA,dc=das-ist-geheim,dc=local")
If objUser.class = "user" Then
objUser.Put "name", "cn=Steffen Dennis" //Hier entsteht das Problem.
objUser.SetInfo
Outputrow = Outputrow + 1
End If
Next
'Next
End Sub
Mit freundlichen Grüßen
Dennis
|