Discussion :

[Banana_Ultra]

Bonjour à tous,

Pour commencer c'est mon premier message donc je me souhaite la bienvenue .
Je suis en stage de BTS et je dois pour la première fois créer un programme en VB (pas facile quand vous n'y avez jamais toucher).

Après de nombreuses recherches je me résigne à poster ici, voilà mon problème :

Je souhaiterai obtenir les noms de touts les groupes locaux d'un ordi.
Je pense qu'il devrait fonctionner un peu comme cette méthode là :
http://vb.developpez.com/faq/?page=Reseau#domaine (enfin je pense).

Voilà ça serait vraiment cool de m'aider car je galère vraiment à mort !

Merci d'avance

[Banana_Ultra]

Personne ne sait ?? 8)
Excuser moi d'insister mais c'est assez urgent.

[Catbull]

Qu'est-ce que tu appelles un groupe local?

[Banana_Ultra]

Qu'est-ce que tu appelles un groupe local?

Tout simplement les groupes que tu obtient dans :

Gestion de l'ordinateur Utilisateurs et groupes locaux Groupes

Merci de ton aide

[grafikm_fr]

Tu as le choix:

Méthode raffinée: utiliser des API et des trucs comme ca

Méthode du bourrin:

Code :

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

Shell "cmd /c net localgroup > monfichier.txt"

Tu ouvres le fichier monfichier.txt ensuite, et tu en extirpe les nom des groupes (ils sont precedés par un "*" donc pas de pb pour faire un split...)

C'est bourrin à souhait dans les meilleures traditions de grafikm_fr mais ca marche...

Note: tu peux tenter aussi "net groups" mais si ton ordi fait partie d'un réseau Active Directory ca marchera pas...

Bon courage,
grafikm_fr

[Banana_Ultra]

Merci beaucoup de me lancer sur ces pistes.
Alors déjà mon ordi ne fais pas partie d'un Active Directory, tu pourrais m'en dire plus sur "net groups" ?
Sinon pour la méthode raffinée, tu sais quel API il faut que j'utilise ?

Je vais essayer ta méthode de bourrin quand même ça me plait pas mal 8)

[Banana_Ultra]

C'est encore moi 8)

Bon je me suis lançé dans la méthode bourrin grafikm_fr, donc pas de problème pour créer le fichier texte localgroups.txt, le listing est parfait :

Code :

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

1
2
3
4
5
6
7
Alias de \\STAGE2
 
 
-------------------------------------------------------------------------------
*Administrateurs          *Duplicateurs             *Invit‚s                  
*Op‚rateurs de sauvegarde *Utilisateurs             *Utilisateurs avec pouvoir
La commande s'est termin‚e correctement.

Maintenant il faudrais que je puisse récupérer les chaînes précédés d"une étoile * et que je les liste dans une ListeBox ..... et là je vous avoue je suis un peu perdu

[Lachessis]

Essais ça... Ca marche sous 2000, XP et 2003.

Code :

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

1
2
3
4
5
6
7
8
    strComputer = "."
    Set colGroups = GetObject("WinNT://" & strComputer & "")
    colGroups.Filter = Array("group")
    i = 0
    For Each objGroup In colGroups
        List1.AddItem objGroup.Name, i
        i = i + 1
    Next

NB: List1 est ton listbox sur ta form.

[Banana_Ultra]

Essais ça... Ca marche sous 2000, XP et 2003.

Code :

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

1
2
3
4
5
6
7
8
    strComputer = "."
    Set colGroups = GetObject("WinNT://" & strComputer & "")
    colGroups.Filter = Array("group")
    i = 0
    For Each objGroup In colGroups
        List1.AddItem objGroup.Name, i
        i = i + 1
    Next

NB: List1 est ton listbox sur ta form.

^

Et bah voilà, c'est tout bon :
MERCI A TOUS