Tilføj bruger til gruppe i AD!

Jeg har en sub som modtager to parametre. Sub’en tilføjer en bruger til gruppe i mit AD. Dette virker fint. Problemet er bare at brugeren skal ligge i en bestemt OU. Er det ikke muligt at gøre dette mere dynamisk. Er det muligt at søge igennem mit domæne for at finde brugeren f.eks. LAP og derefter add denne bruger til en min gruppe.

Mit nu værende script i VBScript

Sub AddMember(strDomainGroup, strMember)
Set objGroup = GetObject("LDAP://CN="& strDomainGroup & ", OU=niv3, 
OU=niv2, OU=niv1, DC=domaene, DC=int")

Set objUser = GetObject("LDAP://cn="& strMember & ", OU=niv3, OU=niv2, OU=niv1, dc=domaene, dc=int")

objGroup.Add objUser.AdsPath
End Sub

Nogen der har et løsningsforslag eller et forslag hvordan jeg skal gribe det an?