HI I got this one to do the same.. n works perfectly fine :)
Option Explicit
Dim objConnection, objCommand, objRootDSE, strDNSDomain, strQuery
Dim objUser, strUserDN, strFilter, strAttributes, strPriGroup
Dim objRecordSet, intGroupToken, strGroupDN, objGroup
' Specify the user and primary...