Private Sub wmiTest()
        Dim aMS As New ManagementScope("root\CIMV2")
        Dim aOQ As New ObjectQuery("SELECT * FROM win32_share")
        Dim aMAS As New ManagementObjectSearcher(aMS, aOQ)
        Dim aObj As ManagementObject
        For Each aObj In aMAS.Get()
            ListBox1.Items.Add(aObj.Item("name").ToString())
        Next
    End Sub

    Private Sub wmiTest2()
        Dim objectQuery As New ObjectQuery("select * from Win32_Share")
        Dim searcher As New ManagementObjectSearcher(objectQuery)
        Dim share As ManagementObject
        For Each share In searcher.Get()
             Console.WriteLine("Share = " & share("Name"))
        Next share
    End Sub