Discussion :

[Marie_]

Bonjour,

Ce n'est pas du tout le genre de chose que je cherche habituellement à programmer alors je ne connais pas bien les solutions possibles.

Après avoit tester une solution dont le départ était

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set objNetwork = CreateObject("Wscript.Network")

Je me suis décidée pour utiliser un exemple de Microsoft qui marche bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub Ordinateurs()
     Dim Domaine As IADsDomain
     Dim Ordinateur As IADsComputer
     Dim strDomaine As String
     Dim iPointeurSouris As Integer
 
     'Accepter le nom de domaine
     strDomaine = "mondomaine"
 
     'Utiliser les services d'annuaire WinNT
     strDomaine = "WinNT://" & strDomaine
 
     'Initialiser l'interface utilisateur
     'List1.Clear
     'iPointeurSouris = Me.MousePointer
     'Me.MousePointer = vbHourglass
 
     'Créer l'objet Domaine
     Set Domaine = GetObject(strDomaine)
 
    'Rechercher les ordinateurs dans le domaine
     Domaine.Filter = Array("Computer")
 
     For Each Ordinateur In Domaine
        Nom = Ordinateur.Name
        Commentaire = Ordinateur.?????
        MsgBox "Nom : " & Nom & " - Commentaire : " & Commentaire 
     Next Ordinateur
 
    'Nettoyer
     'iPointeurSouris = Me.MousePointer
     Set Ordinateur = Nothing
     Set Domaine = Nothing
 
End Sub

Je veux récupérer pour chaque ordis du domaine, le contenu de "Commentaire" car c'est là que ces messieurs ont écrit le nom de l'utilisateur auquel l'ordi est attribué.
Ce champ est visible dans les propriétés de l'ordi depuis l'arborescence du domaine (Tout le réseau\Réseau\Domaine, clic-droit sur un des ordis, propriétés).

Comment le récupérer ? Il ne semble pas exiter dans les choix possibles de l'objet IADsComputer...

Merci d'avance de votre aide.

EDIT : Je dis peut-être des bêtises mais je peux peut-être fonctionner à l'envers et parcourir les utilisateurs connectés et récupérer le nom de la machine sur laquelle ils sont connectés ?

[DarkVader]

Bonjour,
WMI devrait te permettre l'accès à ces informations -
voir par exemple http://www.dotnetframework.de/script...ct&C_Suchwort=

[Delbeke]

Une contribution très interresante corcernant WMI

http://www.developpez.net/forums/d53...-p-skin-perso/

[Marie_]

Merci a vous deux.

Je regarde ça et je vous tiens au courant si j'ai des soucis.

(Bon... Avec les fêtes et le reste de mon travail je vais pas être rapide.. )