Hi ,
ich sitze grade an einem kleinen Problem dran. Ich möchte lediglich die Telefonnummern aus der AD herauslesen und auf einer ASP Seite ausgeben.
Bis jetzt habe ich nur ein bisschen rumgespielt und getestet, was ich bisher habe ist Folgendes:
[HTML]
<%@ Page Language="VB" %>
<%@ Import Namespace="System.DirectoryServices" %>

<form runat="server">

<aspropDownList ID="ddlAuswahl" Runat="server" />

<p>

<asp:button ID="btOK" Text="Starten" Runat="server" />

<asp:label ID="LinkeSpalte" style="position: absolute; top=180px; left=10px" Runat="server" />

<asp:label ID="RechteSpalte" style="position: absolute; top=180px; left=300px" Runat="server" />

</form>


<script runat="server">
Sub Page_Load (sender As Object, e As EventArgs)

If ViewState("location") Is Nothing Then
ViewState("location") = "Dreiech"
Else
ViewState("location") = ddlAuswahl.SelectedItem.Text
End If

Dim varAuswahl As String
varAuswahl = ddlAuswahl.SelectedItem.Text

'Aufruf des Ergebnisses:
showResults(varAuswahl)

Else
ddlAuswahl.Items.Insert(0, New ListItem("Dreieich"))
ddlAuswahl.Items.Insert(1, New ListItem("Soest"))
ddlAuswahl.Items.Insert(2, New ListItem("Baar"))
ddlAuswahl.Items.Insert(3, New ListItem("Utrecht"))
ddlAuswahl.Items.Insert(4, New ListItem("Emmen"))
End If
End Sub
</script>

<script runat="server">
Sub showResults(varAuswahl As String)
'Spalten leeren:
LinkeSpalte.text=""
RechteSpalte.text=""

Dim Suchpfad As String
Suchpfad = "GC://OU=" + varAuswahl + ",OU=users,OU=nr,DC=A,DC=B,DC=C"

Dim Entry As DirectoryEntry = New DirectoryEntry(Suchpfad)

Dim child
Dim zeile

For Each child in Entry.Children
zeile = Right(child.Name, len(child.name)-3)
zeile = Replace(zeile, "\","")
LinkeSpalte.Text = LinkeSpalte.Text + zeile + "<br />"
Next

Dim EntrySearcher As DirectorySearcher = New DirectorySearcher(Entry)

EntrySearcher.Filter=("(objectClass=user)")

Dim myResult As SearchResult
For Each myResult in EntrySearcher.FindAll()

RechteSpalte.Text = RechteSpalte.Text + myResult.GetDirectoryEntry().Name.ToString() + "<br />"
'RechteSpalte.Text = RechteSpalte.Text + myResult.GetDirectoryEntry().Path.ToString() + "<br /><br />"

Next

End Sub
</script>
[/HTML]

Ich bekomme halt die User und PC's angezeigt. Ich möchte aber nur die Telefonnummern auslesen. Kann mir da jemand helfen, bin nämlich noch nicht all zu bewandert in diesem Thema.
thx

Sälü

Hier findest du einige Beispiele wie du mittels VBScript im Active Directory Informationen auslesen und setzen kannst

Scripting Active Directory Users using VBScript

thx, da kann ich mich mal ein bisschen schlauer machen.

Sonst Hilfestellung direkt vom Hersteller: http://www.microsoft.com/germany/tec...r/default.mspx

Ich bin fast sicher, hier findest Du ein passendes Beispielscript.

Das sieht sehr vielversprechend aus. Danke, ich begeb mich gleich mal auf die Suche

mfg