Bonjour,
Tout d'abord je vous remercie de votre réponse.
Cependant, je n'arrive toujours pas à me connecter à un switch distant.
Par contre, quand je refais cela au niveau local cela marche très bien.
Je vous colle ci-dessus le code que j'ai retravaillé.
Pourriez-vous me donner une piste ou me dire l'erreur grossière que j'ai commise.
Pour me défendre je ne n'ai pas grand-chose à dire à part que je débute dans cette matiére.
Cela signifie que j'ai en tout et pour tout une semaine de pratique et cela fait 3 jours que je bloque sur ce problème.
En remarque, je vous prévient que je n'ai collé le code .aspx ni l'entiereté du code aspx.vb car je n'en voyait pas l'utilité mais si vous voulez le connaitre dites le moi.
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()
' 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.01"//ip du switch sur lequel je dois me connecter
co.Password = "XXX"
LabelMachine.Text = "<B>" & stringMachineName & " </B>(Login : sALBEles69//le nom est celui du switch)<BR>"
Me.Controls.Add(LabelMachine)
chargeInfoWMI()
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
Je travaille comme vous l'avez certainement remarqué en asp.net. Et quand je génére, le code il m'affiche ceci dans mon navigateur:
localhost (Login : )
Version OS : Microsoft Corporation - Microsoft Windows XP Professional (5.1.2600)
10.101.115.27 (Login : sALBEles99)
Erreur dans l'appel WMI : The RPC server is unavailable. (Exception from HRESULT: 0x800706BA)
je vous remercie de toutes vos réponses
P.S. Je travaille sous Visual studio 2005