Блог

Главная - Вопросы по программированию - Как указать целевой путь ко всем моим сетевым местам в vbs?

Как указать целевой путь ко всем моим сетевым местам в vbs?

#vbscript #wsh

#vbscript — скрипт #wsh

Вопрос:

Я хочу, чтобы скрипт перечислял пользователям Мои сетевые места в Windows XP. В Интернете есть много примеров, которые показывают, как получить имя каждого местоположения, но мне нужен целевой путь (т. Е. Имя сервера / папки, на которую указывает ссылка).

Чтобы получить имя, я могу сделать:

 Const MY_NETWORK_PLACES = amp;H12amp;

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(MY_NETWORK_PLACES)
Set objFolderItem = objFolder.Self
Wscript.Echo objFolderItem.Path

Set colItems = objFolder.Items
For Each objItem in colItems
    Wscript.Echo objItem.Name
Next

Как мне получить целевой путь? Смотрю на него .Path дает мне локальный путь к кратчайшему пути.

Ответ №1:

Используйте .GetLink.Path :

 If objItem.IsFileSystem Then
   Wscript.Echo objItem.Name, " =>", objItem.GetLink.Path
End If
Метки: