Sub AddObjectToTheGroup(instance, objectName, groupName)

   ' 1 Get context data
   Dim vsInput, vsOut : Set vsInput = CreateObject("EAserver.EAserver.1")
   Dim localDomain : Set localDomain = instance.LocalDomain
   Dim targetOu : Set targetOu = localDomain.GetDefaultContainer("OU1")
   Dim container : container = targetOu.ContainerDn.ToString
   Dim group, member

   group = aqString.Format("OnePoint://CN=%s,%s", groupName, container)
   member = aqString.Format("OnePoint://CN=%s,%s", objectName, container)

   With vsInput
      .Put "Group", group
      .Put "LocaleID", CLng(LOCALID)
      .Put "Member", member
      .Put "OperationName", "GroupMemberAdd"
   End With

   'Submit the varset to EAServer
   If ErrorHandler.SubmitScript(vsInput, vsOut) Then
      Log.Event("Object '" & objectName & "' added as member a " & _
                "of group: '" & groupName & "'")
   Else
      Runner.Stop(True)
   End If

   Set vsInput = Nothing

End Sub  ' AddObjectToTheGroup