How to list shared folder of a network computer.

[NoWhereMan]

Hello,
I'm trying to get the list of shared folders of a network computer and add them to a combo box. I'm using the bellow code in VB .NET.

Code
====
Private Sub EnumShares(ByVal Machine As String)
'Local Shares
Try
Dim scope As String = ("\\" & Machine & "\root\cimv2")
Dim SharesClass As ManagementClass = New ManagementClass(scope, "Win32_Share", Nothing)
Dim Shares As System.Management.ManagementObjectCollection = SharesClass.GetInstances()
Dim Share As System.Management.ManagementObject

For Each Share In Shares
MessageBox.Show("Description: " & Share("Description"))
MessageBox.Show("Name: " & Share("Name"))
MessageBox.Show("Path: " & Share("Path"))
Next
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
====================

However, this only seems to work to list shared folders of my own computer. It does not list the folders of other network computers I do have access to when I use MS windows Explorer tool and click on My Network Places / Entire Network / Microsoft Windows Network.
When I call the method as follows EnumShares("\\MyComputerName") it works fine. However when I call it EnumShares("\\OtherComputer") I get the following error:

And unhandled exception fo type
'System.Management.ManagementException' ocurred in
system.management.dll

Additional information: Access denied


Like I said I do have access to these other computer's shared folders.

Thank you.