Public Sub RemoteShares()
Dim options As New ConnectionOptions()
options.Username = "[password]"
options.Password = "[domain\username]"
Dim scope As New ManagementScope("\\[computer.domain]\root\cimv2", options)
scope.Connect()
Dim searcher As New ManagementObjectSearcher(scope, New Management.ObjectQuery("SELECT * FROM Win32_Share"))
Dim share As ManagementObject
Dim relationship As System.Management.ManagementObject
For Each share In searcher.Get()
Console.WriteLine("Share = " & share("Name").ToString())
For Each relationship In share.GetRelationships
Console.WriteLine(" Relationships = " & relationship("Dependent").ToString)
Next
Next share
End Sub