كلاس للتحكم فى القُرص الصلب - فيجوال بيسك دوت نت

Public Class HardDesk
        Dim con As ConnectionOptions = New ConnectionOptions
        Dim machineName As String = System.Environment.MachineName
        Dim mss As ManagementScope = New ManagementScope("\\" + machineName + "\root\cimv2", con)
        Dim ob As ObjectQuery = New ObjectQuery("SELECT * FROM Win32_diskdrive")
        Dim moss As ManagementObjectSearcher = New ManagementObjectSearcher(mss, ob)
        Dim queryCollection As ManagementObjectCollection = moss.Get
        Public Function GetName() As String
            For Each getnow As ManagementObject In queryCollection
                GetName = getnow("Caption").ToString
            Next
        End Function
        Public Function GetSize() As String
            For Each getnow As ManagementObject In queryCollection
                GetSize = getnow("size")
            Next
        End Function
        Public Function GetManufacturer() As String
            For Each getnow As ManagementObject In queryCollection
                GetManufacturer = getnow("Manufacturer").ToString
            Next
        End Function
        Public Function GetSerial() As String
            Dim HDinformation As New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
            Dim HD As ManagementObject
            For Each HD In HDinformation.Get()
                GetSerial = HD("SerialNumber").ToString()
            Next
        End Function
        Public Function BytesPerSector() As String
            For Each getnow As ManagementObject In queryCollection
                BytesPerSector = getnow("BytesPerSector").ToString
            Next
        End Function
        Public Function Description() As String
            For Each getnow As ManagementObject In queryCollection
                Description = getnow("Description").ToString
            Next
        End Function
        Public Function MediaType() As String
            For Each getnow As ManagementObject In queryCollection
                MediaType = getnow("MediaType").ToString
            Next
        End Function
        Public Function Model() As String
            For Each getnow As ManagementObject In queryCollection
                Model = getnow("Model").ToString
            Next
        End Function
        Public Function TotalCylinders() As String
            For Each getnow As ManagementObject In queryCollection
                TotalCylinders = getnow("TotalCylinders").ToString
            Next
        End Function
        Public Function TotalSectors() As String
            For Each getnow As ManagementObject In queryCollection
                TotalSectors = getnow("TotalSectors").ToString
            Next
        End Function
        Public Function TotalHeads() As String
            For Each getnow As ManagementObject In queryCollection
                TotalHeads = getnow("TotalHeads").ToString
            Next
        End Function
        Public Function TotalTracks() As String
            For Each getnow As ManagementObject In queryCollection
                TotalTracks = getnow("TotalTracks").ToString
            Next
        End Function
    End Class

Please SUBSCRIBE to get new articles directly into your Email inbox!