Thema Datum  Von Nutzer Rating
Antwort
Rot RDN im AD ändern.
 26.02.2016 15:13:16 Dennis
*****
NotSolved

Ansicht des Beitrags:
Von:
Dennis 		Datum:
26.02.2016 15:13:16		 Views:
2105		 Rating:
     
Antwort:
  Ja
Thema:
RDN im AD ändern.

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.

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot RDN im AD ändern.
 26.02.2016 15:13:16 Dennis
*****
NotSolved