Método IADs::GetInfo (iads.h)
El método IADs::GetInfo se carga en los valores de caché de propiedades de las propiedades admitidas de este objeto ADSI desde el almacén de directorios subyacente.
Sintaxis
HRESULT GetInfo();
Valor devuelto
Este método admite los valores devueltos estándar, así como los siguientes.
Para obtener más información, consulta Códigos de error adsi.
Comentarios
Se llama a la función IADs::GetInfo para inicializar o actualizar la memoria caché de propiedades. Esto es similar a obtener esos valores de propiedad de las propiedades admitidas del almacén de directorios subyacente.
Una caché de propiedades no inicializada no está necesariamente vacía. Llame a IADs::P ut o IADs::P utEx para colocar un valor en la caché de propiedades para cualquier propiedad admitida y la caché permanece sin inicializar.
Una llamada explícita a IADs::GetInfo carga o vuelve a cargar toda la memoria caché de propiedades, sobrescribiendo todos los valores de propiedad almacenados en caché. Pero una llamada implícita solo carga esas propiedades no establecidas en la memoria caché. Llame siempre a IADs::GetInfo explícitamente para recuperar los valores de propiedad más actuales del objeto ADSI.
Dado que una llamada explícita a IADs::GetInfo sobrescribe todos los valores de la memoria caché de propiedades, se perderá cualquier cambio realizado en la memoria caché si no se invocó un IADs::SetInfo antes de IADs::GetInfo.
Para un objeto contenedor ADSI, IADs::GetInfo almacena en caché solo los valores de propiedad del contenedor, pero no los de los objetos secundarios.
Es importante destacar las diferencias entre los métodos IADs::Get e IADs::GetInfo . El anterior devuelve valores de una propiedad determinada de la caché de propiedades, mientras que este último carga todos los valores de propiedad admitidos en la caché de propiedades desde el almacén de directorios subyacente.
En el ejemplo de código siguiente se muestran las diferencias entre los métodos IADs::Get e IADs::GetInfo .
Set x = GetObject("LDAP://CN=Administrator,CN=Users,DC=Fabrikam,DC=com")
' The first IADs::Get calls
' GetInfo implicitly.
Debug.Print x.Get("homePhone") ' Assume value is '999-9999'.
x.Put "homePhone", "868-4449" ' Put with no commit(SetInfo)
Debug.Print x.Get("homePhone") ' Value='868-4449' from the cache.
x.GetInfo ' Refresh the cache, get the data
' from the directory.
Debug.Print x.Get("homePhone") ' Value will be '999-9999'.
Para aumentar el rendimiento, llame explícitamente a IADs::GetInfoEx para actualizar propiedades específicas. Además, se debe llamar a IADs::GetInfoEx en lugar de IADs::GetInfo si se debe tener acceso a los valores de propiedad operativa del objeto. Esta función sobrescribe los valores almacenados en caché previamente de las propiedades especificadas.
Ejemplos
En el ejemplo de código siguiente se usa un objeto de equipo servido por el proveedor winNT. Las propiedades admitidas incluyen Owner ("Owner"), OperatingSystem ("Windows NT"), OperatingSystemVersion ("4.0"), Division ("Fabrikam"), ProcessorCount ("Uniprococessor Free"), Processor ("x86 Family 6 Model 5 Stepping 1"). Los valores predeterminados se muestran entre paréntesis.
Dim pList As IADsPropertyList
Dim pEntry As IADsPropertyEntry
Dim pValue As IADsPropertyValue
On Error GoTo Cleanup
Set pList = GetObject("WinNT://localhost,computer")
' pList now represents an uninitialized empty property cache.
pList.Put "Owner", "JeffSmith" ' Property cache remains uninitialized,
' but with one property value.
count = pList.PropertyCount ' count = 1.
MsgBox "Number of property found in the property cache: " & count
v = pList.Get("Division") ' pList.GetInfo is called implicitly
ShowPropertyCache ' This will display "JeffSmith" for Owner,
' "Fabrikam" for Division, "Windows NT" for
' OperatingSystem, and so on.
pList.GetInfo ' Refreshes the entire cache, overwriting
' "JeffSmith" for the Owner property.
ShowPropertyCache ' This will display "Owner" for Owner,
' "Fabrikam" for Division, "Windows NT" for
' OperatingSystem, and so on.
Cleanup:
If (Err.Number<>0) Then
MsgBox("An error has occurred. " & Err.Number)
End If
Set pList = Nothing
Set pEntry = Nothing
Set pValue = Nothing
Private Sub ShowPropertyCache()
For I = 0 To pList.PropertyCount-1
Set pEntry = pList.Item(I)
Debug.Print pEntry.Name
For Each v In pEntry.Values
Set pValue = v
Debug.Print " " & pvalue.CaseIgnoreString
Next
Next
End Sub
El ejemplo de código siguiente es un script del lado cliente que ilustra el efecto del método IADs::GetInfo . Las propiedades admitidas incluyen Owner ("Owner"), OperatingSystem ("Windows NT"), OperatingSystemVersion ("4.0"), Division ("Fabrikam"), ProcessorCount ("Uniprococessor Free"), Processor ("x86 Family 6 Model 5 Stepping 1"). Los valores predeterminados se muestran entre paréntesis.
<html>
<body>
<table>
<tr>
<td>Owner:</td>
<td><input type=text name=txtOwner></td>
</tr>
<tr>
<td>Operating System:</td>
<td><input type=text name=txtOS></td>
</tr>
<tr>
<td>Operating System Version:</td>
<td><input type=text name=txtOSV></td>
</tr>
<tr>
<td>Division:</td>
<td><input type=text name=txtDiv></td>
</tr>
</table>
<input type=button onClick = "showGetInfo()">
</body>
<script language="vbscript">
Dim pList
sub showGetInfo()
Set oFac = CreateObject("ADsFactory")
path = "WinNT://Fabrikam"
ADS_SECURE_AUTH = 1
On Error Resume Next
' Browser security requires enabled/Prompt for "Initialize and
' script ActiveX Controls not marked as safe"
Set pList=oFac.OpenDSObject(path,vbNullString,vbNullString,ADS_SECURE_AUTH)
' pList now represents an uninitialized empty property cache
pList.Put "Owner" "JeffSmith" ' Property cache remain uninitialized
' but with one property value.
v = pList.Get("Division") ' pList.GetInfo is called implicitly
ShowPropertyCache ' This will display "JeffSmith" for Owner,
' "Fabrikam" for Division, "Windows NT"
' for OperatingSystem, and so on.
pList.GetInfo ' Refreshes entire cache, overwriting
' "JeffSmith" for the Owner property.
ShowPropertyCache ' This will display "Owner" for Owner,
' "Fabrikam" for Division, "Windows NT"
' for OperatingSystem, and so on.
end sub
sub ShowPropertyCache()
txtOwner.value = pList.Get("Owner")
txtDiv.value = pList.Get("Division")
txtOS.Value = pList.Get("OperatingSystem")
txtOSV.value = pList.Get("OperatingSystemVersion")
end sub
</script>
</html>
En el ejemplo de código siguiente se resalta el efecto de Get y GetInfo. Para mayor brevedad, se omite la comprobación de errores.
IADs *pADs;
IADsPropertyList *pList;
BSTR bstr;
VARIANT var;
HRESULT hr;
hr = ADsGetObject(L"WinNT://somecomputer,computer",
IID_IADsPropertyList,
(void**)&pList);
if(!(hr==S_OK)){return hr;}
VariantInit(&var);
// Get the number of property entries, should be zero.
long pCount;
hr = pList->get_PropertyCount(&pCount);
printf(" prop count = %d\n",pCount); // 0 for empty cache.
hr = pList->QueryInterface(IID_IADs, (void**)&pADs);
// Set "Owner=JeffSmith" in the property cache.
V_BSTR(&var) = SysAllocString(L"JeffSmith");
V_VT(&var) = VT_BSTR;
hr = pADs->Put(CComBSTR("Owner"), var);
VariantClear(&var);
// This time the number of property entries should read one (1).
hr = pList->get_PropertyCount(&pCount);
printf(" prop count = %d\n",pCount); // 1 for what was set.
// The following Get invokes GetInfo implicitly, but
// the cache (that is, "Owner=JeffSmith") remains intact.
hr = pADs->Get(CComBSTR("Division"), &var);
printf(" division = %S\n", V_BSTR(&var));
VariantClear(&var);
hr = pADs->Get(CComBSTR("Owner"), &var);
printf(" owner = %S\n", V_BSTR(&var)); // Owner = JeffSmith
VariantClear(&var);
// The following GetInfo call refreshes the entire prop cache.
// Now Owner is no longer "JeffSmith", but the value stored in the
// persistent store, for example, "BenSmith".
hr = pADs->GetInfo();
hr = pADs->Get(CComBSTR("Owner"), &var);
printf(" owner = %S\n", V_BSTR(&var)); // Owner = BenSmith
VariantClear(&var);
// ...
if(pADs)
pADs->Release();
if(pList)
pList->Release();
Requisitos
| Cliente mínimo compatible | Windows Vista |
| Servidor mínimo compatible | Windows Server 2008 |
| Plataforma de destino | Windows |
| Encabezado | iads.h |
| Archivo DLL | Activeds.dll |
Consulte también
Comentarios
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea: https://aka.ms/ContentUserFeedback.
Enviar y ver comentarios de