Set newMember = GetObject("LDAP://cn=" & DinstinguishedName & ",cn=Users,dc=your_domain_here,dc=com")
Set newGroup = GetObject("LDAP://cn=" & Projectnumber & ",cn=Users,dc=your_domain_here,dc=com")
newGroup.Put ADS_PROPERTY_APPEND, "Member", newMember
newGroup.SetInfo