verschachtelte Gruppen filtern

[wintom 10]

Ich habe das Problem Drucker entsprechend der Gruppenzugehörigkeit der User zuzuweisen.

Der Zugriff auf die Drucker erfolgt wie üblich über lokale Gruppen in denen wiederum globale Gruppen Mitglied sind.

Ich versuche nun über ein vbscript alle Druckergruppen auszulesen(was auch klappt) und muss aber jetzt wiederum für jede Gruppe die Gruppen(globalen Gruppen) ermitteln die darin Mitglied sind um dann letzendlich auf die User zugreifen zu können.Ich bekomme aber jedesmal eine nichtssagende Fehlermeldung und das Script bricht ab.Der Sourcecode des Scripts sieht so aus:

----------------------------------------------------------------------------

Set wshnet = CreateObject("WScript.Network")

 

'Ldappfad auf DruckerOU einstellen

Set groupOb =GetObject("LDAP://PDC/OU=PRINTER,DC=net,DC=test,DC=org")

 

'alle vorhandenen lokalen Gruppen filtern

groupOb.filter = Array("group")

 

 

For Each item in groupOb

' alle Untergruppen(globalen Gruppen) filtern

Set sub_groupOb = GetObject("LDAP://PDC/" & item.name & "/OU=PRINTER,DC=net,DC=test,DC=org")

sub_groupOb.filter = Array("group")

for each subitem in sub_groupOb

'User der Gruppen herausfiltern

for each obuser in subitem.Members

user = mid(obuser.name,4)

if user = wshnet.Username then

'Drucker zuweisen

 

end if

next

next

next

 

Kann mir jemand einen Tip geben wo ein Fehler stecken kann?

Bin für jeden Tip dankbar!