compName = "ws_name"
findShareName = "share_name"
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & compName & "\root\cimv2")
Set shCollection = objWMI.ExecQuery("Select * from Win32_Share")
If shCollection.Count > 0 Then
'Wscript.Echo "Ресурсов общего доступа найдено: " & shCollection.Count
For Each objShare In shCollection
If StrComp(findShareName, objShare.Name, vbTextCompare) = 0 Then
Wscript.Echo "Полный путь к заданному ресурсу: " & vbCr & objShare.Path
findFlag = True
Exit For
End If
Next
If findFlag = False Then
Wscript.Echo "Заданный ресурс не найден."
End If
Else
Wscript.Echo "Ресурсов общего доступа не найдено."
End If
Общий путь доступа к общим ресурсам.
Доброго времени суток!
Подскажите как узнать путь доступа к общим ресурсам локального компьютера.
Входные параметры - имя общего ресурса,
Выходные параметры - путь доступа.
(Пример: C:\Document and Settings\Мои Документы\Общий ресурс)
Спасибо!
Подскажите как узнать путь доступа к общим ресурсам локального компьютера.
Входные параметры - имя общего ресурса,
Выходные параметры - путь доступа.
(Пример: C:\Document and Settings\Мои Документы\Общий ресурс)
Спасибо!
Если есть права администратора на интересующем локальном компьютере, то попробуйте воспользоваться вот этим сценарием:
Замените гипотетические ws_name и share_name на реальные имена локального компьютера и общего ресурса.
Код:
Замените гипотетические ws_name и share_name на реальные имена локального компьютера и общего ресурса.
2 Dmitrii :
Спасибо за помощь!
Код работает!
Желаю удачи!
Спасибо за помощь!
Код работает!
Желаю удачи!