Méthode Put
La méthode IADs::P ut enregistre la valeur d’une propriété pour un objet Active Directory par nom dans le cache de propriétés. Utilisez IADs::P utEx pour enregistrer des propriétés à valeurs multiples dans le cache de propriétés ou pour supprimer une propriété d’un objet. Ces valeurs ne sont pas conservées dans le service d’annuaire sous-jacent tant que IADs::SetInfo n’est pas appelé.
Dim Namespace As IADsOpenDSObject
Dim User As IADsUser
Dim NewName As Variant
Dim sUserName As String
Dim sPassword As String
On Error GoTo CleanUp
Set Namespace = GetObject("LDAP:")
' Insert code to safely get the user name and password
Set User = Namespace.OpenDSObject("LDAP://MyMachine/CN=Administrator,CN=Users,DC=MyDomain,DC=Fabrikam,DC=COM", sUserName, sPassword, ADS_SECURE_AUTHENTICATION)
NewName = InputBox("Enter a new name:")
' Set using IADs::PutMethod
User.Put "FullName", NewName
User.SetInfo
Exit Sub
CleanUp:
Set IADsOpenDSObject = Nothing
Set IADsUser = Nothing
End Sub
L’exemple de code suivant montre comment utiliser IADs::P ut avec une seule valeur :
Dim x As IADs
Dim sUserName As String
Dim sFull As String
On Error GoTo CleanUp
sUserName = InputBox("Enter your user name:")
Set x = GetObject("LDAP://CN="& sUserName &",CN=Users,DC=Fabrikam, DC=Com")
sFull = InputBox ("Enter your full name:")
x.Put "name", sFull
' Commit to the directory.
x.SetInfo
Exit Sub
CleanUp:
MsgBox ("An error has occurred. " & Err.Description)
Set x = Nothing
L’exemple de code suivant montre comment utiliser IADs::P ut avec plusieurs valeurs :
Dim x As IADs
Dim sFirst As String
Dim sLast As String
Dim sUsername As String
On Error GoTo CleanUp
sUsername = InputBox("User name:")
Set x = GetObject("LDAP://CN=" & sUsername & ", CN=Users,DC=Fabrikam, DC=Com")
sFirst = InputBox("Enter your first name:")
sLast = InputBox("Enter your last name:")
x.Put "givenName", sFirst
x.Put "sn", sLast
'Commit to the directory
x.SetInfo
Exit Sub
CleanUp:
MsgBox ("An error has occurred. " & Err.Description)
Set x = Nothing
L’exemple de code suivant montre comment utiliser IADs::P ut avec des valeurs multiples et uniques :
int main(int argc, char* argv[], LPWSTR pszADsPath)
{
HRESULT hr;
IADs *pADs=NULL;
CoInitialize(NULL);
hr = ADsGetObject(pszADsPath,
IID_IADs,
(void**) &pADs );
if (!SUCCEEDED(hr) )
{
return hr;
}
VARIANT var;
// Using Put with a single value for the first name
VariantInit(&var);
V_BSTR(&var) = SysAllocString(L"Janet");
V_VT(&var) = VT_BSTR;
hr = pADs->Put( L"givenName", var );
// Using Put with a single value for the last name
VariantClear(&var);
V_BSTR(&var) = SysAllocString(L"Johns");
V_VT(&var) = VT_BSTR;
hr = pADs->Put( L"sn", var );
VariantClear(&var);
// Using Put with multiple values for other telephones
LPWSTR pszPhones[] = { L"425 844 1234", L"425 924 4321" };
DWORD dwNumber = sizeof( pszPhones ) /sizeof(LPWSTR);
hr = ADsBuildVarArrayStr( pszPhones, dwNumber, &var );
hr = pADs->Put( L"otherTelephone", var );
VariantClear(&var);
hr = pADs->SetInfo();
pADs->Release();
if (!SUCCEEDED(hr) )
{
return hr;
}
CoUninitialize();
return 0;
}