Récupéré le Groupe de travail d'un ordinateur .NET [Résolu]

Nbiss 18 Messages postés samedi 6 septembre 2003Date d'inscription 27 avril 2008 Dernière intervention - 26 avril 2008 à 21:51 - Dernière réponse : Nbiss 18 Messages postés samedi 6 septembre 2003Date d'inscription 27 avril 2008 Dernière intervention
- 27 avril 2008 à 17:54
Bonjour,

Je voudrai juste récupérer le Groupe de travail de mon ordinateur.

J'ai déjà réussi a lister le groupe de travail  :

        Dim PC As String
        Dim PcList As String()

        PcList = GetDomList("matrix")
        For Each PC In PcList
            ComboBox1.Items.Add(PC)
        Next
     
Seul problème je suis obligé de mettre le nom du groupe de travail.
Es-ce qu'il y a une solution en VB NET pour récupéré le groupe de travail ou sinon lister les ordinateurs du réseau d'une autre façon ?

Merci beaucoup pour toute vos futurs réponses.
    

N-BISS
Afficher la suite 

Votre réponse

5 réponses

Meilleure réponse
Nbiss 18 Messages postés samedi 6 septembre 2003Date d'inscription 27 avril 2008 Dernière intervention - 27 avril 2008 à 17:54
3
Merci
J'ai trouvé une solution pour avoir le groupe de travail (workgroup), je vous le donne ça peux toujours être utils :

'Pour créer le fichier où l'on va récupérer le workgroup
 Function WorkGroupMSDOS(ByVal ip As String, ByVal msg As String)
       Dim ProcessCMD As New ProcessStartInfo("cmd.exe", "/C nbtstat -A " & ip & ">wrkgp.txt")
        ProcessCMD.WindowStyle = System.Diagnostics.ProcessWindowStyle.Hidden
        System.Diagnostics.Process.Start(ProcessCMD)
        Return MessageBox.Show(msg, "Message information !", MessageBoxButtons.OK, MessageBoxIcon.Information)
  End Function

'Ensuite j'ai récupéré la ligne que j'ai besoin
Function WorkGroup()
        Dim Lignes() As String = File.ReadAllLines("wrkgp.txt")
        For Each L In Lignes
            If L.IndexOf("Groupe")>= 0 Then
                Dim wkgrp = Split(L, "<")
                Return wkgrp(0)
                Exit For
            End If
        Next
        Return Nothing
 End Function

Voila j'ai pas plus simple, si vous avez d'autres solutions je suis preneur.

N-BISS

Merci Nbiss 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 95 internautes ce mois-ci

Commenter la réponse de Nbiss
cs_casy 7745 Messages postés mercredi 1 septembre 2004Date d'inscription 24 septembre 2014 Dernière intervention - 26 avril 2008 à 21:58
0
Merci
Essaye peut-etre avec Environment.UserDomainName

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php
Commenter la réponse de cs_casy
Nbiss 18 Messages postés samedi 6 septembre 2003Date d'inscription 27 avril 2008 Dernière intervention - 26 avril 2008 à 22:14
0
Merci
Merci pour ta réponse, avec Environment.UserDomainName je récupère le nom de l'ordinateur et en faite je voudrais le groupe de travail. J'ai cheché avec toutes les propriétés de Environment mais je trouve rien malheureusement.
Si tu as une autre idée je suis preneur.

N-BISS
Commenter la réponse de Nbiss
cs_casy 7745 Messages postés mercredi 1 septembre 2004Date d'inscription 24 septembre 2014 Dernière intervention - 26 avril 2008 à 22:19
0
Merci
C'est effectivement ce qui est expliquer dans l'aide.

UserDomainName renvoie le nom de domaine auquels appartient l'ordinateur. S'il n'est inscrit dans aucun domaine, UserDomainName renvoie le nom de l'ordinateur.

Pour le groupe de travail (workgroup) je n'ai pas d'autres idées, à part peut-etre allaer rechercher dans la base de registre peut-etre.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php
Commenter la réponse de cs_casy
Nbiss 18 Messages postés samedi 6 septembre 2003Date d'inscription 27 avril 2008 Dernière intervention - 26 avril 2008 à 22:36
0
Merci
Bien... J'ai fait des recherches au niveau du registre dans tout les sens rien non plus.
Je vais continuer mes recherches.
Merci.

N-BISS
Commenter la réponse de Nbiss

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.