FAQ ASP.NET/VB.NET

					Dim connexionOption As ConnectionOptions = New ConnectionOptions
					Dim monManagementObject As ManagementObject
					Dim monManagementScope As System.Management.ManagementScope
					Dim objetRequete As System.Management.ObjectQuery
					Dim collectionResultat As ManagementObjectCollection
					Dim maRequete As ManagementObjectSearcher
					connexionOption.Username = "mon_login"
					connexionOption.Password = "mon_password"
					Dim marqueBios As String
					Try
					monManagementScope = New System.Management.ManagementScope("\\" + machineCible + "\root\cimv2", connexionOption)
					objetRequete = New System.Management.ObjectQuery("SELECT * FROM Win32_BIOS")
					maRequete = New ManagementObjectSearcher(monManagementScope, objetRequete)
					collectionResultat = maRequete.Get
					For Each monManagementObject As Integer In collectionResultat
					marqueBios = monManagementObject("Manufacturer")
					Next
					Response.Write(marqueBios)
					Catch ex As Exception
					Response.Write(ex.Message)
					End Try

				

					Dim Info_bios As SelectQuery = New SelectQuery("Win32_bios")
					Dim Bios_Information As ManagementObjectSearcher = New ManagementObjectSearcher(Info_bios)
					Dim Info As ManagementObject
					For Each Info As Integer In Bios_Information.Get
					Response.Write("Bios version: " + info("version").ToString)
					Next