Liste des ordinateurs sur domaine avec tnetusers
Soyez le premier à donner votre avis sur cette source.
Vue 5 876 fois - Téléchargée 1 073 fois
Description
Un tout petit bout de code permettant grace au composant TNetUsers de lister très rapidement la liste des machines sur un domaine.
le composant est fourni dans le zip.
le composant est fourni dans le zip.
Codes Sources
A voir également
- Liste des ordinateurs sur domaine avec tnetusers
- Visual Basic / VB.NET : Lister les pcs du domaine - CodeS SourceS - Guide
- Visual Basic / VB.NET : Lister les ordinateurs présent sur votre domaine vb2005 - CodeS Sourc - Guide
- Obtenir la liste des pc sur un domaine. - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
- Visual Basic / VB.NET : Information ip et liste des pc du réseau - CodeS SourceS - Guide
- Visual Basic / VB.NET : Active directory : liste les pc du réseau - CodeS SourceS - Guide
- Messages postés
-
4719
- Date d'inscription
- dimanche 26 février 2006
- Statut
- Modérateur
- Dernière intervention
- 1 février 2021
14..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
-
4719
- Date d'inscription
- dimanche 26 février 2006
- Statut
- Modérateur
- Dernière intervention
- 1 février 2021
14Le test a été effectué sous D7 et windows XP sp1 réseau LAN.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.