Gruppenzugehörigkeit herausfinden

[wintom 10]

Ich muss in einer Win2000-ADS-Umgebung beim einloggen der User herausfinden ob diese bestimten Gruppen zugehören.

Wie geht das am schnellsten mit vbscript?

Kann mir jemand einen Tip dazu geben(z.B.:Beispielscripte oder Links dazu)?

Danke schon im vorraus.

[alexstarke 10]

einfachste möglichkeit ist denke ich mit kixtart und dem befehl INGROUP("Administratoren")

 

Befehlsreferenz:

http://www.kixtart.org/commandreference.html#_Toc472311924

[wintom 10]

Werde das mal ausprobieren!

Habe aber mittlerweile auch das Attribut "memberof" gefunden.

Mal sehen ob es funzt?

[grizzly999 11]

Und im ResourceKit gibt es ein Tool ifmember.exe .....

 

grizzly999

[Zerstoiber 10]

rem benötigte Tools: ifmember.exe aus dem ResKit

 

rem [ Auswahl, des Sprungziels nach Gruppenzugehoerigkeit ]

 

rem ** Auswahl der Gruppe ueber ifmember.exe, wenn Uebereinstimmung, dann Sprungziel Auswahl **

 

\\SERVER\netlogon\ifmember Verwaltung

 

if errorlevel 1 goto GR_VERWALTUNG

 

goto END

 

:GR_VERWALTUNG

 

** hier kannst du deine Sachen eintragen die ausgeführt werden sollen, wenn der User der Gruppe GR_Verwaltung angehört.

 

 

:END

[blub 115]

Hi wintom,

Wenn dich nur einfache Gruppenmitgliedschaften interessieren, ist relativ einfach (s.o). Wenn allerdings auch verschachtelte Mitgliedschaften interessieren, dann isses schon bischen schwieriger. (zu lösen z.B. über das Accesstoken des Users)

 

cu

blub

[wintom 10]

So einfach wie ich mir das gedacht habe ist es dann doch nicht!

Ich muss :( beim Login überprüfen ob ein User in bestimmten Gruppen Mitglied ist(über 100 Gruppen) und falls ja entsprechende Drucker gerade dieser Gruppen ihm zuordnen.

Ich muss mir also erst einmal alle Gruppen die in einer OU sich befinden filtern.Danach muss ich feststellen ob der angemeldete User Mitglied dieser Gruppen ist.Wenn ja bekommt er bestimmte Drucker zugewiesen.Das Zuweisen der Drucker ist dabei die kleinste Aufgabe.

 

Die Gruppen in der entsprechenden OU habe ich schon gefiltert aber das geht mir einfach zu langsam.Gib es da noch eine andere Möglichkeit ?

Kann mir jemand einen Tip geben wie ich das beschleunigen kann?

Hier der Sourcecode:

 

' Gruppen die mit v beginnen in einer bestimmten OU suchen

 

' ADODB-Verbindung einrichten

Set Connection = CreateObject("ADODB.Connection")

Connection.Provider = "ADsDSOObject"

Connection.Open "Active Directory Provider"

 

' Abfrage formulieren

Set Command = CreateObject("ADODB.Command")

Command.ActiveConnection = Connection

 

ADsPath = "Server/OU=PRINTER,DC=meine,DC=domaine,DC=org"

 

sFilter = "(&(objectCategory=group)(name="v*"))"

 

' ich brauche die Namen der Gruppen

sAttribsToReturn = "name"

 

' Tiefe der Suchabfrage

' auch mit One-level ist es sehr langsam

sDepth = "subTree"

 

' Command zusammensetzen

query = "<LDAP://" & ADsPath & ">;" & sFilter & ";" & _

sAttribsToReturn & ";" & sDepth

 

Command.CommandText = query

 

' Ausführen

Set rs = Command.Execute

 

MsgBox rs.RecordCount & " Gruppen gefunden, die """ & _

gruppe & """ entsprechen."

 

WScript.Echo rs.GetString

 

Es dauert verdammt lange bis das Script die Gruppen ausgibt!!