[خالد كامل1]

هل هذا الكود به خطأ فىجلب سريال نمبر الهارد

كود :

Imports System.Management

Public Class Class1
   Public Shared Function SECU() 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

End Class