Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Aus dem Anmeldenamen das CN ermitteln

Frage Entwicklung VB for Applications

Mitglied: skid

skid (Level 1) - Jetzt verbinden

18.09.2006, aktualisiert 11:08 Uhr, 5462 Aufrufe, 4 Kommentare

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
Mitglied: SlainteMhath
18.09.2006 um 10:02 Uhr
01.
Set objConnection = CreateObject("ADODB.Connection") 
02.
Set objCommand    = CreateObject("ADODB.Command") 
03.
Set objNetwork    = CreateObject("WScript.Network")  ' <= edit 
04.
 
05.
objConnection.Open "Provider=ADsDSOObject;" 
06.
samAccountName = objNetwork.UserName      
07.
 
08.
objCommand.ActiveConnection = objConnection 
09.
' hier den Base DN noch anpassen! <LDAP://....> 
10.
objCommand.CommandText = "<LDAP://dc=domain,dc=local>;(&(objectCategory=User)(samAccountName=" & samAccountName & "));CN" 
11.
                          
12.
Set objRecordset = objCommand.Execute 
13.
 
14.
If objRecordset.RecordCount = 1 Then	 
15.
    strCN=objRecordset.fields("CN").value     
16.
end if 
17.
 
18.
wscript.echo strCN
Sollte so funktionieren. Du musst lediglich den Base DN entsprechend ändern
Bitte warten ..
Mitglied: skid
18.09.2006 um 10:45 Uhr
Hi,

sieht schon mal ganz gut aus.

Bekomme nur die Meldung:

Laufzeitfehler in Microsoft VBScript: Objekt erforderlich: 'objNetwork'
Bitte warten ..
Mitglied: SlainteMhath
18.09.2006 um 10:50 Uhr
Uups, da is wohl beim Copy&Paste ne zeile verlorengegangen

Ich hab den Code entsprechend editiert.
Bitte warten ..
Mitglied: skid
18.09.2006 um 11:08 Uhr
Alles Klar - Dank Dir !!

Jetzt funktionierts

Ich sags ja, immer dieses C&P Programming
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
gelöst In einer Batch variable die Datei extension ermitteln ? (4)

Frage von Kriegstreiber zum Thema Batch & Shell ...

Datenbanken
gelöst MySQL Function Anzahl Datensätze ermitteln (4)

Frage von MultiStorm zum Thema Datenbanken ...

Visual Studio
gelöst SIDs eines Verzeichnisses ermitteln (1)

Frage von joehuaba zum Thema Visual Studio ...

DNS
Hostnames für mehrere IPs ermitteln (3)

Frage von Oneil-1989 zum Thema DNS ...

Neue Wissensbeiträge
Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(9)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Windows 10

Das Windows 10 Creators Update ist auf dem Weg

(6)

Anleitung von BassFishFox zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Exchange Server
Exchange 2016 Standard Server 2012 R2 Hetzner Mail (36)

Frage von Datsspeed zum Thema Exchange Server ...

Verschlüsselung & Zertifikate
Mit Veracrypt eine zweite interne (non-system) Festplatte verschlüsseln (10)

Frage von Bernulf zum Thema Verschlüsselung & Zertifikate ...

Internet Domänen
Nameserver ein Geist? (6)

Frage von zelamedia zum Thema Internet Domänen ...

Microsoft Office
Übertrag in eine andere Tabelle (6)

Frage von charmeur zum Thema Microsoft Office ...