Любой язык - Подключение сетевых дисков

[nvhost]

впихнул,но ни каких изменений не увидел......может вы меня не так поняли, есть папка users есть два пользователя user1 и user2 права на папку users у пользователей домена стоит,полный доступ, иначе с ограниченными правами при выполнении скрипта вылазиет ошибка,а надо чтоб в users создалась папка user1 и пользователь имел права только на эту папку,ни в папку users ни в папку user2 пользователь user1 не мог войти

[atm_kzn]

Добрый день.

Есть vbs скрипт для подключения сетевых дисков у пользователей.



Код:

Код: Выделить всё

Set fs = WScript.CreateObject("Scripting.FileSystemObject") 
Set wn = WScript.CreateObject("WScript.Network") 
Set ap = CreateObject("Shell.Application") 
if fs.DriveExists("Y:") then wn.RemoveNetworkDrive "Y:", true, true 
wn.MapNetworkDrive "Y:", "\\server\share01", false, login, password
if fs.DriveExists("Z:") then wn.RemoveNetworkDrive "Z:", true, true 
wn.MapNetworkDrive "Z:", "\\server\share02", false, login, password

Пробовал подключать таким образом диски на своём компе - всё отлично работает, попробовал запустить его для другой учётки на виртуальной тачке - появляется ошибка:



Код:

Код: Выделить всё

Сценарий: C:\mab.vbs
Строка: 5
Символ: 1
Ошибка: Сетевой пароль указан неверно
Код: 80070056
Источник: WSHNetwork.MapNetworkDrive

Если в командной строке выполнить:



Код:

Код: Выделить всё

net use "\\server\share" password /user:login

то после выполнения скрипт выполняется, после перезагрузки ситуация повторяется.

Сеть без домена, подключение идёт к шаре на Samba.



Ну или подскажите, как сделать так, чтобы при запуске батника не было видно окна командной строки.

[Petya V4sechkin]

Цитата atm_kzn:



Пробовал подключать таким образом диски на своём компе - всё отлично работает, попробовал запустить его для другой учётки на виртуальной тачке - появляется ошибка



Можно сравнить разделы реестра:HKLM\SYSTEM\CurrentControlSet\Services\lanmanworkstation\parametersHKLM\SYSTEM\CurrentControlSet\Control\LsaHKLM\SYSTEM\CurrentControlSet\Control\Lsa\MSV1_0