Peux tu me dire comment je dois déclarer ca stp? Merci d'avance!!!
Voici mon code:
Imports System.Management
Public Class test
Inherits System.Web.UI.Page
Private stringMachineName As String = "localhost"
Private co As New ConnectionOptions
#Region " Code généré par le Concepteur Web Form "
'Cet appel est requis par le Concepteur Web Form.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
'REMARQUE : la déclaration d'espace réservé suivante est requise par le Concepteur Web Form.
'Ne pas supprimer ou déplacer.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN : cet appel de méthode est requis par le Concepteur Web Form
'Ne le modifiez pas en utilisant l'éditeur de code.
InitializeComponent()
End Sub
#End Region
' -------------------------------------------------
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 = "192.82.1.6"
co.Username = "administrateur"
co.Password = "."
LabelMachine.Text = "<B>" & stringMachineName & " </B>(Login : " & co.Username & ")<BR>"
Me.Controls.Add(LabelMachine)
chargeInfoWMI()
' Pour valider le test sur une machine ayant un OS Windows différent
LabelMachine = New System.Web.UI.WebControls.Label
stringMachineName = "192.82.1.12"
co.Username = "administrateur"
co.Password = "."
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)
query.Dispose()
queryCollection.Dispose()
MonMO.Dispose()
End Try
End Sub
' -------------------------------------------------
End Class