[احمد خطاب]

Imports System.Management
Imports System.Text
Imports System.Security.Cryptography

Public Class Class3

    Public Shared Function sec() As String
        Dim val As String = ""
        Dim ma As New ManagementObjectSearcher(" select * from win32_Diskdrive")
        Try
            For Each mo As managementobject In ma.get()
                val = mo("serialnumber").ToString
                Return val
            Next
        Catch ex As ManagementException
            Return ""
        End Try
        Return val
    End Function


    Private Shared Function mo(ByVal p1 As String) As Object
        Throw New NotImplementedException
    End Function

End Class