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

LDAP Abfrage über VB Script

Frage Entwicklung VB for Applications

Mitglied: Peacer

Peacer (Level 1) - Jetzt verbinden

21.01.2011, aktualisiert 11:47 Uhr, 11129 Aufrufe, 5 Kommentare

Hallo zusammen,

ich brauche - mal wieder - ein VB-Script für eine spezielle LDAP Abfrage für den 1.-lvl Support. Und zwar habe ich die 4-stellige Durchwahl eines Users. Um möglichst schnell den Namen des Users herauszufinden möchte ich per LDAP Abfrage nach der telephoneNumber suchen (am besten mit dem parameter "endet mit", sodass nur nach den letzten 4 stellen gesucht wird) mit dem und den dazugehörigen givenName & surName ausgeben.


Danke für die Hilfe
LG Peacer
Mitglied: Logan000
21.01.2011 um 13:10 Uhr
Moin Moin

Das solte so im groben das sein was du suchst.

01.
On Error Resume Next  
02.
  
03.
 TelNr = "1234"  
04.
 DomName= "MyDomain" 
05.
 DomSuffix = "de" 
06.
Const ADS_SCOPE_SUBTREE = 2  
07.
Set objConnection = CreateObject("ADODB.Connection")  
08.
Set objCommand =   CreateObject("ADODB.Command")  
09.
objConnection.Provider = "ADsDSOObject"  
10.
objConnection.Open "Active Directory Provider"  
11.
Set objCommand.ActiveConnection = objConnection  
12.
objCommand.Properties("Page Size") = 1000  
13.
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE   
14.
objCommand.CommandText = _  
15.
    "SELECT name FROM 'LDAP://dc=" & DomName & ",dc=" & DomSuffix & "' WHERE objectClass='user' "  & _  
16.
        "AND telephoneNumber='*" & TelNr & "'"  
17.
Set objRecordSet = objCommand.Execute  
18.
If objRecordSet.recordcount=0 Then  
19.
	Wscript.Echo "nix gefunden!" 
20.
else 
21.
	objRecordSet.MoveFirst  
22.
	Do Until objRecordSet.EOF  
23.
		Wscript.Echo objRecordSet.Fields("Name").Value  
24.
		objRecordSet.MoveNext  
25.
	Loop  
26.
end if
Solche sachen findest Du meistens Hier: http://gallery.technet.microsoft.com/scriptcenter/site/search?f[0].Type=RootCategory&f[0].Value=activedirectory&f[0].Text=Active%20Directory&f[1].Type=SubCategory&f[1].Value=searching&f[1].Text=Searching%20Active%20Directory

Gruß L.
Bitte warten ..
Mitglied: 76109
21.01.2011 um 17:25 Uhr
Hallo Logan000!

*Grübel* müsste im SQL-String (Tel-Nr) nicht anstatt '*' ein '%' stehen?

Gruß Dieter
Bitte warten ..
Mitglied: Logan000
21.01.2011 um 17:31 Uhr
Moin Didi

*Grübel* müsste im SQL-String (Tel-Nr) nicht anstatt '*' ein '%' stehen?
ich sach mal nein.
Zum einen weil ichs ausprobiert habe
zum anderen hab ich [hier http://www.serverwatch.com/tutorials/article.php/1476621/Wildcard-Activ ...] gelesen das das "*" funkt.

Gruß L.
Bitte warten ..
Mitglied: 76109
21.01.2011 um 17:47 Uhr
Hallo L!

OK, wenn's funkt, habe ich mich wohl geiirt. Passiert mir in letzter Zeit öfter

Gruß Dieter

PS. Jetzt fällt's mir wieder ein, der LIKE-Operator verwendet das "%"
Bitte warten ..
Mitglied: Peacer
21.01.2011 um 17:52 Uhr
Funktioniert super!

Vielen Dank
Bitte warten ..
Ähnliche Inhalte
VB for Applications
gelöst VB-Script per Aufgabenplanung (2)

Frage von S4kar97 zum Thema VB for Applications ...

Windows Server
gelöst LDAP Abfrage einrichten (6)

Frage von hscheip zum Thema Windows Server ...

Windows Server
gelöst LDAP Daten anderer Domain abrufen (3)

Frage von it4baer zum Thema Windows Server ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Vmware
VMware ESX - Start einer VM verhindern (19)

Frage von emeriks zum Thema Vmware ...

Rechtliche Fragen
gelöst Geschäftsführer Email gefaked (18)

Frage von xbast1x zum Thema Rechtliche Fragen ...

iOS
IPhone wird ferngesteuert Hacker? (17)

Frage von Akcent zum Thema iOS ...