먼저 말머리가 생략되어 제목과 관련한 정보라고 생각하셨던 분들께

양해의 말씀 드립니다.



원하는 결과는 아니지만,

김영대씨께서 작성하신 Default Domain Name을 얻는 함수에서

레지스트리의 경로를 아래의 예와같이 변경하였습니다.



// Get Default Domain Name

function GetDefaultDomain: String;

var

MyRegistry: TRegistry;

begin

MyRegistry := TRegistry.Create;

with MyRegistry do

begin

RootKey := HKEY_LOCAL_MACHINE;

// OpenKey('SOFTWAREMicrosoftWindows NTCurrentVersionWinlogon',FALSE);

// --> Work Group명을 구함.



// 아래를 보면

// Win95의 경우

OpenKey('SystemCurrentControlSetServicesVxDMSTCP',FALSE);



// WinNT의 경우

OpenKey('SystemControlSet001ServicesTcpipParameters',FALSE);



// 참조는 아래와 같이 하였습니다.

Result := 'Domain : ' + MyRegistry.ReadString('Domain') + #13#10 +

'HostName : ' + MyRegistry.ReadString('HostName');

CloseKey;

Free;

end;

end;



제가 원하던 것은 인터넷을 경유하여 원격지에 있는 실제 도메인 서버로부터

응답을 받아 그 내용을 참조하고자하는 것이였는데,

API함수와 관련한 지식이 모자란지라..

위의 예보다 더욱 발전된 모델이 있다면,

한 말씀 부탁드립니다.



수고하시고,

즐거운 하루되십시오.





김종섭 wrote:

> 현재 로그온한 도메인 명을 구하는 예제는 잘 참고하였습니다.

>

> FQDN을 구하는 방법을 알고싶습니다.

>

> #현재 처리 개요#

> 1. CreateProcess()를 이용하여

> 2. nslookup.exe를 실행한다음

> 3. 화면의 값을 화일로 저장한 후

> (stdout의 예 :

> 도메인명 : domain.server.co.kr

> IP : 999.999.999.999 )

>

> 4. 이 파일로부터 FQDN(도메인명)을 얻는다.

>

> 질문1) 위의 처리를 api 함수로 바로 처리할 수는 없는지요?

> 질문2) 만일 api 함수로 처리가 곤란하다면

> 위의 처리에서 현재 파일로의 리다이렉션이 잘 되지 않는데요,

> 리다이렉션의 구현 방법을 알려주십시오.

>

> 그럼 즐거운 하루되시고,

> 답변을 기다리겠습니다.

>