Project Server 2010 PSI - Add users to a security group

Dim GroupList = security.ReadGroupList()DimGroup = DirectCast(GroupList.Tables("SecurityGroups"), 
ObtenirResource.WebSvcSecurity.SecurityGroupsDataSet.SecurityGroupsDataTable)Dim Ligne As WebSvcSecurity.SecurityGroupsDataSet.SecurityGroupsRowDim GroupGuid As Guid = Guid.EmptyFor i AsInteger = 0 ToGroup.Count
   Ligne = Group.Rows(i)If Ligne.WSEC_GRP_NAME = "projects managers"Then
     GroupGuid = Ligne.WSEC_GRP_UIDExitForEndIfNextIf GroupGuid <> Guid.Empty ThenDim groupDs As WebSvcSecurity.SecurityGroupsDataSet =New WebSvcSecurity.SecurityGroupsDataSet()Dim groupMembersRow As WebSvcSecurity.SecurityGroupsDataSet.GroupMembersRow =
         groupDs.GroupMembers.NewGroupMembersRow()
   groupMembersRow.WSEC_GRP_UID = GroupGuid

   groupMembersRow.RES_UID = p_GuidUser
   groupDs.GroupMembers.AddGroupMembersRow(groupMembersRow)

   security.SetGroups(groupDs)

EndIf