Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/vbs для разрыва соединения - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вопросы по VB, VBS, VB.net » vbs для разрыва соединения
vbs для разрыва соединения
TD_MElec Дата: Среда, 03.02.2021, 19:28 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 1 ±
Замечаний: 0% ±

Excel 2019
Добрый день.

На сетевом ресурсе лежит некая dll. К ней подключаются пользователи. Для замены этой dll необходимо разорвать все соединения с ней. Это возможно если администратор от своего имени запускает cmd и вводит команду:
[vba]
Код
openfiles /disconnect /s fileserver /a * /op "e:\exchange\ltdm"
[/vba]ltdm - директория в которой лежат собственно те файлы, с которыми надо порвать соединения. Если эту команду положить в bat файл, то возникает ошибка о разрядности ОС. Есть мысль попробовать положить это в vbs файл и запустить его через wscript.exe. Для этого написал следующий код:
[vba]
Код
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "openfiles /disconnect /s fileserver /a * /op ""e:\exchange\ltdm""", 0, True
'objShell.Run "C:\Windows\SysWOW64\openfiles.exe /disconnect /s fileserver /a * /op ""e:\exchange\ltdm""", 0, True
[/vba]
Но ничего не получается ни при первом, ни при втором варианте.

Прошу помощи, как с помощью vbs разорвать активные соединения в конкретной папке?


Сообщение отредактировал TD_MElec - Среда, 03.02.2021, 19:30
 
Ответить
СообщениеДобрый день.

На сетевом ресурсе лежит некая dll. К ней подключаются пользователи. Для замены этой dll необходимо разорвать все соединения с ней. Это возможно если администратор от своего имени запускает cmd и вводит команду:
[vba]
Код
openfiles /disconnect /s fileserver /a * /op "e:\exchange\ltdm"
[/vba]ltdm - директория в которой лежат собственно те файлы, с которыми надо порвать соединения. Если эту команду положить в bat файл, то возникает ошибка о разрядности ОС. Есть мысль попробовать положить это в vbs файл и запустить его через wscript.exe. Для этого написал следующий код:
[vba]
Код
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "openfiles /disconnect /s fileserver /a * /op ""e:\exchange\ltdm""", 0, True
'objShell.Run "C:\Windows\SysWOW64\openfiles.exe /disconnect /s fileserver /a * /op ""e:\exchange\ltdm""", 0, True
[/vba]
Но ничего не получается ни при первом, ни при втором варианте.

Прошу помощи, как с помощью vbs разорвать активные соединения в конкретной папке?

Автор - TD_MElec
Дата добавления - 03.02.2021 в 19:28
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вопросы по VB, VBS, VB.net » vbs для разрыва соединения
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!