Public Class LogicalDisk
Dim con As ConnectionOptions = New ConnectionOptions
Dim machineName As String = System.Environment.MachineName
Dim mss As ManagementScope = New ManagementScope("\\" + machineName + "\root\cimv2", con)
Dim oqj As ObjectQuery = New ObjectQuery("SELECT * FROM Win32_LogicalDisk")
Dim mos As ManagementObjectSearcher = New ManagementObjectSearcher(mss, oqj)
Dim queryCollection As ManagementObjectCollection = mos.Get
Public Function DiskCaption() As System.Collections.ObjectModel.Collection(Of String)
DiskCaption = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
DiskCaption.Add(getnow("caption"))
Next
End Function
Public Function DiskDeviceID() As System.Collections.ObjectModel.Collection(Of String)
DiskDeviceID = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
DiskDeviceID.Add(getnow("DeviceID"))
Next
End Function
Public Function DiskDriveType() As System.Collections.ObjectModel.Collection(Of String)
DiskDriveType = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
DiskDriveType.Add(getnow("DriveType").ToString)
Next
End Function
Public Function DiskFileSystem() As System.Collections.ObjectModel.Collection(Of String)
DiskFileSystem = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
DiskFileSystem.Add(getnow("FileSystem"))
Next
End Function
Public Function DiskFreeSpace() As System.Collections.ObjectModel.Collection(Of String)
DiskFreeSpace = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
DiskFreeSpace.Add(getnow("FreeSpace"))
Next
End Function
Public Function DiskMediaType() As System.Collections.ObjectModel.Collection(Of String)
DiskMediaType = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
DiskMediaType.Add(getnow("MediaType").ToString)
Next
End Function
Public Function DiskSize() As System.Collections.ObjectModel.Collection(Of String)
DiskSize = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
DiskSize.Add(getnow("Size"))
Next
End Function
Public Function DiskVolumeName() As System.Collections.ObjectModel.Collection(Of String)
DiskVolumeName = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
DiskVolumeName.Add(getnow("VolumeName"))
Next
End Function
Public Function DiskVolumeSerialNumber() As System.Collections.ObjectModel.Collection(Of String)
DiskVolumeSerialNumber = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
DiskVolumeSerialNumber.Add(getnow("VolumeSerialNumber"))
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 oqj As ObjectQuery = New ObjectQuery("SELECT * FROM Win32_LogicalDisk")
Dim mos As ManagementObjectSearcher = New ManagementObjectSearcher(mss, oqj)
Dim queryCollection As ManagementObjectCollection = mos.Get
Public Function DiskCaption() As System.Collections.ObjectModel.Collection(Of String)
DiskCaption = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
DiskCaption.Add(getnow("caption"))
Next
End Function
Public Function DiskDeviceID() As System.Collections.ObjectModel.Collection(Of String)
DiskDeviceID = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
DiskDeviceID.Add(getnow("DeviceID"))
Next
End Function
Public Function DiskDriveType() As System.Collections.ObjectModel.Collection(Of String)
DiskDriveType = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
DiskDriveType.Add(getnow("DriveType").ToString)
Next
End Function
Public Function DiskFileSystem() As System.Collections.ObjectModel.Collection(Of String)
DiskFileSystem = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
DiskFileSystem.Add(getnow("FileSystem"))
Next
End Function
Public Function DiskFreeSpace() As System.Collections.ObjectModel.Collection(Of String)
DiskFreeSpace = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
DiskFreeSpace.Add(getnow("FreeSpace"))
Next
End Function
Public Function DiskMediaType() As System.Collections.ObjectModel.Collection(Of String)
DiskMediaType = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
DiskMediaType.Add(getnow("MediaType").ToString)
Next
End Function
Public Function DiskSize() As System.Collections.ObjectModel.Collection(Of String)
DiskSize = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
DiskSize.Add(getnow("Size"))
Next
End Function
Public Function DiskVolumeName() As System.Collections.ObjectModel.Collection(Of String)
DiskVolumeName = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
DiskVolumeName.Add(getnow("VolumeName"))
Next
End Function
Public Function DiskVolumeSerialNumber() As System.Collections.ObjectModel.Collection(Of String)
DiskVolumeSerialNumber = New System.Collections.ObjectModel.Collection(Of String)
For Each getnow As ManagementObject In queryCollection
DiskVolumeSerialNumber.Add(getnow("VolumeSerialNumber"))
Next
End Function
End Class
Please SUBSCRIBE to get new articles directly into your Email inbox!
تعليقات
إرسال تعليق