[مالكـ]

في البداية قم بادراج المكتبة System.Management



ثم استورد المكتبة

PHP كود :

Imports System.Management 


الكود الاول :

PHP كود :

Function GetMotherboardSerialNumber() As String
        Dim searcher As New ManagementObjectSearcher("SELECT SerialNumber, Product FROM Win32_BaseBoard")
        Dim information As ManagementObjectCollection = searcher.Get()
        Dim serialNumber As String = String.Empty
        
        For Each obj As ManagementObject In information
            If (obj.Properties("SerialNumber").Value.ToString().Trim() <> String.Empty) Then
                serialNumber = obj.Properties("SerialNumber").Value.ToString().Trim()
            Else
                serialNumber = obj.Properties("Product").Value.ToString().Trim()
            End If
            Exit For
        Next
        searcher.Dispose()
        Return serialNumber
    End Function 


مصدر الكود الاول : من هنا


الكود الثاني :

PHP كود :

Public Function MotherboardSerialNumber() As String
        Dim searcher As New System.Management.ManagementObjectSearcher("SELECT SerialNumber FROM Win32_BaseBoard")
        For Each obj As System.Management.ManagementObject In searcher.Get
            Return obj.Properties("SerialNumber").Value.ToString
        Next
        Return String.Empty
    End Function