• Home
 · 
• Windows System Services
 · 
• Get Map Drive Information Using VB.net

Get Map Drive Information Using VB.net

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.



Rate Get Map Drive Information Using VB.net

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    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