列出服务器共享

Question

我试图在服务器上列出这样的股票：

我尝试了以下代码：

    Dim objWMIService = GetObject("winmgmts:\\srv0000\root\CIMV2")
    Dim colShares = objWMIService.ExecQuery("SELECT * FROM Win32_Share")

    For Each objShare In colShares
        MsgBox("Name: " & objShare.Name)
    Next

但我在第1行收到错误无法创建ActiveX组件。。

所以我试过了：

    Dim scope As ManagementScope = New ManagementScope("\\srv0000\root\CIMV2")
    scope.Connect()
    Dim worker As ManagementObjectSearcher = New ManagementObjectSearcher(scope, New ObjectQuery("SELECT * FROM win32_share"))
    For Each share As ManagementObject In worker.Get
        MsgBox(share("Name"))
    Next

但我收到错误访问被拒绝。 （第2行的HRESULT异常：0x80070005（E_ACCESSDENIED））。

我可以访问服务器，如上图所示，但我不是管理员。我只想将资源列为资源管理器。由于我不需要对股票进行编辑，我还能采取另一种不那么强大的方法吗？

谢谢！

Answer 1

I ended up using the method provided here.