Active Directory auslesen und Daten in Datei schreiben - VB 2008

17/10/2008 - 15:31 von Raphael Boos | Report spam
Hallo miteinander :)

Ich hab da ein "kleines" Problem. Ich will das Active Directory auslesen
(alle Benutzer) und danach jeden einzelnen in eine einzelne Datei schreiben
und dafür brauch ich ein bisschen Starthilfe, da ich kein Plan habe, wie das
zusammenpassen könnte. Hab da schon ein wenig angefangen, aber komme nur bis
zur AD-Verbindung (weiter weiss ich nicht mehr :S):



Private Sub frmAuslesen_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

'Variablendefinitionen
Dim strSuchbasis As String
Dim strFilter As String
Dim strAttribut As String
Dim strSuchbereich As String
Dim objConnection As Object
Dim objCommand As Object

strSuchbasis = "<LDAP://" &
GetObject("LDAP://rootDSE").Get("rootDomainNamingContext") & ">"
strFilter =
"(&(objectCategory=person)(objectClass=user)(sAMAccountName=*))"
strAttribut = "samAccountName,distinguishedName"
strSuchbereich = "subtree"

objConnection = CreateObject("ADODB.Connection")
objCommand = CreateObject("ADODB.Command")
objConnection.Open("Provider­sDSOObject")
objCommand.ActiveConnection = objConnection
objCommand.CommandText = strSuchbasis & ";" & strFilter & ";" &
strAttribut & ";" & strSuchbereich

End Sub



Hab ich da vielleicht falsch begonnen oder so? Könnte mir da jemand noch ein
bisschen weiterhelfen (Userdaten auslesen (Name, Vorname, Strasse etc.) und
jeder Benutzer in eine einzelne Datei schreiben)?

Wenn ich sonst noch irgendwie helfen könnte, einfach fragen, vielleicht
weiss ich ja was ^^

Wàre wirklich super :)

Danke schonmal ;)

Mit freundlichen Grüssen

Raphael Boos
 

Lesen sie die antworten

#1 Raphael Boos
22/10/2008 - 11:44 | Warnen spam
"Raphael Boos" wrote:

Hallo miteinander :)

Ich hab da ein "kleines" Problem. Ich will das Active Directory auslesen
(alle Benutzer) und danach jeden einzelnen in eine einzelne Datei schreiben
und dafür brauch ich ein bisschen Starthilfe, da ich kein Plan habe, wie das
zusammenpassen könnte. Hab da schon ein wenig angefangen, aber komme nur bis
zur AD-Verbindung (weiter weiss ich nicht mehr :S):



Private Sub frmAuslesen_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

'Variablendefinitionen
Dim strSuchbasis As String
Dim strFilter As String
Dim strAttribut As String
Dim strSuchbereich As String
Dim objConnection As Object
Dim objCommand As Object

strSuchbasis = "<LDAP://" &
GetObject("LDAP://rootDSE").Get("rootDomainNamingContext") & ">"
strFilter =
"(&(objectCategory=person)(objectClass=user)(sAMAccountName=*))"
strAttribut = "samAccountName,distinguishedName"
strSuchbereich = "subtree"

objConnection = CreateObject("ADODB.Connection")
objCommand = CreateObject("ADODB.Command")
objConnection.Open("Provider­sDSOObject")
objCommand.ActiveConnection = objConnection
objCommand.CommandText = strSuchbasis & ";" & strFilter & ";" &
strAttribut & ";" & strSuchbereich

End Sub



Hab ich da vielleicht falsch begonnen oder so? Könnte mir da jemand noch ein
bisschen weiterhelfen (Userdaten auslesen (Name, Vorname, Strasse etc.) und
jeder Benutzer in eine einzelne Datei schreiben)?

Wenn ich sonst noch irgendwie helfen könnte, einfach fragen, vielleicht
weiss ich ja was ^^

Wàre wirklich super :)

Danke schonmal ;)

Mit freundlichen Grüssen

Raphael Boos




keiner eine Idee? :(

Ähnliche fragen