PureBasic Forums - English

Code: Select all

IADs *pobjADs;    // Pointer to object interface
BSTR bstrName;    // String with object name    
HRESULT hResult;  // COM result code

    // String to directory service
    WCHAR *pstrADsPath = "LDAP://ldap.itd.umich.edu/O=University of Michigan,C=us";
    // Initalize COM
    CoInitialize ( NULL );

    // Get pointer to object's IADs interface
    hResult = ADsGetObject( pstrADsPath, IID_IADs, (void**) &pobjADs);

    // Check for success
    if ( SUCCEEDED ( hResult ) )
    {
    // Get the Name property from the object
    hResult = pobjADs->get_Name ( &bstrName );

        // Check for success
	if ( SUCCEEDED ( hResult ) )
	{            
	// Display Name property            
	// (must use wide strings when working with COM)
	wcout << "The name of the object found is: << bstrName << endl;
	}        
	else
	{
	wcerr << L"Error occured while getting the object name: " << hResult << endl;
	}
	// When finished with the interface, call the
	// Release method to free object
	pobjADs->Release ();
	}
	else
	{
	wcerr << L"Error occured while getting the object: "  << hResult << endl;
	}

    // Unload COM
    CoUninitialize ();

    // Return the result of any failures
    return hResult;

Code: Select all

EnableExplicit

DataSection

  CompilerIf Defined (IID_IUnknown, #PB_Constant) = #False
    IID_IUnknown:
    Data.l $00000000
    Data.w $0000,$0000
    Data.b $C0,$00,$00,$00,$00,$00,$00,$46
  CompilerEndIf
  #IID_IUnknown = "00000000-0000-0000-C000-000000000046"

  CompilerIf Defined (CLSID_ACTIVEDS, #PB_Constant) = #False
    CLSID_ACTIVEDS:
    Data.l $97D25DB0
    Data.w $363,$11CF
    Data.b $AB,$C4,$2,$60,$8C,$9E,$75,$53
  CompilerEndIf
  #CLSID_ACTIVEDS = "97D25DB0-0363-11CF-ABC4-02608C9E7553"

  CompilerIf Defined (IID_IADs, #PB_Constant) = #False
    IID_IADs:
    Data.l $FD8256D0
    Data.w $FD15,$11CE
    Data.b $AB,$C4,$2,$60,$8C,$9E,$75,$53
  CompilerEndIf
  #IID_IADs = "FD8256D0-FD15-11CE-ABC4-02608C9E7553"

EndDataSection


Define hr.l
Define ADsPath.s
Define *oUnk.IUnknown
Define *oADs.IADs
Define *BStr

CoInitialize_ (0)

;Reference to Object
ADsPath = "LDAP://ldap.itd.umich.edu/O=University of Michigan,C=us"
hr = ADsGetObject_ (@ADsPath, ?CLSID_ACTIVEDS, @*oUnk)
If hr : MessageRequester (Str(hr), "Connecting Error") : End : EndIf

;Reference to Standardinterface
hr = *oUnk\QueryInterface (?IID_IADs, @*oADs)
If hr : MessageRequester (Str(hr), "Standardinterface not found") : End : EndIf
*oUnk\Release()

;Read and Display the Name
*oADs\get_Name (@*BStr)
Debug "Name: " + PeekS (*BStr)
SysFreeString_ (*BStr)

;Free Objects
*oADs\Release() : *oADs = 0

CoUninitialize_()

Code: Select all

;.....
;.....
;.....


Define hr.l
Define ADsPath.s
Define *oADs.IADs
Define *BStr

CoInitialize_ (0)

;Reference to Object
ADsPath = "LDAP://ldap.itd.umich.edu/O=University of Michigan,C=us"
hr = ADsGetObject_ (@ADsPath, ?IID_IADs, @*oADs)
If hr : MessageRequester (Str(hr), "Connecting Error") : End : EndIf

;Read and Display the Name
*oADs\get_Name (@*BStr)
Debug "Name: " + PeekS (*BStr)
SysFreeString_ (*BStr)

;Free Objects
*oADs\Release() : *oADs = 0

CoUninitialize_()