获取我网络中计算机的所有共享文件夹

Question

我想获取网络中的所有计算机以及其中的所有共享文件夹（应该在域和工作组中都可以使用）。我能够使用下面的代码

获取网络中的所有计算机

Dim ipproperties As NetworkInformation.IPGlobalProperties = NetworkInformation.IPGlobalProperties.GetIPGlobalProperties()
Dim domain As String = ipproperties.DomainName

Dim domainEntry As DirectoryEntry = New DirectoryEntry("WinNT://" + domain)
domainEntry.Children.SchemaFilter.Add("computer")

For Each computer As DirectoryEntry In domainEntry.Children
    ListBox1.Items.Add(computer.Name)
Next

但现在我想获得每台计算机的共享文件夹。所以我使用DirectoryEntry this code。但它给出了错误，例如＆＃34;找不到群组名称＆＃34;用于网络计算机。那么我收到错误的原因是什么？或者是否有其他方法来获取我网络中的计算机的共享文件夹。（我不想使用WMI解决方案）

Answer 1

您可以使用WMI＆＃39; Win32_Share：看一下示例here（您需要

1. 将Win32_LogicalDisk替换为Win32_Share
2. 将额外参数传递给ManagementObjectSearcher，如示例here中所示，以指定其他计算机。