共享文件夹在 Win32_Share 中不可见
Shared folder not visible in Win32_Share
我共享了一个文件夹。
当我右击它时,它显示在 "Sharing":
"Network path: \DESKTOP-K77052H\Users\VMWareUser\Desktop\ausgaber"
(我附上了截图)。
但是我查询的时候没有列出这个文件夹Win32_Share:
Dim strComputer As String = "."
Dim objWMIService As Object = GetObject("winmgmts:{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Dim colShares As Object = objWMIService.ExecQuery("Select * from Win32_Share where type=0")
For Each objShare In colShares
Debug.Print(objShare.path)
我确实看到了其他共享文件夹,但没有看到这个。
我们在上面代码中输出的其他那些没有特殊权限,就像有问题的文件夹一样,所以我不明白这些和我期望在上面函数中输出的文件夹之间的区别。
我也重启了电脑,删了分享,再分享,也没用。
这可能是什么问题?
我发现自己处于类似的情况,当我通过 属性 对话框启用共享时,很少有文件夹被共享,而很少有文件夹没有。
要解决此问题,您需要通过单击 高级共享... 按钮启用共享,请参阅下面的附图:
我共享了一个文件夹。
当我右击它时,它显示在 "Sharing":
"Network path: \DESKTOP-K77052H\Users\VMWareUser\Desktop\ausgaber"
(我附上了截图)。
但是我查询的时候没有列出这个文件夹Win32_Share:
Dim strComputer As String = "."
Dim objWMIService As Object = GetObject("winmgmts:{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Dim colShares As Object = objWMIService.ExecQuery("Select * from Win32_Share where type=0")
For Each objShare In colShares
Debug.Print(objShare.path)
我确实看到了其他共享文件夹,但没有看到这个。 我们在上面代码中输出的其他那些没有特殊权限,就像有问题的文件夹一样,所以我不明白这些和我期望在上面函数中输出的文件夹之间的区别。
我也重启了电脑,删了分享,再分享,也没用。
这可能是什么问题?
我发现自己处于类似的情况,当我通过 属性 对话框启用共享时,很少有文件夹被共享,而很少有文件夹没有。
要解决此问题,您需要通过单击 高级共享... 按钮启用共享,请参阅下面的附图: