4
Aus dem Anmeldenamen das CN ermitteln
Hi,
suche in VB oder VBS eine Lösung um aus einem Domänen-Anmeldenamen (samAccountName)
z.B. Max123 den CN des Users, z.B. Max Mustermann, zu ermitteln.
Vielleicht hat jemand eine Lösung ?!
Gruss
SKID
suche in VB oder VBS eine Lösung um aus einem Domänen-Anmeldenamen (samAccountName)
z.B. Max123 den CN des Users, z.B. Max Mustermann, zu ermitteln.
Vielleicht hat jemand eine Lösung ?!
Gruss
SKID
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 40328
Url: https://administrator.de/contentid/40328
Ausgedruckt am: 05.11.2024 um 19:11 Uhr
4 Kommentare
Neuester Kommentar
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
Set objNetwork = CreateObject("WScript.Network") ' <= edit
objConnection.Open "Provider=ADsDSOObject;"
samAccountName = objNetwork.UserName
objCommand.ActiveConnection = objConnection
' hier den Base DN noch anpassen! <LDAP://....>
objCommand.CommandText = "<LDAP://dc=domain,dc=local>;(&(objectCategory=User)(samAccountName=" & samAccountName & "));CN"
Set objRecordset = objCommand.Execute
If objRecordset.RecordCount = 1 Then
strCN=objRecordset.fields("CN").value
end if
wscript.echo strCNSollte so funktionieren. Du musst lediglich den Base DN entsprechend ändern
Hi,
sieht schon mal ganz gut aus.
Bekomme nur die Meldung:
Laufzeitfehler in Microsoft VBScript: Objekt erforderlich: 'objNetwork'
sieht schon mal ganz gut aus.
Bekomme nur die Meldung:
Laufzeitfehler in Microsoft VBScript: Objekt erforderlich: 'objNetwork'
Uups, da is wohl beim Copy&Paste ne zeile verlorengegangen 
Ich hab den Code entsprechend editiert.
Ich hab den Code entsprechend editiert.
Alles Klar - Dank Dir !!
Jetzt funktionierts
Ich sags ja, immer dieses C&P Programming
Jetzt funktionierts
Ich sags ja, immer dieses C&P Programming
