LISTE DES ORDINATEURS SUR DOMAINE AVEC TNETUSERS

Signaler
Messages postés
4715
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
27 mars 2018
-
Messages postés
4715
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
27 mars 2018
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/36476-liste-des-ordinateurs-sur-domaine-avec-tnetusers

Messages postés
4715
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
27 mars 2018
13
oui et je TriTri ture le source postit..jeune padawane !
..pour le domaine courant :
function GetCurrentProcessEnvVar(const VariableName: string): string;
var
nSize: DWord;
begin
nSize := 0;
nSize := GetEnvironmentVariable(PChar(VariableName), nil, nSize);
if nSize = 0 then
result := ''
else
begin
SetLength(result, nSize - 1);
if GetEnvironmentVariable(PChar(VariableName), PChar(result),nSize)
<> nSize - 1 then
raise
Exception.Create(SysErrorMessage(GetlastError))
end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Showmessage(GetCurrentProcessEnvVar('USERDOMAIN'));
end;
Messages postés
15
Date d'inscription
samedi 15 juin 2002
Statut
Membre
Dernière intervention
11 mars 2006

Bien vu barbu !
Messages postés
4715
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
27 mars 2018
13
je précise qu'il faut indiquer le nom du domaine dans la propriété du composant..ou ajouter un peu de code afin de récupérer le nom du domaine par défaut.

Le test a été effectué sous D7 et windows XP sp1 réseau LAN.