Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Auslesen der User einer Dömane
Autor: Ali70
Datum: 15.11.07 13:41
Hi Markus, in meinem Eintrag vorher hatte ich angesprochen, dass ich das alles über LDAP Search über ADODB machen würde. Hier ein Code Snippet.... 'Hier gibtst du die Anzahl Unter OU's an, wo gesucht werden soll : Const ADS_SCOPE_SUBTREE = 2 Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.CommandText = _ "Select distinguishedName from " & _ "'LDAP://DC=Andritz,DC=COM'" _ & "where objectClass='group'" objCommand.Properties("Page Size") = 1000 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst 'Die Ausgabe kannst du für dich anpassen Do Until objRecordSet.EOF WScript.Echo "Computer Name: " & _ objRecordSet.Fields("distinguishedName").Value objRecordSet.MoveNext Loop __________________________________________________________ Kommentar noch Da ich generell über den Distinguished Name der Objekte arbeite, hole ich auch den DN, du kannst hier auch über Select Name arbeiten ...was du aber bei der Ausgabe mit berücksichtigen solltest.. Unter LDAP musst du den Distinguished Name deiner Domäne angeben In diesem Fall ist es die DC=ANDRITZ,DC=COM Hier ein Beispiel, wenn du nur den Gruppennamen brauchst. Const ADS_SCOPE_SUBTREE = 3 Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.CommandText = _ "Select Name from " & _ "'LDAP://DC=Andritz,DC=COM'" _ & "where objectClass='group'" objCommand.Properties("Page Size") = 1000 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst Do Until objRecordSet.EOF WScript.Echo "Computer Name: " & _ objRecordSet.Fields("Name").Value objRecordSet.MoveNext Loop

Auslesen der User einer Dömane	4.074	Stechi	05.11.07 08:52
Re: Auslesen der User einer Dömane	2.930	Dieter	06.11.07 15:03
Re: Auslesen der User einer Dömane	2.672	Stechi	06.11.07 15:32
Re: Auslesen der User einer Dömane	2.864	Ali70	06.11.07 16:15
Re: Auslesen der User einer Dömane	2.699	Stechi	08.11.07 13:33
Re: Auslesen der User einer Dömane	2.775	Ali70	03.12.07 23:10
Re: Auslesen der User einer Dömane	2.572	Stechi	04.12.07 09:07
Re: Auslesen der User einer Dömane	2.503	Stechi	04.12.07 09:33
Re: Auslesen der User einer Dömane	2.575	Ali70	04.12.07 10:00
Re: Auslesen der User einer Dömane	2.526	Stechi	04.12.07 10:33
Re: Auslesen der User einer Dömane	2.512	Stechi	25.03.08 09:40
Re: Auslesen der User einer Dömane	2.667	Stechi	15.11.07 09:45
Re: Auslesen der User einer Dömane	2.619	Ali70	15.11.07 10:43
Re: Auslesen der User einer Dömane	2.522	Stechi	15.11.07 11:45
Re: Auslesen der User einer Dömane	2.497	Ali70	15.11.07 13:12
Re: Auslesen der User einer Dömane	2.465	Stechi	15.11.07 14:44
Re: Auslesen der User einer Dömane	2.585	Ali70	15.11.07 15:11
Re: Auslesen der User einer Dömane	2.516	Stechi	15.11.07 15:19
Re: Auslesen der User einer Dömane	2.544	Ali70	15.11.07 15:21
Re: Auslesen der User einer Dömane	2.452	Stechi	21.11.07 16:21
Re: Auslesen der User einer Dömane	2.677	Ali70	15.11.07 13:41
Re: Auslesen der User einer Dömane	2.520	Ali70	15.11.07 13:52
Re: Auslesen der User einer Dömane	2.542	Ali70	21.11.07 23:33
Re: Auslesen der User einer Dömane	2.452	Stechi	03.12.07 15:04
Re: Auslesen der User einer Dömane	2.443	Stechi	03.12.07 15:07
Re: Auslesen der User einer Dömane	2.582	Ali70	03.12.07 17:02
Re: Auslesen der User einer Dömane	2.499	Marky-Mark	03.12.07 18:34

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen