Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA как узнать имя сетевого ресурса? / 17 сообщений из 17, страница 1 из 1
29.01.2007, 13:49
    #34289686
Belkin
Belkin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA как узнать имя сетевого ресурса?
Подскажите, мне нужно узнать какое имя сетевого ресурса задано для диска(например С или С$ или еще что) Как это решить програмно посредствам VBA?

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


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

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


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

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

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


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

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

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

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

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

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

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

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

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

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


Андрей.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.01.2007, 11:08
    #34295270
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA как узнать имя сетевого ресурса?
Насколько я знаю, снаружи (из сети) узнать имя логического диска на удаленной машине не получится. Его знает только сама удаленная машина.
Вообще, хранить общедоступные файлы на локальных машинах - плохая идея. Решайте вопрос административно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.01.2007, 15:44
    #34296649
Andrew
Andrew
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA как узнать имя сетевого ресурса?
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, 17:12
    #34297070
Belkin
Belkin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA как узнать имя сетевого ресурса?
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, 19:42
    #34297482
Andrew
Andrew
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA как узнать имя сетевого ресурса?
Чего не понял то. Приведен vbscript показывающий в том числе имена шар на удаленном компе. Мне что еще программу всю за тебе написать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.02.2007, 09:19
    #34298059
Belkin
Belkin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA как узнать имя сетевого ресурса?
AndrewЧего не понял то. Приведен vbscript показывающий в том числе имена шар на удаленном компе. Мне что еще программу всю за тебе написать?
Ага...(шутка..)
Я просто пишу на VBA, а VBScript не работал, вот и не понял.


Андрей.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.02.2007, 11:36
    #34298553
Andrew
Andrew
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA как узнать имя сетевого ресурса?
Тоже на 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
| Ответить | Цитировать | Написать  
06.11.2007, 13:28
    #34918673
Belkin
Belkin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA как узнать имя сетевого ресурса?
Подсказали пру ссылок одна из них именно то что мне нужно.
Вот она
И еще одна близкая по теме

-----------
Андрей.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA как узнать имя сетевого ресурса? / 17 сообщений из 17, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 381ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2163128]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 55ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 235ms
total:  381ms
x
x
Закрыть


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