' also import these through project - add reference...
Imports System.Management
Imports System.IO

Public Function GetShares(ByVal Machine As String) As DataSet
        On Error Resume Next

        Dim ds_shares As New DataSet
        Dim scope As New ManagementScope("\\" + Machine + "\root\cimv2")
        scope.Connect()

        Dim objectQuery As New ObjectQuery("select * from Win32_Share")
        Dim searcher As New ManagementObjectSearcher(scope, objectQuery)
        Dim os As ManagementObject
        Dim sXML As String
        Dim sep As String = vbCrLf
        sXML = "<ServerInfo>"
        Dim moColl As ManagementObjectCollection = searcher.Get()

        For Each os In moColl
            sXML = sXML & sep & "<Information Field='Share' Value='" & os("name") & " (" & os("path") & ")'/>"
        Next os

        sXML += "</ServerInfo>"
        Dim SR As New StringReader(sXML)
        ds_shares.ReadXml(SR)

        Return ds_shares
End Function

'usage
Dim ds As DataSet = GetShares("servername")

For Each r As DataRow In ds.Tables(0).Rows
   MsgBox(r.Item("Value"))
Next