Discussion :

[redcross_]

Bonjour,

Dans le cadre de mon boulot, je cherche à mettre en forme des informations WMI en VB.NET, telles que le nom de la machine, le fabricant, le modèle, le nom de l'utilisateur connecté, etc ... Mais je ne connais absolument pas langage...

En galant quelques infos sur ce forum, j'ai vu que WMI Code Creator permettait de faire ce genre de chose, cependant je souhaiterais que la sortie ne se fasse pas dans une console mais dans un form joliment présenté avec des labels ou des textboxs, par exemple.

Voici mon code :

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
Imports System
Imports System.Management
Imports System.Windows.Forms
 
Namespace WMISample
 
    Public Class MyWMIQuery
 
        Public Overloads Shared Function Main() As Integer
 
            Try
                Dim searcher As New ManagementObjectSearcher( _
                    "root\CIMV2", _
                    "SELECT * FROM Win32_ComputerSystem") 
 
                For Each queryObj As ManagementObject in searcher.Get()
 
                    Console.WriteLine("Name: {0}", queryObj("Name"))
 
                    Console.WriteLine("Manufacturer: {0}", queryObj("Manufacturer"))
 
                    Console.WriteLine("Model: {0}", queryObj("Model"))
 
                    Console.WriteLine("UserName: {0}", queryObj("UserName"))
                Next
            Catch err As ManagementException
                MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
            End Try
        End Function
    End Class
End Namespace

Je suppose que c'est le "Console.WriteLine" qui me pose problème... J'ai une vielle version qui fonctionne bien en VBS encapsulé dans un fichier HTA, je voulais mettre à jour en VB.NET, mais là je m'arrache les cheveux !

Merci

[Pol63]

et tu t'arraches les cheveux pour écrire monlabel.text = "valeur" ?
http://plasserre.developpez.com/cours/vb-net/

[redcross_]

Merci pour la réponse, mais je n'arrive toujours pas à obtenir ce que je veux, je m'explique :

1 - Je créer un nouveau projet Application Windows Form dans VB Express 2010,
2 - Dans mon Form1(Design), j'insère 4 labels,
3 - J'ajoute la référence "System.Management" à mon projet,
4 - Je colle ce bout de code :

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
 
Imports System
Imports System.Management
Imports System.Windows.Forms
 
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
        Try
            Dim searcher As New ManagementObjectSearcher( _
                "root\CIMV2", _
                "SELECT * FROM Win32_ComputerSystem")
 
            For Each queryObj As ManagementObject In searcher.Get()
 
                Label1.Text("Name: {0}", queryObj("Name"))
                Label2.Text("Manufacturer: {0}", queryObj("Manufacturer"))
                Label3.Text("Model: {0}", queryObj("Model"))
                Label4.Text("UserName: {0}", queryObj("UserName"))
 
            Next
        Catch err As ManagementException
            MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
        End Try
 
    End Sub
End Class

J'obtiens cette erreur :

error BC30545: Un accès à la propriété doit assigner la propriété ou utiliser sa valeur.

Ça doit être surement très simple à résoudre ... mais je n'en ai absolument aucune idée, vu que je n'y connais rien pas grand chose !

Merci pour le coup de main

[Pol63]

quand on y connait rien c'est comme tout, il suffit d'apprendre
un cours : http://plasserre.developpez.com/cours/vb-net/
parce que là c'est la base de la base de la base et tu écris n'importe quoi au hasard ...

surtout que si tu relis ma réponse précédente tu auras la réponse à ton problème