LISTE DES ORDINATEURS SUR DOMAINE AVEC TNETUSERS
cs_cantador
Messages postés
4720
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
31 juillet 2021
-
10 mars 2006 à 19:58
cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 - 12 mars 2006 à 12:58
cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 - 12 mars 2006 à 12:58
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
https://codes-sources.commentcamarche.net/source/36476-liste-des-ordinateurs-sur-domaine-avec-tnetusers
12 mars 2006 à 12:58
..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;
11 mars 2006 à 22:52
10 mars 2006 à 19:58
Le test a été effectué sous D7 et windows XP sp1 réseau LAN.