Visual Basic

Imports System
Imports System.Management
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
    Public Overloads Shared Function _
        Main(ByVal args() As String) As Integer

    End Function 'Main

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim s As New ManagementObjectSearcher( _

            select SerialNumber from Win32_BIOS""     ' the bit of code you told me to put in it!!
            New EnumerationOptions( _
            Nothing, System.TimeSpan.MaxValue, 1, _
            True, False, True, True, False, _
            True, True))
        For Each service As ManagementObject In s.Get()
                'show the instance
            TextBox1.Text = (service.ToString())
        Next
    End Sub
End Class

Public Sub q()
    Dim s As New ManagementObjectSearcher( _
        "root\MyApp", _
        "SELECT SerialNumber FROM Win32_BIOS", _
        New EnumerationOptions( _
        Nothing, System.TimeSpan.MaxValue, 1, _
        True, False, True, True, False, _
        True, True))
    For Each service As ManagementObject In s.Get()
        'show the instance
        TextBox1.Text = (service.ToString())
    Next
End Sub

Imports System.Management

Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        'Enumarate Drives List
        For Each drive As System.IO.DriveInfo In System.IO.DriveInfo.GetDrives
            ListBox1.Items.Add(drive.Name)
        Next

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ListBox1.SelectedItems.Count > 0 Then
            ListBox2.Items.Clear()

            'Get the WMI Properties for the Drive and populate the list box
            Dim query As New SelectQuery("Win32_LogicalDisk")

            'ManagementObjectSearcher retrieves a collection of WMI objects based on the query.
            Dim search As New ManagementObjectSearcher(query)

            ' Display each entry for Win32_LogicalDisk
            Dim info As ManagementObject
            For Each info In search.Get()
                For Each item As PropertyData In info.Properties
                    ListBox2.Items.Add(item.Name & " : " & item.Value)
                Next
            Next
        End If
    End Sub

End Class

If ListBox2.Items.Contains("VolumeSerialNumber" & " : " & item.value) Then
           TextBox1.Text = "VolumeSerialNumber" & " : " & item.value
       End If

SELECT SerialNumber FROM Win32_BIOS"

PAguilar09 wrote:

i have these being declared before my subroutine

PAguilar09 wrote:

iSum += Convert.ToDouble(strArr(count))

PAguilar09 wrote:

dFAvg = iSum / Convert.ToDouble(lblGrades.Text)