Рабочая группа (workgroup)

[-=zuk=-]

Необходимо зная IP выдрать имя рабочей группы. Вроде ето надо выдирать с нетбуса, дайте хотябы правельное русло!

 

[Barmutik]

Если для локального компа то можно

try 


const 
WorkKey='System\CurrentControl­Set\Services\VxD\VNETSUP'; 
LogKey='System\CurrentControlS­et\Services\MSNP32\NetworkProv­ider'; 


procedure TForm1.FormCreate(Sender: TObject); 
var 
reg : TRegistry; 
domain, log : string; 
begin 
reg:=TRegistry.create; 
reg.RootKey:=HKEY_LOCAL_MACHIN­E; 
if reg.KeyExists(WorkKey) then 
 begin 
 if reg.OpenKey(WorkKey,false) then 
   begin 
   domain:=Reg.ReadString('Workgr­oup'); 
   Label3.Caption:= domain; 
   reg.CloseKey; 
   end; 
 end; 
if reg.KeyExists(LogKey) then 
 begin 
 if reg.OpenKey(Log,false) then 
   begin 
   log:=Reg.ReadString('Authentic­atingAgent'); 
   Label4.Caption:= log; 
   reg.CloseKey; 
   end; 
 end; 
reg.Free; 
end;

 

[Barmutik]

Более правильно так:

procedure TForm1.Button1Click(Sender: TObject); 
var 
Info: PWkStaInfo100; 
begin 
if NetWkstaGetInfo(nil, 100, Pointer(Info)) = NERR_SUCCESS then 
try 
 ShowMessage(string(WideString(­Info^.wki100_langroup))); 
finally 
 NetApiBufferFree(Info); 
end; 
end;