Excel VBA + Список всех подключенных сетевых дисков и сетевых ярлыков / местоположений

Question

Я создаю раскрывающийся список при открытии, который заполняет подключенные сетевые диски пользователя (буква диска) и любые сетевые расположения (ярлык папки).В основном то, что вы увидите в разделе «Сетевые местоположения» на «Мой компьютер / этот компьютер».

Использование VBA Я знаю, что вы можете просеивать подключенные диски с помощью объекта, описывающего файлы, но мне не удалось получить сетевые расположения.

Попытка объекта Wscript.Network с Object.enumNetworkDrives, по-видимому, работает нормально на работе, но, по-видимому, не приносит сетевых расположений, работая дома на удаленном компьютере.

Есть ли другой, лучший и / или более согласованный метод (с хорошим примером VBA) для получения всех подключенных дисков и сетевых расположений с помощью VBA?

Answer 1

Предлагаю вам взглянуть на WMI.Вот короткий пример, чтобы вы начали:

Sub ListDrives()
    WQL = "Select * From Win32_LogicalDisk"
    Set SrvEx = GetObject("winmgmts:root/CIMV2")
    Set WMIObj = SrvEx.ExecQuery(WQL)
    For Each WMIObjEx In WMIObj
        Debug.Print WMIObjEx.Path_.RelPath
    Next
End Sub