Я пытаюсь перечислить Акции на сервере следующим образом: 
Я попробовал следующий код:
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
Но я получаюошибка Невозможно создать компонент ActiveX. в строке 1.
Итак, я попытался:
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
Но я получаю ошибку Доступ запрещен.(Исключение из HRESULT: 0x80070005 (E_ACCESSDENIED)) в строке 2.
У меня есть доступ к серверу, как показано на фотографии выше, но я не администратор.Я просто хотел бы перечислить Акции как исследователь.Поскольку мне не нужно вносить изменения в Акции, есть ли другой подход, который я могу использовать, который менее надежен?
Спасибо!