Working with DAPIGetSiteInfo Function

The DAPIGetSiteInfo function retrieves the site information for a directory service agent.
The DAPIGetSiteInfo function not need starting DAPI Session.
Some of returned information from this function can be passed as argumentts in DAPI_PARMS strucure. This will be increase speed of establishing DAPI Session.

Declaration:
function DAPIGetSiteInfoA(
                                                dwFlags: DWORD;
                                                pszDSA: PChar;
                                                out ppSiteInfo: PSITE_INFOA
                                                ): PDAPI_EVENTA;stdcall;

Parameters

dwFlags: Input parameter. Reserved for future use. Must be 0.
pszDSA: Input parameter. Points to the name of the directory service agent (Microsoft Exchange Server name) from which to retrieve information. Use Nil for local computer.
ppSiteInfo: Output parameter. Points to a SITE_INFO structure.

Return Values

Nil: No errors were encountered.
or
A pointer to a DAPI_EVENT structure: An error was encountered.

The SITE_INFO structure contains information about a site.

Declaration (in DAPI.pas)

type
PSITE_INFOA = ^SITE_INFOA;

SITE_INFOA = record
    pszCountry : PChar; // Country code
    objServer : NAME_INFOA; // Name information for server
    objSite : NAME_INFOA; // Name information for site containing server
    objEnterprise : NAME_INFOA; // Name information for enterprise containing server
end;

SITE_INFO = SITE_INFOA;
PSITE_INFO = PSITE_INFOA;

Members

pszCountry: Country code. Parsed from X400 value of Site-Proxy-Space attribute on Site-Addressing object.
objServer: Name information for server.
objSite: Name information for site containing server.
objEnterprise: Name information for organization containing server.

With we can retrieve the common name, distinguished name, and display name of objects (Exchange Server, Exchange Site and Exchange Organization).

The EDK for DELPHI 5 Include Class named TSiteInfo:

TSiteInfo = class
private
    ...
    ...
    procedure ReportDapiEvent(DapiEvent: PDAPI_EVENT);stdcall;
    procedure RaiseDAPIError(DapiEvent: PDAPI_EVENT);stdcall;
public
    constructor Create(const DSAName:string);
    destructor Destroy;override;
    function GetInfo: boolean;
    procedure OnError(ErrorNo:ULONG; ErrMessage: String);
    property Items:TStrings read FItems;
    property Exicuted: boolean read FExicuted;
    property Country:String read FCountry;
    property SrvName:String read FServerName;
    property SrvDNString:String read FServerDNString;
    property SrvDisplayName:String read FServerDisplayName;
    property SiteName:String read FSiteName;
    property SiteDNString:String read FSiteDNString;
    property SiteDisplayName:String read FSiteDisplayName;
    property OrganizationName:String read FEnterpriseName;
    property OrganizationDNString:String read FEnterpriseDNString;
    property OrganizationDisplayName:String read FEnterpriseDisplayName;
end;

Sample DELPHI Application for using DAPIGetSiteInfo and DAPI_EVENT structure