DomainString = "DomainName"

UserString = "jdoe"

GroupString = "GroupName"

Set GroupObj = GetObject("WinNT://" & DomainString & "/" & GroupString)

GroupObj.Add ("WinNT://" & DomainString & "/" & UserString)

Set DomainObj = Nothing

Set GroupObj = Nothing