AD: skrypty startpwe

Witam, mam skrypty startowe w AD, m.in. kopiuja skroty programow, mapuja
dyski, tworza skroty i wszystko w zaleznosci od przynaleznosci do
odpwoiednich grup, niestety wyglada na to ze pobieranie listy grup
dziala tylko z uprawnieniami admina

Set objDictionary = CreateObject("Scripting.Dictionary")
Set objADSysInfo = CreateObject("ADSystemInfo")
strUser = objADSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)

For Each strGroup in objUser.memberOf 'tu dostaje blad na koncie bez
praw admina domeny "obiekt nie jest kolekcja"
     Set objGroup = GetObject("LDAP://" & strGroup)
     strGroupName = objGroup.CN
     objDictionary.Add strGroupName, strGroupName
Next

Prosze o pomoc, moze jakos inaczej mozna sprawdzic przynaleznoswc userow
do grup?
Googalem, ale nie potrafie nic mądrego znalezc, ten fragment kodu jest
ze stron M$ (skrypciarze) ale nic nie pisza ze sie nie wykona bez
admina... (co tez byloby dziwne zeby user nie mogl sam odczytac
informacji o przynaleznosci do grup)

tzn
Set objUser = GetObject("LDAP://" & strUser)
sie nie wykonalo? jak w ogole stwierdzic czy objUser sie wykonalo czy nie?
objUser<>NULL ???
Received on Wed Oct 22 12:05:03 2008