The Put Method

The IADs::Put method saves the value for a property for an Active Directory object by name into the property cache. Use IADs::PutEx to save multi-valued properties to the property cache, or to remove a property from an object. These values are not persisted to the underlying directory service until IADs::SetInfo is called.


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

The following code example shows how to use IADs::Put with a single value:


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

The following code example shows how to use IADs::Put with multiple values:


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

The following code example shows how to use IADs::Put with both multiple and single values:


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;
}


 

 

Show: