Рабочие группы

← →
Melcor (2003-11-14 02:27) [0]

Народ!!
Как узнать название раб. группы в win98-200-XP ???

Помоги плз. .... срочно нада!!!

Заранее благоадрен...

← →
Almax (2003-11-17 04:34) [1]

Лови код. В 2000 и XP точно работает!!! :)))
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

function NetWkstaGetInfo(servername: PWChar;
level: DWORD;
bufptr: PBYTE): DWORD; stdcall;
external "netapi32.dll";

type WKSTA_INFO_100=record
wki100_platform_id: DWORD;
wki100_computername: PWChar;
wki100_langroup: PWChar;
wki100_ver_major: DWORD;
wki100_ver_minor: DWORD;
end;
PWKSTA_INFO_100=^WKSTA_INFO_100;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
bufptr: PWKSTA_INFO_100;
begin
NetWkstaGetInfo(nil,100,@bufptr);
ShowMessage(bufptr.wki100_langroup);
end;

end.

← →
Melcor (2003-11-17 08:46) [2]

Спасиба!!!! Есть ли еще варианты ? (под 9х проверить нет возможности :) )

> Как узнать название раб. группы в win98-200-XP ???

Своего или удаленного компьютера?

Рабочие группы Найти похожие ветки