ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA как узнать имя сетевого ресурса?
17 сообщений из 17, страница 1 из 1
VBA как узнать имя сетевого ресурса?
    #34289686
Belkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Belkin
Участник
Подскажите, мне нужно узнать какое имя сетевого ресурса задано для диска(например С или С$ или еще что) Как это решить програмно посредствам VBA?

Андрей.
...
Рейтинг: 0 / 0
29.01.2007, 13:49
| Ответить | Цитировать | Написать  
VBA как узнать имя сетевого ресурса?
    #34289720
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
Код: plaintext
1.
2.
    Dim fso As New Scripting.FileSystemObject
    Debug.Print fso.GetDriveName(Your_Path) & "\"
...
Рейтинг: 0 / 0
29.01.2007, 13:57
| Ответить | Цитировать | Написать  
VBA как узнать имя сетевого ресурса?
    #34289768
Belkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Belkin
Участник
Melkiades
Код: plaintext
1.
2.
    Dim fso As New Scripting.FileSystemObject
    Debug.Print fso.GetDriveName(Your_Path) & "\"


Пишит типо того "Нет пользовательского типа" в первой же строке.

Андрей
...
Рейтинг: 0 / 0
29.01.2007, 14:07
| Ответить | Цитировать | Написать  
VBA как узнать имя сетевого ресурса?
    #34289879
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
Подцепите в референсы Microsoft Scripting Runtime
...
Рейтинг: 0 / 0
29.01.2007, 14:40
| Ответить | Цитировать | Написать  
VBA как узнать имя сетевого ресурса?
    #34290263
Belkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Belkin
Участник
MelkiadesПодцепите в референсы Microsoft Scripting Runtime
Может мы друг друга не поняли.
Мой комп в сети имеет имя ASS, диск С и D имеют имя общено ресурса в сети C$ b D$
Значит с другого компа через сеть я могу обратиться как \\ASS\C$\ или \\ASS\D$\
Вот мне и нужны эти C$ и\или D$


Андрей.
...
Рейтинг: 0 / 0
29.01.2007, 16:08
| Ответить | Цитировать | Написать  
VBA как узнать имя сетевого ресурса?
    #34290340
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
Код: plaintext
Debug.Print fso.Drives("x").ShareName
...
Рейтинг: 0 / 0
29.01.2007, 16:23
| Ответить | Цитировать | Написать  
VBA как узнать имя сетевого ресурса?
    #34290485
Belkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Belkin
Участник
Melkiades
Код: plaintext
Debug.Print fso.Drives("x").ShareName

Поставим вопрос иначе.
Я не знаю как на моем компе задано имя сетевого ресурса, по программа(VBA) должна оставлять это значение при каком-нибудь событии(нажатие кнопки), скажемв ячейке cells(i,2)

А в твоем примере вместо х должен быть путь к файлу?


Андрей
...
Рейтинг: 0 / 0
29.01.2007, 16:57
| Ответить | Цитировать | Написать  
VBA как узнать имя сетевого ресурса?
    #34290612
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
Belkin Melkiades
Код: plaintext
Debug.Print fso.Drives("x").ShareName

Поставим вопрос иначе.
Я не знаю как на моем компе задано имя сетевого ресурса, по программа(VBA) должна оставлять это значение при каком-нибудь событии(нажатие кнопки), скажемв ячейке cells(i,2)

А в твоем примере вместо х должен быть путь к файлу?

x - это буква диска (сетевого, примапленного). Ее-то вы знаете? А если нет, то как вы собрались этот сетевой ресурс идентифицоровать?
...
Рейтинг: 0 / 0
29.01.2007, 17:28
| Ответить | Цитировать | Написать  
VBA как узнать имя сетевого ресурса?
    #34290843
Belkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Belkin
Участник
Melkiades Belkin Melkiades
Код: plaintext
Debug.Print fso.Drives("x").ShareName

Поставим вопрос иначе.
Я не знаю как на моем компе задано имя сетевого ресурса, по программа(VBA) должна оставлять это значение при каком-нибудь событии(нажатие кнопки), скажемв ячейке cells(i,2)

А в твоем примере вместо х должен быть путь к файлу?

x - это буква диска (сетевого, примапленного). Ее-то вы знаете? А если нет, то как вы собрались этот сетевой ресурс идентифицоровать?

Задача у меня следующая:
Есть сетевая БД, в которой каждый пользователь может задать файл, путь к которому сохраняется в БД в виде \\Имя_Компа\Имя_Сетевого_ресурса\Путь_на_Компе_без_диска
Вот мне и нужно знать это имя сетевого ресурса, чтобы каждый пользователь мог открыть этот файл.

Сейчас я жестко работаю со строкой, вместо диска(пути) я вставляю \\Имя_Компа\Имя_Сетевого_ресурса.
Опосения в том, что без меня поставят комп или я забуду задать имя сетевогоресурса, как имя дискаи $ Тогда не сможем смотреть файлы.

Андрей.
...
Рейтинг: 0 / 0
29.01.2007, 18:34
| Ответить | Цитировать | Написать  
VBA как узнать имя сетевого ресурса?
    #34295087
Belkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Belkin
Участник
Melkiades, есть еще идеи?


Андрей.
...
Рейтинг: 0 / 0
31.01.2007, 10:30
| Ответить | Цитировать | Написать  
VBA как узнать имя сетевого ресурса?
    #34295270
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
Насколько я знаю, снаружи (из сети) узнать имя логического диска на удаленной машине не получится. Его знает только сама удаленная машина.
Вообще, хранить общедоступные файлы на локальных машинах - плохая идея. Решайте вопрос административно.
...
Рейтинг: 0 / 0
31.01.2007, 11:08
| Ответить | Цитировать | Написать  
VBA как узнать имя сетевого ресурса?
    #34296649
Andrew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrew
Участник
vbs:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
On Error Resume Next
Dim objWMIService
oComputer = "comp": prop = "Win32_Share" 
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & oComputer & "\root\cimv2")
Set ValSet = GetObject("winmgmts://" & oComputer).InstancesOf(prop,  48 )
		For Each ValItem In ValSet
		Set op = ValItem.properties_
			For Each objProperty In op
			WScript.Echo objProperty.name & " - " & replace(objProperty.value, VbCrLf, "")
			Next
		Next
из под юзер аккаунта не пробовал, скорее всего естественно пошлёт
...
Рейтинг: 0 / 0
31.01.2007, 15:44
| Ответить | Цитировать | Написать  
VBA как узнать имя сетевого ресурса?
    #34297070
Belkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Belkin
Участник
Andrewvbs:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
On Error Resume Next
Dim objWMIService
oComputer = "comp": prop = "Win32_Share" 
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & oComputer & "\root\cimv2")
Set ValSet = GetObject("winmgmts://" & oComputer).InstancesOf(prop,  48 )
		For Each ValItem In ValSet
		Set op = ValItem.properties_
			For Each objProperty In op
			WScript.Echo objProperty.name & " - " & replace(objProperty.value, VbCrLf, "")
			Next
		Next
из под юзер аккаунта не пробовал, скорее всего естественно пошлёт

Если честно, то ничего не понял.
Как мне переменной S типа string присвоить значение сетевого ресурса?

Заранее благодарен.
...
Рейтинг: 0 / 0
31.01.2007, 17:12
| Ответить | Цитировать | Написать  
VBA как узнать имя сетевого ресурса?
    #34297482
Andrew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrew
Участник
Чего не понял то. Приведен vbscript показывающий в том числе имена шар на удаленном компе. Мне что еще программу всю за тебе написать?
...
Рейтинг: 0 / 0
31.01.2007, 19:42
| Ответить | Цитировать | Написать  
VBA как узнать имя сетевого ресурса?
    #34298059
Belkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Belkin
Участник
AndrewЧего не понял то. Приведен vbscript показывающий в том числе имена шар на удаленном компе. Мне что еще программу всю за тебе написать?
Ага...(шутка..)
Я просто пишу на VBA, а VBScript не работал, вот и не понял.


Андрей.
...
Рейтинг: 0 / 0
01.02.2007, 09:19
| Ответить | Цитировать | Написать  
VBA как узнать имя сетевого ресурса?
    #34298553
Andrew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrew
Участник
Тоже на vba:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
On Error Resume Next
Dim objWMIService
oComputer = "comp": prop = "Win32_Share"
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & oComputer & "\root\cimv2")
Set ValSet = GetObject("winmgmts://" & oComputer).InstancesOf(prop,  48 )
        For Each ValItem In ValSet
        Set op = ValItem.properties_
            For Each objProperty In op
                If objProperty.Name = "Name" Then Debug.Print Replace(objProperty.Value, vbCrLf, "")
            Next
        Next
найди отличие
...
Рейтинг: 0 / 0
01.02.2007, 11:36
| Ответить | Цитировать | Написать  
VBA как узнать имя сетевого ресурса?
    #34918673
Belkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Belkin
Участник
Подсказали пру ссылок одна из них именно то что мне нужно.
Вот она
И еще одна близкая по теме

-----------
Андрей.
...
Рейтинг: 0 / 0
06.11.2007, 13:28
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA как узнать имя сетевого ресурса?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=34289686&tid=2163128]:
 0ms
get settings:
 10ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 87ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 76ms
get tp. blocked users:
 2ms
others: 247ms
total:  464ms
созд. / загр.: 464ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]