Visual Basic

Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Management

Namespace VBDotNet_WMI_HD_GetSerialNumber_2

    Public Class MainForm
        Inherits System.Windows.Forms.Form
        Private button1 As System.Windows.Forms.Button

        Public Shared Sub Main()
            Dim fMainForm As New MainForm
            fMainForm.ShowDialog()
        End Sub

        Public Sub New()
            MyBase.New()
            Me.InitializeComponent()
        End Sub

#Region " Windows Forms Designer generated code "
        Private Sub InitializeComponent()
            Me.button1 = New System.Windows.Forms.Button
            Me.SuspendLayout()
            '
            'button1
            '
            Me.button1.Location = New System.Drawing.Point(8, 8)
            Me.button1.Name = "button1"
            Me.button1.Size = New System.Drawing.Size(280, 32)
            Me.button1.TabIndex = 0
            Me.button1.Text = "&Get serial number"
            AddHandler Me.button1.Click, AddressOf Me.Button1Click
            '
            'MainForm
            '
            Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
            Me.ClientSize = New System.Drawing.Size(292, 45)
            Me.Controls.Add(Me.button1)
            Me.Name = "MainForm"
            Me.Text = "Testform <WMI - Harddisk - Get Serial Number. 2>"
            Me.ResumeLayout(False)
        End Sub
#End Region

        Private Sub Button1Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
            Dim Result As String = GetHarddiskSerialNumber("c:\")
            If (Not Result Is String.Empty) Then
                MessageBox.Show(Result, "Info")
            End If
        End Sub

        Private Function GetHarddiskSerialNumber(ByVal drv As String) As String
            Try
                Dim BackSlash As String = "\"
                Dim Position As Integer = drv.LastIndexOf(BackSlash)

                If Position > -1 Then
                    drv = drv.Substring(0, drv.Length - 1)
                Else
                    drv = drv
                End If
                Dim mo As New _
                 ManagementObject("Win32_LogicalDisk.DeviceID=""" & drv & """")
                Dim pd As PropertyData = mo.Properties("VolumeSerialNumber")
                Return pd.Value.ToString()
            Catch ex As Exception
                MessageBox.Show(ex.Message, "Info")
            End Try
            Return String.Empty
        End Function

    End Class
End Namespace