...strOU, strGroup, strDNSDomain
Dim intCounter
' Check these objects referenced by strOU, strGroup exist in strOU
'source OU
strOU = "ou=test2,dc=****,dc=****,dc=***,dc=uk,"
'target global group
strGroup = "cn=testtarget,dc=***,dc=****,dc=***,dc=uk,"
' Bind to Active Directory and get LDAP...