Как определить полный путь из расшаренного ресурса

[Vova_2581]

Имеется расшаренный сетевой ресурс сервера, например, «Temp». Нужно удаленно определить полный адрес директории этого ресурса, типа «C:\Program Files\Temp». Как сделать? UNC не предлагать.

[jangle]

Имеется расшаренный сетевой ресурс сервера, например, «Temp». Нужно удаленно определить полный адрес директории этого ресурса, типа «C:\Program Files\Temp». Как сделать? UNC не предлагать.

Ты задачу правильно сформулировал? А то получается следующее: Есть фото блондинки в шубе. Нужно удаленно определить цвет ее трусов. Как сделать? Догадки не предлагать.

[Antonariy]

UNC не предлагать.

Автор походу не знает, что такое UNC, иначе бы не выдвинул такое требование.
"Имеется расшаренный сетевой ресурс сервера … Расшареный ресурс сервера не предлагать" — примерно такой смысл поста.

Вообще за расшаренным ресурсом может скрываться что угодно, принтер к примеру, клиенту о сути этого "что угодно" знать как минимум незачем, а как максимум — не положено. Так что к серверу нужно подключаться через WMI и перебрать расшаренные ресурсы его собственными средствами. Если он это позволит.

[Vova_2581]

Меня не интересует «\\Srv1\Folder1\Sub1\» по-моему я написал это четко и ясно.
Насчет WMI подробней можно?

[jangle]

Vova_2581 - честным способом ты никак не узнаешь локальный путь сетевой папки. Это тебе и не нужно вообще-то. А методом грязного хака теоретически можно, положить в сетевую папку экзешник и попросить его запустить оператора сервера. Экзешник определит папку из которой он запущен и скинет путь потом тебе путь по электронной почте или по сети. Но это уже троян получается.

[Antonariy]

Меня не интересует «\\Srv1\Folder1\Sub1\» по-моему я написал это четко и ясно.

Ты написал лишнее. "Имеется расшаренный сетевой ресурс" — ежу ясно, что ты этот путь уже знаешь.

Насчет WMI подробней можно?

Код: Выделить всё

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colShares = objWMIService.ExecQuery("Select * From Win32_Share")

For Each objShare in colShares
    Set colAssociations = objWMIService.ExecQuery _
        ("Associators of {Win32_Share.Name='" & objShare.Name & "'} " _
            & " Where AssocClass=Win32_ShareToDirectory")
    For Each objFolder in colAssociations
        Wscript.Echo objShare.Name & vbTab & objFolder.Name
    Next
Next

Однако, указав имя сервера при его стандартных настройках безопасности, получишь отлуп вида "Разрешение отклонено: 'GetObject'".

[Денис]

Vova_2581 - честным способом ты никак не узнаешь локальный путь сетевой папки. Это тебе и не нужно вообще-то. А методом грязного хака теоретически можно, положить в сетевую папку экзешник и попросить его запустить оператора сервера. Экзешник определит папку из которой он запущен и скинет путь потом тебе путь по электронной почте или по сети. Но это уже троян получается.

А если в нужную папку положить DirInfo.txt в котором написать локальное расположение, а потом тупо читать этот файл?

[jangle]

А если в нужную папку положить DirInfo.txt в котором написать локальное расположение, а потом тупо читать этот файл?

А не проще тогда просто назвать сетевую папку локальным путем? Например C-Programms_Files-projects-folder
Где "-" надо заменить на "\", а "_" на пробелы. И никакие файлы не нужны. Весь путь уже указан в названии папки.

[Денис]

А если в нужную папку положить DirInfo.txt в котором написать локальное расположение, а потом тупо читать этот файл?

А не проще тогда просто назвать сетевую папку локальным путем? Например C-Programms_Files-projects-folder
Где "-" надо заменить на "\", а "_" на пробелы. И никакие файлы не нужны. Весь путь уже указан в названии папки.

Тогда так:
C=-Programms_Files-projects-folder
Где "=" заменть на ":", "-" надо заменить на "\", а "_" на пробелы.

[Vova_2581]

Vivat WMI! Все получилось! Причем, самым честным способом! По свободе отпишусь.
jangle, Денис -- Вы куда-то не туда завернули.

[iGrok]

...По свободе отпишусь...

Посадили таки человека.. И ведь за такую ерунду!
Сколько лет хоть дали?

[jangle]

...По свободе отпишусь...

Посадили таки человека.. И ведь за такую ерунду!
Сколько лет хоть дали?

За такое точно пожизненное дали!

[Vova_2581]

Сперва просьба модераторам: не допускайте пожлст неадекватных людей к участию на форумах. Шутки какие-то непонятные и неуместные.

Теперь по делу касательно вопроса по форуму (буду уточнять на всякий случай), Antonariy, да, в самом деле ты был прав – указывая имя сервера, получал «permission denied». Стал изучать вопрос, по ходу понял, что твой код можно упростить вообще до трех строчек.

Код: Выделить всё

For Each objShare In GetObject("WinMgmts:\\.\root\cimv2").InstancesOf("Win32_Share")
Print objShare.Path
Next 

Но это пути локальной шары. А мне надо было достать шару сервера. Как быть? Чтобы все получилось легально, нужно указывать имя пользователя и пароль админа (мне это известно, сорри, что не сказал вначале, не думал, что будет важно). Как выяснилось, сделать это через моникер невозможно, по причине все той же безопасности. Чтобы получить легальный доступ к серверу, нужно использовать объект SWbemLocator через метод ConnectServer.
Короче, все что мне надо получил простым кодом:

Код: Выделить всё

strComputer = "192.168.212.41" 'IP сервера
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objSWbemLocator.ConnectServer(strComputer, "root\CIMV2", _
    "strUserLogin", _
    "strUserPassword", _
    "MS_409", _
    "ntlmdomain:" + strDomain)

For Each objShare In objWMIService.InstancesOf("Win32_Share")
Print objShare.Path
Next

К слову добавить, еще есть такая функция NetShareGetInfo через нее тоже можно, но это уже другая история кому надо может поковыряться с ней.