Discussion :

[oliviera63]

Bonsoir,

J'espère poster au bon endroit...

J'utilise WMI Code creator pour générer le code me permettant de lister les lecteurs réseau et leurs status.
Lorsque j'execute le code directement via WMI Code Creator ou en executant un script .vbs, j'obtiens bien le resultat recherché:


Mais si j’exécute le même code depuis mon application, Searcher.Get() ne me renvoie rien.
Y a-t-il une raison?

Merci d'avance.

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
 
 
Imports System
Imports System.Management
Imports System.Windows.Forms
 
.....
 
  Try
            Dim searcher As New ManagementObjectSearcher( _
                "root\CIMV2", _
                "SELECT * FROM Win32_NetworkConnection")
 
            For Each queryObj As ManagementObject In searcher.Get()
 
                Console.WriteLine("-----------------------------------")
                Console.WriteLine("Win32_NetworkConnection instance")
                Console.WriteLine("-----------------------------------")
                Console.WriteLine("ConnectionState: {0}", queryObj("ConnectionState"))
                Console.WriteLine("LocalName: {0}", queryObj("LocalName"))
                Console.WriteLine("Name: {0}", queryObj("Name"))
                Console.WriteLine("Status: {0}", queryObj("Status"))
            Next
        Catch err As ManagementException
            MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
        End Try

[wallace1]

Salut,

Peut-être parce que tu as placés Console.Writeline dans une appli de type Winform.......

Dans un seconds temps il faut executer ton appli et/ou projet avec elevation de privilèges .......

[oliviera63]

Bonsoir Wallace1,

Merci d'avoir pris le temps de me répondre.

Erreur de ma part sur le copier/coller du code en effet, mais le principe reste le même.

Même en exécutant en temps qu'administrateur, je n'obtiens pas le résultat escompté. Une autre piste?
Je ne comprends pas pourquoi cette requete ne renvoie rien sous VB.net alors que cette même requête dans un script VBS fonctionne parfaitement...

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
 
 
Imports System.Management
Imports System.Management.Instrumentation
 
-------------------
-------------------
 
        Dim scope As System.Management.ManagementScope
        Dim query As System.Management.ObjectQuery
        Dim result As ManagementObjectCollection
        Dim searcher As ManagementObjectSearcher
 
        Try
            scope = New System.Management.ManagementScope("\\.\root\cimv2")
            query = New System.Management.ObjectQuery("SELECT * FROM Win32_NetworkConnection")
            searcher = New ManagementObjectSearcher(scope, query)
 
            result = searcher.Get
            For Each mo As ManagementObject In result
                Dim LocalName = mo("LocalName")
                Dim ConnectionState = mo("ConnectionState")
                Dim Status = mo("Status")
                MsgBox(LocalName & vbCrLf & ConnectionState & vbCrLf & Status)
            Next
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

[wallace1]

Bonjour,

Je viens de tester chez moi et ca fonctionne parfaitement bien dans un projet de type Winform () :

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
 
    Try
            Using searcher As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_NetworkConnection")
                For Each queryObj As ManagementObject In searcher.Get()
                    MsgBox("Win32_NetworkConnection instance" & vbNewLine &
                           "-----------------------------------" & vbNewLine &
                           String.Format("ConnectionState: {0}", queryObj("ConnectionState")) & vbNewLine &
                           String.Format("LocalName: {0}", queryObj("LocalName")) & vbNewLine &
                           String.Format("Name: {0}", queryObj("Name")) & vbNewLine &
                           String.Format("Status: {0}", queryObj("Status")))
                Next
            End Using
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

Il y a qqch qui cloche de ton côté !!

Montres moi le code (COMPLET) de ta classe dans laquelle se situe ta routine "Button3_Click".....

[oliviera63]

Bonjour, (et merci encore)

Je viens de tester l’exécutable généré par Visual Studio sur un autre ordinateur (OS:Win7Pro) et cela fonctionne parfaitement.
Donc en effet, le problème vient de mon PC.

Depuis que j'ai désactivé le pare feu Windows, exécuté l'application (en local sur mon PC), réactivé le pare feu, cela fonctionne également mais uniquement lorsque j'utilise l’exécutable (debug et/ou Release) généré par Visual Studio .
Mais cela ne fonctionne toujours pas depuis Visual Studio... Ce qui est problématique pour le débogage...

Une dernière idée?

[wallace1]

Mais cela ne fonctionne toujours pas depuis Visual Studio... Ce qui est problématique pour le débogage...

Une dernière idée?

Comme je te l'ai déjà dis plus haut...... :

IL FAUT PARAMETRER TON PROJET DE MANIERE A CE QUE L'EXECUTABLE GENERE SOIT EXECUTE AVEC ELEVATION DE PRIVILEGES

Le fichier MANIFEST :




Tu fermes l'EDI et tu relances ton projet, lors du prochain debug (avec génération) il te proposera de relancer le projet pour qu'il soit exécuté avec l'élévation. Fin de l'histoire...

A+

[oliviera63]

Bonjour,

Apparemment ce n'est pas si simple. lorsque j'élève les privilèges, ça ne fonctionne pas (mieux) depuis Visual Studio, mais en plus cela ne fonctionne plus lorsque j’exécute le .exe
J'ai copié mon projet sur un autre PC et là tout fonctionne parfaitement (sans élévation de privilèges).

J'ai créé un utilisateur local sur mon PC (qui est sur un domaine). J'ai démarré le projet depuis cet utilisateur local et là tout fonctionne parfaitement.
J'en conclut qu' il s'agit probablement d'un problème d'identification lié à ma session.

Merci pour l'aide apportée.