by Gehan Fernando (47 Submissions)
Category: Windows System Services
Compatability: VB.NET
Difficulty: Unknown Difficulty
Originally Published: Mon 20th October 2008
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Get Map Drive Information Using VB.net
API Declarations
Imports System
Imports System.Management
'Win32_MappedLogicalDisk
'The Win32_MappedLogicalDisk WMI class represents network storage devices that are mapped as logical disks on the computer system.
VBcoders
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim query As ManagementObjectSearcher
Dim queryCollection As ManagementObjectCollection
Dim query_command As String = "SELECT * FROM Win32_MappedLogicalDisk"
Dim select_query As SelectQuery = New SelectQuery(query_command)
query = New ManagementObjectSearcher(query_command)
queryCollection = query.Get()
Dim management_object As ManagementObject
For Each management_object In queryCollection
Access = management_object("Access")
Availability = management_object("Availability")
BlockSize = management_object("BlockSize")
Caption = management_object("Caption")
Compressed = management_object("Compressed")
ConfigManagerErrorCode = management_object("ConfigManagerErrorCode")
ConfigManagerUserConfig = management_object("ConfigManagerUserConfig")
CreationClassName = management_object("CreationClassName")
Description = management_object("Description")
DeviceID = management_object("DeviceID")
ErrorCleared = management_object("ErrorCleared")
ErrorDescription = management_object("ErrorDescription")
ErrorMethodology = management_object("ErrorMethodology")
FileSystems = management_object("FileSystem")
FreeSpace = management_object("FreeSpace")
InstallDate = management_object("InstallDate")
LastErrorCode = management_object("LastErrorCode")
MaximumComponentLength = management_object("MaximumComponentLength")
Name = management_object("Name")
NumberOfBlocks = management_object("NumberOfBlocks")
PNPDeviceID = management_object("PNPDeviceID")
PowerManagementCapabilities = management_object("PowerManagementCapabilities")
PowerManagementSupported = management_object("PowerManagementSupported")
ProviderName = management_object("ProviderName")
Purpose = management_object("Purpose")
QuotasDisabled = management_object("QuotasDisabled")
QuotasIncomplete = management_object("QuotasIncomplete")
QuotasRebuilding = management_object("QuotasRebuilding")
SessionID = management_object("SessionID")
Size = management_object("Size")
Status = management_object("Status")
StatusInfo = management_object("StatusInfo")
SupportsDiskQuotas = management_object("SupportsDiskQuotas")
SupportsFileBasedCompression = management_object("SupportsFileBasedCompression")
SystemCreationClassName = management_object("SystemCreationClassName")
SystemName = management_object("SystemName")
VolumeName = management_object("VolumeName")
VolumeSerialNumber = management_object("VolumeSerialNumber")
Next management_object
End Sub
End Class
