Сообщество программистов Autodesk в СНГ

ADN Club => AutoLisp / VisualLISP и DCL => Тема начата: Алексей Кулик от 24-11-2017, 11:45:08

Название: Подключение и отключение сетевого диска без net use
Отправлено: Алексей Кулик от 24-11-2017, 11:45:08
Доброго всем!

Подскажите, как решить задачку - необходимо "втихаря" подключить сетевой диск, и потом так же "втихаря" его отключить. Сейчас использую конструкцию типа
Код - Auto/Visual Lisp [Выбрать]
  1. (command-s "_.shell" "net use b: <Сетевой путь> /user:\\USER PASSWORD")
  2. ;;;
  3. (command-s "_.shell" "net use b: \delete \y")
Несмотря на прямое указание ключа "\y", в некоторых случаях командное окно Windows все равно продолжает болтаться и требует подтверждения. Ну и, понятное дело, диск не отключается. Замена команды отключения на
Код - Auto/Visual Lisp [Выбрать]
  1. (command-s "_.shell" "echo Y | net use b: \delete")
Собственно хочется сделать это вообще без привлечения командного окна Windows. Поиск по инету вывел только на описание функции WNetAddConnection2 - но все, что я увидел, нацелено на применение в С++ или .NET с импортом функций из mpr.dll (https://de.vingrad.com/object-id50ba82706ccc19eb0102891a ; http://bazaarcodewiki.blogspot.ru/2011/06/c-wnetaddconnection2-reconnections-fail.html). Решения на VBA ничем принципиально не отличаются.
Так вот - возможно ли решить задачу подключения/отключения сетевого диска через VisualLISP? Из-за некоторых условий привлечение .NET крайне нежелательно. Но, если без него ну совсем никак, придется на нем что-то рисовать.

Спасибо :)
Название: Re: Подключение и отключение сетевого диска без net use
Отправлено: Александр Ривилис от 24-11-2017, 15:05:36
Алексей Кулик,
А чего это у тебя в лиспе в строке одинарные "\" ???
Название: Re: Подключение и отключение сетевого диска без net use
Отправлено: Алексей Кулик от 24-11-2017, 15:10:13
Упс, писал "всухую"... Конечно, слеши "/":

(command-s "_.shell" "net use b: /delete /y")
(command-s "_.shell" "echo Y | net use b: /delete")
Название: Re: Подключение и отключение сетевого диска без net use
Отправлено: Алексей Кулик от 29-11-2017, 18:08:50
М-да, склероз страшная штука: http://adn-cis.org/network-drives-by-lisp.html