vbs для разрыва соединения

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

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

Ответить

vbs для разрыва соединения

Страница 1 из 1
1