Netlogon.vbs

Hey Folks,

Got a little Problem in here.
The Point is, that I'm optimising our netlogon.cmd. I wanted to displace the old slow ifmember function with a fast vbs-script.
Everything works great so far, but:

I don't realy get the point, how to do the groupsearch recursivly (hope, this is the right word).

But let's see what I've got so far:

Getting the Membership and running the mapping function:

 Set Nutzer = GetObject("LDAP://" & CreateObject("ADSystemInfo").Username)
 arrMemberOf = Nutzer.GetEx("memberof")
 laufwerke_mappen(arrMemberOf)

The mapping function:

 function laufwerke_mappen(arrmemberof)
     
     On error resume next
     For Each Group in arrMemberOf
         Select Case Mid(Group,4,Instr(Group,",")-4)
             case [membership]
                 [map]
          end select
     On error goto 0
 end function
 

I've tried a little bit arround with:

    case else
        subgroups = GetObject("LDAP://" & group).GetEx("memberof")
        if not(err.number = E_ADS_PROPERTY_NOT_FOUND) then
             laufwerke_mappen(subgroups)
        end if
 

(the E_ADS_PROPERTY_NOT_FOUND variable contains the err.number of a not set property)

But everytime I'm trying to read the "memberof" Attribute of a Group I get "Property not set" (even if the Property is set).
Do I have the right approach or am i going totally wrong? Anyone who can tell me why this error appears?

wbr Erratum


p.s.: I would appreciate it if someone of the "native english speakers" could assess my english :p

I prefer to get the user's group membership the once and store it in a dictionary object for use throughout the script.

Also, take a look at my XML-based method for mapping drives in a logon script  http://www.visualbasicscript.com/m52191.aspx

Short before going home, I'd managed the problem (I'm gonna post the whole script later that day).
Hm...the XML Style seems to be pretty cool. I'm gonna have a second look at it, maybe I can use that thing :)

wbr erratum

Are there any limitations with posting code?
I wanted to up my netlogon.vbs (anonymous) but it tell's me that it wouldnt work, cause the "document" was empty...

Just copy and paste the code and put it between CODE tags