How to enumerate logical drives?

How to enumerate logical drives?

Rating:

Take the following steps to enumerate logical drives:

1. Create a ConnectionOptions class object as follows:
   
   Dim op As ConnectionOptions = New ConnectionOptions()
   
   
2. Assign username and password to the class object as follows:
   
   op.Username="\uc"
   op.Password = "123acb"
   
   
Create a ManagementScope class object as follows:

Dim scope As ManagementScope = New ManagementScope("\computername",op)


4. Create a ObjectQuery class object as follows:
   
   Dim query As ObjectQuery = New ObjectQuery("Select name, size from Win32_LogicalDisk")
   
   
5. Create a ManagementObjectSearcher class object as follows:
   
   Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher(scope, query)
   
   
6. Create a ManagementObjectCollection class object as follows:
   
   Dim collect As ManagementObjectCollection = searcher.Get()
   
   
7. Display the result as follows:
   
   Dim obj As ManagementObject
   For Each obj in collect
      Console.WriteLine("Name: "+obj["Name"].ToString())
      Console.WriteLine("Size: "+obj["Size"].ToString())
   Next obj
   

Rating: