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!
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!
تعليقات
إرسال تعليق