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, 5441 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 ..
Neuester Wissensbeitrag
CPU, RAM, Mainboards

Angetestet: PC Engines APU 3a2 im Rack-Gehäuse

(2)

Erfahrungsbericht von ashnod zum Thema CPU, RAM, Mainboards ...

Ähnliche Inhalte
DNS
Hostnames für mehrere IPs ermitteln (3)

Frage von Oneil-1989 zum Thema DNS ...

Mac OS X
gelöst 500 Wordfiles die jeweilige Anzahl an Wörtern ermitteln (26)

Frage von xp-user zum Thema Mac OS X ...

Router & Routing
gelöst Netzwerkbelastung ermitteln (6)

Frage von Azubine zum Thema Router & Routing ...

Windows Installation
gelöst Win10 Build einer Installations-ISO ermitteln (9)

Frage von chiefteddy zum Thema Windows Installation ...

Heiß diskutierte Inhalte
Switche und Hubs
Trunk für 2xCisco Switch. Wo liegt der Fehler? (15)

Frage von JayyyH zum Thema Switche und Hubs ...

DSL, VDSL
DSL-Signal bewerten (13)

Frage von SarekHL zum Thema DSL, VDSL ...

Windows Server
Mailserver auf Windows Server 2012 (9)

Frage von StefanT81 zum Thema Windows Server ...