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, 10931 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 ..
Neuester Wissensbeitrag
Humor (lol)

Linkliste für Adventskalender

(3)

Information von nikoatit zum Thema Humor (lol) ...

Ähnliche Inhalte
Outlook & Mail
gelöst Email Anhänge speichern VB Script aber nur bestimmte Dateitypen (Outlook) (4)

Frage von LindeUnimog zum Thema Outlook & Mail ...

VB for Applications
gelöst VB Script rekursiv statt nur ein Ordner (4)

Frage von Saschaaaaa zum Thema VB for Applications ...

VB for Applications
gelöst VB Script nach gefundenem Wort die nächsten 4 Zeichen ersetzten (2)

Frage von deutsch73 zum Thema VB for Applications ...

Batch & Shell
gelöst Dell Garantie Abfrage per PowerShell Script (5)

Frage von evilknievel zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Windows Server
DHCP Server switchen (25)

Frage von M.Marz zum Thema Windows Server ...

SAN, NAS, DAS
gelöst HP-Proliant Microserver Betriebssystem (14)

Frage von Yannosch zum Thema SAN, NAS, DAS ...

Grafikkarten & Monitore
Win 10 Grafikkarte Crash von Software? (13)

Frage von Marabunta zum Thema Grafikkarten & Monitore ...

Windows 7
Verteillösung für IT-Raum benötigt (12)

Frage von TheM-Man zum Thema Windows 7 ...