WMI

Bonjour,

Il n'y a rien à configurer. Peut-être que tu te trompe de terme ?

https://fr.wikipedia.org/wiki/Windows_Management_Instrumentation

Bonjour,

Merci de ta reponse mais j'ai cru qu'il y avait des services a activer dans controle pannel -add and remove- composant windows!!
J'en étais arrivé à cette conclusion vu que j'arrive à voir toutes les informations que je veux sur mon pc locale mais je ne n'arrive pas a me connecter sur un switch distant connaissant son nom et passwoord.

Pourtant je suis a peu près sûr du code que j'utilise.

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim LabelMachine As New System.Web.UI.WebControls.Label

' Chargement avec la machine courante et pas de login spécifique
'(compte utilisé : ASPNET)
LabelMachine.Text = "<B>" & stringMachineName & " </B>(Login : " & co.Username & ")<BR>"
Me.Controls.Add(LabelMachine)
chargeInfoWMI()
' reboot("10.101.114.202")

' Chargement avec une autre machine du réseau dont l'IP est fournie en paramètre
' ainsi que le login et Mot de passe
LabelMachine = New System.Web.UI.WebControls.Label
stringMachineName = "10.101.115.27"
co.Username = "sALBEles50"
co.Password = "testStudent1234{"
LabelMachine.Text = "<B>" & stringMachineName & " </B>(Login : " & co.Username & ")<BR>"
Me.Controls.Add(LabelMachine)
chargeInfoWMI()

End Sub

' -------------------------------------------------
Private Sub chargeInfoWMI()

Dim ms As System.Management.ManagementScope
Dim oq As System.Management.ObjectQuery
Dim query As ManagementObjectSearcher
Dim queryCollection As ManagementObjectCollection
Dim MonMO As ManagementObject

Dim LabelVersionOS As New System.Web.UI.WebControls.Label

Try
ms = New System.Management.ManagementScope("\\" & stringMachineName & "\root\cimv2", co)
oq = New System.Management.ObjectQuery("SELECT * FROM Win32_OperatingSystem")
query = New ManagementObjectSearcher(ms, oq)
queryCollection = query.Get()
For Each MonMO In queryCollection
LabelVersionOS.Text = "<B>Version OS </B>: " & MonMO("Manufacturer")
LabelVersionOS.Text &= " - " & MonMO("Caption") & " (" & MonMO("Version") & ")<BR><BR>"
Next
Catch ex As Exception
LabelVersionOS.Text = "Erreur dans l'appel WMI : " & ex.Message
Finally
Me.Controls.Add(LabelVersionOS)

End Try
End Sub

Pour le pc local j'obtiens la reponse voulue mais pour le switch distant j'obtiens :

"Erreur dans l'appel WMI : The RPC server is unavailable. (Exception from HRESULT: 0x800706BA)"

merci de ta reponse et j'éspère que tu sera dès lors m'éclairer sur le sujet.