VBScript
session.DeleteListMember nombreLista, miembroLista
Perl
$session->DeleteListMember(nombreLista, miembroLista);
VBScript
' En este ejemplo se da por supuesto que hay, como mínimo,
' 1 lista dinámica
en la sesión de acceso a la base de datos actual.
set sessionObj = GetSession
sessionObj.UserLogon "admin", "", "SAMPL", AD_PRIVATE_SESSION, ""
' Obtener una lista de los nombres de Listas dinámicas que existen
' en esta base de datos...
DynamicListNamesRef = sessionObj.GetListDefNames
' Obtener el nombre de una de las listas
set ListName = DynamicListNamesRef(0)
print ListName
' Obtener los nombres de los miembros de la lista
members = sessionObj.GetListMembers(ListName)
' imprimir los miembros de la lista...
For Each member In members
print member
Next
' Añadir un miembro y, a continuación, volver a imprimir la lista...
set newMember = "XYZ"
MsgBox "Adding member: " + newMember + " to list" + ListName
sessionObj.AddListMember ListName, newMember
members = sessionObj.GetListMembers(ListName)
' imprimir los miembros de la lista...
For Each member In members
print member
Next
' Ahora, suprimir un miembro y volver a imprimir la lista...
MsgBox "Deleting member: " + newMember + " from list"
sessionObj.DeleteListMember ListName, newMember
members = sessionObj.GetListMembers(ListName)
' imprimir los miembros de la lista...
For Each member In members
print member
Next
Perl
# En este ejemplo se da por supuesto que hay, como mínimo, 1 lista dinámica
# en la sesión de acceso a la base de datos actual.
$sessionObj = $entity->GetSession();
$sessionObj->UserLogon("admin","","SAMPL","");
# Obtener una lista de los nombres de Listas dinámicas que existen
# en esta base de datos...
$ListDefNamesREF = $sessionObj->GetListDefNames();
# Para una de las listas, imprimir los miembros...
$ListName = @$ListDefNamesREF[0];
Print $ListName, "\n";
$members = $sessionObj->GetListMembers($ListName);
foreach $member (@$members){
print $member, "\n";
}
# Añadir un miembro y, a continuación, volver a imprimir la lista...
$NewValue = "XYZ";
print "\nAdding member '$NewValue' to list '$ListName'...\n";
$sessionObj->AddListMember($ListName, $NewValue);
$members = $sessionObj->GetListMembers($ListName);
foreach $member (@$members){
print $member, "\n";
}
# Eliminar el elemento que se acaba de añadir...
print "\nDeleting member '$NewValue' from list '$ListName'...\n";
$sessionObj->DeleteListMember($ListName, $NewValue);
# Volver a imprimir la lista
$members = $sessionObj->GetListMembers($ListName);
foreach $member (@$members){
print $member, "\n";
}