Hallo zusammen ich habe ein Problem
Und zwar habe ich die Aufgabe bekommen in Excel ein Script zu schreiben.Führe ich dieses Scrippt aus, soll es sich automatisch an den Server verbinden und ins AD rein, um so an die Daten der User zu kommen.Allerdings baruche ich nur den Namen der User und die Telefonnummer. Auf dem Server kann ich mich mit meinem Host-Benutzer nicht anmelden das heisst, irgendwo muss ich auch die Anmeldedaten hinterlegen. Ich habe es bislang geschafft alle Benutzer auf meinem Host-PC zu wiedergeben, aber wie ich auf den Server gelange weiss ich leider nicht. Ich wäre froh um hilfe...
Folgendes habe ich bislang programmiert:
Sub Command2_Click()
Dim oADInfo As Object
Dim sUserName As String
Dim oUser As Object
Dim sMailAdd As String
Dim sName As String
Dim sTelephone As String
' Auslesen der Daten aus dem Active Directory
Set oADInfo = CreateObject("ADSystemInfo")
sUserName = oADInfo.Username
Set oUser = GetObject("LDAP://" & sUserName)
' Filterung bestimmter Daten
' cn = der Name, für jedes Objekt gibt es eine Abkürzung
sMailAdd = oUser.mail
sName = oUser.cn
sTelephone = oUser.telephoneNumber
' Einfügen der Daten
Worksheets("Tabelle1").Range("A1").FormulaLocal = sName
Worksheets("Tabelle1").Range("B1").FormulaLocal = sMailAdd
Worksheets("Tabelle1").Range("C1").FormulaLocal = sTelephone
Set oUser = Nothing
Set oADInfo = Nothing
End Sub
|