Exemple de code pour la modification de l’étendue d’un groupe
L’exemple de code C++ suivant modifie l’étendue d’un groupe.
WCHAR *pwszLDAPPath =
L"LDAP://CN=mygroup,OU=myou,DC=Fabrikam,DC=com";
HRESULT hr;
IADsGroup * pGroup = NULL;
// Initialize COM.
CoInitialize(0);
// Bind to the passed container.
hr = ADsGetObject( pwszLDAPPath, IID_IADsGroup,(void **)&pGroup);
if (SUCCEEDED(hr))
{
VARIANT vValue;
BSTR bsValue = SysAllocString(L"groupType");
VariantInit(&vValue);
// Set a new GroupType Value.
vValue.vt = VT_I4;
vValue.lVal = ADS_GROUP_TYPE_GLOBAL_GROUP ;
hr = pGroup->Put(bsValue,vValue);
hr = pGroup->SetInfo();
pGroup->Release();
pGroup= NULL;
SysFreeString(bsValue);
}
CoUninitialize();
l’exemple de code Visual Basic suivant modifie l’étendue d’un groupe.
Dim x as IADs
On Error GoTo CleanUp
Set x = GetObject("LDAP://CN=mygroup,OU=myou,DC=Fabrikam,DC=com")
x.Put "groupType",
ADS_GROUP_TYPE_UNIVERSAL_GROUP|ADS_GROUP_TYPE_SECURITY_ENABLED
Exit Sub
CleanUp:
MsgBox("An error has occurred.")
x = Nothing