pwcDomain: PWChar = nil): Boolean;

var

  NetAPIStatus: DWORD;

  dwLevel: DWORD;

  pReturnSvrInfo: Pointer;

  dwPrefMaxLen: DWORD;

  dwEntriesRead: DWORD;

  dwTotalEntries: DWORD;

  dwServerType: DWORD;

  dwResumeHandle: PDWORD;

  pCurSvrInfo: PServerInfo100;

  i, j: Integer;

begin

  Result := True;

  try

    dwLevel := 100;

    pReturnSvrInfo := nil;

    dwPrefMaxLen := MAX_PREFERRED_LENGTH;

    dwEntriesRead := 0;

    dwTotalEntries := 0;

    dwServerType := SV_TYPE_SQLSERVER;    //服务器类型

    dwResumeHandle := nil;

    NetApiBufferAllocate(SizeOf(pReturnSvrInfo), pReturnSvrInfo);

    try

      NetAPIStatus := NetServerEnum(pwcServerName, dwLevel, pReturnSvrInfo,

        dwPrefMaxLen, dwEntriesRead, dwTotalEntries, dwServerType, pwcDomain,

        dwResumeHandle);

      if ((NetAPIStatus = NERR_Success) or (NetAPIStatus = ERROR_MORE_DATA)) and

        (pReturnSvrInfo <> nil) then

      begin

上一页  [1] [2] [3] [4] [5] [6] [7] [8]  下一页