Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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, 5491 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
Microsoft Office
gelöst VBA - aktuelle Kalenderwoche ermitteln (3)

Frage von Ghost108 zum Thema Microsoft Office ...

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

Frage von joehuaba zum Thema Visual Studio ...

Windows Server
gelöst Windows Anmeldename mit "Dollar"-Zeichen als Abschlusszeichen (6)

Frage von LordNicon79 zum Thema Windows Server ...

Festplatten, SSD, Raid
Speicherverbrauch ermitteln (8)

Frage von Yannosch zum Thema Festplatten, SSD, Raid ...

Neue Wissensbeiträge
Sicherheits-Tools

Trendmicro OSCE und das Fall Creators Update Win10 RS3

(3)

Information von Henere zum Thema Sicherheits-Tools ...

Microsoft Office

Text in Zahlen umwandeln

Tipp von logische zum Thema Microsoft Office ...

Erkennung und -Abwehr

Infineon TPMs unsicher! Bitlocker ggf. angreifbar

(4)

Information von Lochkartenstanzer zum Thema Erkennung und -Abwehr ...

Firewall

PfSense Repository für Version 2.3.x

(6)

Information von Dobby zum Thema Firewall ...

Heiß diskutierte Inhalte
Microsoft Office
ICH BIN AM ENDE MEINES IT-WISSENS ANGELANGT!!!! (38)

Frage von 134537 zum Thema Microsoft Office ...

Windows Server
gelöst Gruppenrichtlinie greift nicht zu! (23)

Frage von Syosse zum Thema Windows Server ...

Hosting & Housing
Mailserver Software Empfehlungen (21)

Frage von sunics zum Thema Hosting & Housing ...