Trouver le nom du groupe de travail ???
Résolu
dmn666
Messages postés
2
Date d'inscription
vendredi 7 novembre 2003
Statut
Membre
Dernière intervention
22 juillet 2005
-
21 juil. 2005 à 19:31
dmn666 Messages postés 2 Date d'inscription vendredi 7 novembre 2003 Statut Membre Dernière intervention 22 juillet 2005 - 22 juil. 2005 à 19:16
dmn666 Messages postés 2 Date d'inscription vendredi 7 novembre 2003 Statut Membre Dernière intervention 22 juillet 2005 - 22 juil. 2005 à 19:16
A voir également:
- Netwkstagetinfo
- La fonction de groupe ne porte pas sur un groupe simple ✓ - Forum SQL
- Test nom de domaine - Forum PHP
- Errordomain=nscocoaerrordomain&errormessage=impossible de trouver le raccourci spécifié.&errorcode=4 - Forum ASP.NET
- Problème avec web config - Forum ASP.NET
- Trouver nom instance sql server - Forum VB.NET
2 réponses
jinh68
Messages postés
215
Date d'inscription
mardi 29 juillet 2003
Statut
Membre
Dernière intervention
1 septembre 2006
22 juil. 2005 à 11:16
22 juil. 2005 à 11:16
Salut, après quelques misères, j'ai enfin réussi à avoir un truc :
type
PWkstaInfo100 = ^TWkstaInfo100;
_WKSTA_INFO_100 = record
wki100_platform_id: DWORD;
wki100_computername: LPWSTR;
wki100_langroup: LPWSTR;
wki100_ver_major: DWORD;
wki100_ver_minor: DWORD;
end;
TWkstaInfo100 = _WKSTA_INFO_100;
WKSTA_INFO_100 = _WKSTA_INFO_100;
type NET_API_STATUS = DWORD;
const NERR_SUCCESS = 0;
netapi32lib = 'netapi32.dll';
function NetWkstaGetInfo(servername: LPWSTR; level: DWORD;
bufptr: Pointer): NET_API_STATUS; stdcall;
function NetWkstaGetInfo; external netapi32lib name 'NetWkstaGetInfo';
function GetWorkGroupName: string;
var
Form1: TForm1;
implementation
{$R *.DFM}
function GetWorkGroupName: string;
var wksta_info: PWkstaInfo100;
s:string;
begin
result := '';
if (NetwkstaGetInfo(nil, 100, @wksta_info) = NERR_SUCCESS) then
result := WideCharToString(wksta_info^.wki100_langroup);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetWorkGroupName);
end;
Je me suis inspiré de la MSDN, j'ai défini les types pour que
tu n'aies pas besoin de LM.pas traduit par la communauté JEDIProject.
@+
j!nH
type
PWkstaInfo100 = ^TWkstaInfo100;
_WKSTA_INFO_100 = record
wki100_platform_id: DWORD;
wki100_computername: LPWSTR;
wki100_langroup: LPWSTR;
wki100_ver_major: DWORD;
wki100_ver_minor: DWORD;
end;
TWkstaInfo100 = _WKSTA_INFO_100;
WKSTA_INFO_100 = _WKSTA_INFO_100;
type NET_API_STATUS = DWORD;
const NERR_SUCCESS = 0;
netapi32lib = 'netapi32.dll';
function NetWkstaGetInfo(servername: LPWSTR; level: DWORD;
bufptr: Pointer): NET_API_STATUS; stdcall;
function NetWkstaGetInfo; external netapi32lib name 'NetWkstaGetInfo';
function GetWorkGroupName: string;
var
Form1: TForm1;
implementation
{$R *.DFM}
function GetWorkGroupName: string;
var wksta_info: PWkstaInfo100;
s:string;
begin
result := '';
if (NetwkstaGetInfo(nil, 100, @wksta_info) = NERR_SUCCESS) then
result := WideCharToString(wksta_info^.wki100_langroup);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetWorkGroupName);
end;
Je me suis inspiré de la MSDN, j'ai défini les types pour que
tu n'aies pas besoin de LM.pas traduit par la communauté JEDIProject.
@+
j!nH
dmn666
Messages postés
2
Date d'inscription
vendredi 7 novembre 2003
Statut
Membre
Dernière intervention
22 juillet 2005
22 juil. 2005 à 19:16
22 juil. 2005 à 19:16
Salut j!nH,
J'ai testé ton code en deux coup de copier-coller et c'est parfais.
Je le décortiquerais quand il feras plus frais... ;-)
En attandant MERCI beaucoup pour ton aide.
@++
J'ai testé ton code en deux coup de copier-coller et c'est parfais.
Je le décortiquerais quand il feras plus frais... ;-)
En attandant MERCI beaucoup pour ton aide.
@++
