Foro de elhacker.net

Imports System
Imports System.Management
Imports System.Windows.Forms
Public Class Form1
    Private Sub Form1_Load( _
              ByVal sender As System.Object, _
              ByVal e As System.EventArgs) Handles MyBase.Load
 
        ' obtener numero de serie bios
        Dim consultaNumSerieBios As String = "SELECT * FROM Win32_BIOS"
        Dim objNumBios As New ManagementObjectSearcher(consultaNumSerieBios)
        For Each info As ManagementObject In objNumBios.Get()
            infoNumBIOS.Text = info.Properties("SerialNumber").ToString
 
        Next info
End Sub
End Class

wmic bios get /format:list

    Private Sub InfoHardware(ByVal clave As String)
        Dim searcher As New ManagementObjectSearcher("select * from " + clave)
        ListView1.Items.Clear()
        Dim listv As ListViewGroup
        Try
            For Each objeto As ManagementObject In searcher.[Get]()
                Try
                    listv = ListView1.Groups.Add(objeto("Name").ToString(), objeto("Name").ToString())
                Catch
 
 
                    listv = ListView1.Groups.Add(objeto("Name").ToString(), objeto("Name").ToString())
                End Try
                If objeto.Properties.Count <= 0 Then
                    MessageBox.Show("No hay información al respecto", "Atención")
                    Return
                End If
 
                For Each PropiedadObj As PropertyData In objeto.Properties
                    Dim listViewItem1 As New ListViewItem(listv)
                    listViewItem1.Text = PropiedadObj.Name
 
                    If PropiedadObj.Value IsNot Nothing AndAlso PropiedadObj.Value.ToString() <> "" Then
                        listViewItem1.SubItems.Add(PropiedadObj.Value.ToString())
                        ListView1.Items.Add(listViewItem1)
                    Else
 
                    End If
                Next
            Next
    End Sub

wmic bios get /format:list