Discussion :

[Maximeus]

Bonjour,

J'ai récuperé le code suivant pour afficher des données (adresse mac, version os...) d'un pc distant.

Avec ce code, les valeurs s'affichent dans une MessageBox.

J'aurais voulu savoir comment faire pour afficher les valeurs dans une Listbox ou chaque valeur dans une Textbox séparée au lieu d'une Messagebox.

Dans le cas d'une Listbox, est-il possible d'avoir une colonne avec le label de la valeur et une colonne avec la valeur?

Voici le 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
Private Sub Button_Pc_Infos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Pcnumber_Mac.Click
 
        Dim Pcnumber As String
        Pcnumber = TextBox_Pcnumber.Text
 
        Dim theManagementScope As New Management.ManagementScope("\\" & Pcnumber & "\root\cimv2")
 
        Dim theQueryString As String
        'theQueryString = "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = 1 "
        theQueryString = "Select * From Win32_operatingSystem"
 
        Dim theObjectQuery As New Management.ObjectQuery(theQueryString)
 
        Dim theSearcher As New Management.ManagementObjectSearcher(theManagementScope, theObjectQuery)
        Dim theResultsCollection As Management.ManagementObjectCollection = theSearcher.Get()
 
        For Each currentResult As Management.ManagementObject In theResultsCollection
 
   		MessageBox.Show("MaC Address : " & currentResult("MacAddress").ToString())
 
        Next
 
    End Sub

Merci d'avance

[getule]

pour un listbox,

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
Private Sub Button_Pc_Infos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Pcnumber_Mac.Click
 
        Dim Pcnumber As String
        Pcnumber = TextBox_Pcnumber.Text
 
        Dim theManagementScope As New Management.ManagementScope("\\" & Pcnumber & "\root\cimv2")
 
        Dim theQueryString As String
        'theQueryString = "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = 1 "
        theQueryString = "Select * From Win32_operatingSystem"
 
        Dim theObjectQuery As New Management.ObjectQuery(theQueryString)
 
        Dim theSearcher As New Management.ManagementObjectSearcher(theManagementScope, theObjectQuery)
        Dim theResultsCollection As Management.ManagementObjectCollection = theSearcher.Get()
 
        For Each currentResult As Management.ManagementObject In theResultsCollection
 
   		me.ListBox1.items.add("MaC Address : " & currentResult("MacAddress").ToString())
 
        Next
 
    End Sub

Merci d'avance

[Maximeus]

Ca marche nicekl

Merci