문제
Windows API를 사용하여 내 네트워크의 도메인 목록을 어떻게 얻을 수 있습니까?
해결책
일부 LDAP 쿼리를 사용해야 합니다.
다음은 이전 스크립트에서 사용한 일부 코드입니다(이 코드는 인터넷 어딘가에서 가져온 것이며 저작권 표시에 남겨 두었습니다).
' This VBScript code gets the list of the domains contained in the
' forest that the user running the script is logged into
' ---------------------------------------------------------------
' From the book "Active Directory Cookbook" by Robbie Allen
' Publisher: O'Reilly and Associates
' ISBN: 0-596-00466-4
' Book web site: http://rallenhome.com/books/adcookbook/code.html
' ---------------------------------------------------------------
set objRootDSE = GetObject("LDAP://RootDSE")
strADsPath = "<GC://" & objRootDSE.Get("rootDomainNamingContext") & ">;"
strFilter = "(objectcategory=domainDNS);"
strAttrs = "name;"
strScope = "SubTree"
set objConn = CreateObject("ADODB.Connection")
objConn.Provider = "ADsDSOObject"
objConn.Open "Active Directory Provider"
set objRS = objConn.Execute(strADsPath & strFilter & strAttrs & strScope)
objRS.MoveFirst
while Not objRS.EOF
Wscript.Echo objRS.Fields(0).Value
objRS.MoveNext
wend
다른 팁
내 질문에 대답했습니다.
사용 NetServerEnum 함수, 전달 SV_TYPE_DOMAIN_ENUM
"servertype" 인수에 대한 상수입니다.
Delphi에서 코드는 다음과 같습니다.
<snip>
type
NET_API_STATUS = DWORD;
PSERVER_INFO_100 = ^SERVER_INFO_100;
SERVER_INFO_100 = packed record
sv100_platform_id : DWORD;
sv100_name : PWideChar;
end;
function NetServerEnum( //get a list of pcs on the network (same as DOS cmd "net view")
const servername : PWideChar;
const level : DWORD;
const bufptr : Pointer;
const prefmaxlen : DWORD;
const entriesread : PDWORD;
const totalentries : PDWORD;
const servertype : DWORD;
const domain : PWideChar;
const resume_handle : PDWORD
) : NET_API_STATUS; stdcall; external 'netapi32.dll';
function NetApiBufferFree( //memory mgmt routine
const Buffer : Pointer
) : NET_API_STATUS; stdcall; external 'netapi32.dll';
const
MAX_PREFERRED_LENGTH = DWORD(-1);
NERR_Success = 0;
SV_TYPE_ALL = $FFFFFFFF;
SV_TYPE_DOMAIN_ENUM = $80000000;
function TNetwork.ComputersInDomain: TStringList;
var
pBuffer : PSERVER_INFO_100;
pWork : PSERVER_INFO_100;
dwEntriesRead : DWORD;
dwTotalEntries : DWORD;
i : integer;
dwResult : NET_API_STATUS;
begin
Result := TStringList.Create;
Result.Clear;
dwResult := NetServerEnum(nil,100,@pBuffer,MAX_PREFERRED_LENGTH,
@dwEntriesRead,@dwTotalEntries,SV_TYPE_DOMAIN_ENUM,
PWideChar(FDomainName),nil);
if dwResult = NERR_SUCCESS then begin
try
pWork := pBuffer;
for i := 1 to dwEntriesRead do begin
Result.Add(pWork.sv100_name);
inc(pWork);
end; //for i
finally
NetApiBufferFree(pBuffer);
end; //try-finally
end //if no error
else begin
raise Exception.Create('Error while retrieving computer list from domain ' +
FDomainName + #13#10 +
SysErrorMessage(dwResult));
end;
end;
<snip>
제휴하지 않습니다 StackOverflow