لا استطيع الحصول على الرقم التسلسلي للقرص C

PHP كود :

Imports System.Management

Public Function GetSerialNumber() As String
    Dim disk As ManagementObject = New ManagementObject("Win32_LogicalDisk.DeviceID=""C:""")
    disk.Get()
    Return disk("VolumeSerialNumber").ToString()
End Function

PHP كود :

Dim serialNumber As String = GetSerialNumber()
MessageBox.Show("C drive serial number: " & serialNumber)

كود :

Public diskId As String 'Digital ID

    Public diskSerialNumber As String 'This we will call it the serial number for the time being.

    Public diskModel As String 'serial number



Public Sub Get_Hard_Serial()

        Dim cmicWmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")



        For Each cmicWmiObj As ManagementObject In cmicWmi.Get

            diskId = cmicWmiObj("signature")

            diskSerialNumber = cmicWmiObj("serialnumber")

            diskModel = cmicWmiObj("Model")

        Next

    End Sub

كود :

SELECT * FROM Win32_DiskDrive WHERE Index = '0'

كود :

class Program

{

    static void Main(string[] args)

    {

        const string drive = "C:";



        Console.WriteLine("Drive {0}'s Model Number is {1}", drive, GetModelFromDrive(drive));

    }



    public static string GetModelFromDrive(string driveLetter)

    {

        // Must be 2 characters long.

        // Function expects "C:" or "D:" etc...

        if (driveLetter.Length != 2)

            return "";



        try

        {

            using (var partitions = new ManagementObjectSearcher("ASSOCIATORS OF {Win32_LogicalDisk.DeviceID='" + driveLetter +

                                             "'} WHERE ResultClass=Win32_DiskPartition"))

            {

                foreach (var partition in partitions.Get())

                {

                    using ( var drives = new ManagementObjectSearcher("ASSOCIATORS OF {Win32_DiskPartition.DeviceID='" +

                                                         partition["DeviceID"] +

                                                         "'} WHERE ResultClass=Win32_DiskDrive"))

                    {

                        foreach (var drive in drives.Get())

                        {

                            return (string) drive["Model"];

                        }

                    }

                }

            }

        }

        catch

        {

            return "<unknown>";

        }



        // Not Found

        return "<unknown>";

    }

}

كود :

Class Program

    Private Shared Sub Main(ByVal args As String())

        Const drive As String = "C: "

        Console.WriteLine("Drive {0}'s Model Number is {1}", drive, GetModelFromDrive(drive))

    End Sub



    Public Shared Function GetModelFromDrive(ByVal driveLetter As String) As String

        If driveLetter.Length <> 2 Then Return ""



        Try



            Using partitions = New ManagementObjectSearcher("ASSOCIATORS OF {Win32_LogicalDisk.DeviceID='" & driveLetter & "'} WHERE ResultClass=Win32_DiskPartition")



                For Each Partition In partitions.[Get]()



                    Using drives = New ManagementObjectSearcher("ASSOCIATORS OF {Win32_DiskPartition.DeviceID='" & Partition("DeviceID") & "'} WHERE ResultClass=Win32_DiskDrive")



                        For Each drive In drives.[Get]()

                            Return CStr(drive("Model"))

                        Next

                    End Using

                Next

            End Using



        Catch

            Return "<unknown>"

        End Try



        Return "<unknown>"

    End Function

End Class

كود :

Public Shared Function GetModelFromDrive(driveLetter As String) As String

    Dim result As String

    If driveLetter.Length <> 2 Then

        result = ""

    Else

        Try

            Using partitions As ManagementObjectSearcher = New ManagementObjectSearcher("ASSOCIATORS OF {Win32_LogicalDisk.DeviceID='" + driveLetter + "'} WHERE ResultClass=Win32_DiskPartition")

                For Each partition As ManagementBaseObject In partitions.[Get]()

                    Dim str As String = "ASSOCIATORS OF {Win32_DiskPartition.DeviceID='"

                    Dim obj As Object = partition("DeviceID")

                    Using drives As ManagementObjectSearcher = New ManagementObjectSearcher(str + If((obj IsNot Nothing), obj.ToString(), Nothing) + "'} WHERE ResultClass=Win32_DiskDrive")

                        Using enumerator2 As ManagementObjectCollection.ManagementObjectEnumerator = drives.[Get]().GetEnumerator()

                            If enumerator2.MoveNext() Then

                                Dim drive As ManagementBaseObject = enumerator2.Current

                                Return CStr(drive("Model"))

                            End If

                        End Using

                    End Using

                Next

            End Using

        Catch

            Return "<unknown>"

        End Try

        result = "<unknown>"

    End If

    Return result

End Function