Имя пользователя:
Пароль:
 | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » Любой язык - Подключение сетевых дисков

Ответить
Настройки темы
Любой язык - Подключение сетевых дисков


Сообщения: 595
Благодарности: 9

Профиль | Отправить PM | Цитировать


Здравствуйте!
Есть батник:
---------------------------------------------------------------------------------
@echo off

net time /domain:mou102.local /set /y

rem net use m: \\server2\Metodika$ /persistent:no
rem net use r: \\server2\Biblioteka$ /persistent:no


rem if %username%==borodulya net use s: \\Server2\Shared_folder$\school\erudit /persistent:no



rem подключение пользовательского диска

net use u: /delete - это типа сначал удаляем существующий диск


if exist \\server2\Shared_folder$\%username% goto label
rem проверяем наличие папки, если есть такая папка, то идем на ок,
rem если нету папки, идем дальше

mkdir \\server2\Shared_folder$\%username%
rem создаем папку c таким же именем, с каким пользователь входит в сеть

xcacls \\server2\Shared_folder$\%username% /t /c /g Domain\%username%:c /y
rem назначаем для пользователя на папку разрешения Change

:label
net use u: \\server2\Shared_folder$\%username% /persistent:no
rem подключаем папку как сетевой диск U
---------------------------------------------------------------------------------

Батник подключает общие и персональный сетевые диски.

Есть скрипт:

---------------------------------------------------------------------------------

On Error Resume Next

Set objWshNetwork = CreateObject( "WScript.Network" )
Set objShell = CreateObject("Shell.Application")


MapDrive "U:", "\\server2\Shared_folder\school\%username%", "Пользовательский"

MapDrive "S:", "\\server2\Shared_folder\school\school", "Общий"

Sub MapDrive(strDrive, strPath, strName)
On Error Resume Next
objWshNetwork.RemoveNetworkDrive strDrive, vbTrue, vbTrue
objWshNetwork.MapNetworkDrive strDrive, strPath, vbTrue
objShell.NameSpace(strDrive).Self.Name = strName
End Sub

---------------------------------------------------------------------------------

Это скрипт мне подсказали на форуме - дает имя сетевому диску.

Хочу из скрипта и батника сделать один скрипт или батник делающий следующее: создает общие сетевые диски и дает имя им, и создает персональные диски, закрепляет права пользователя и дает имя этому диску.

Подскажите пожалуйста код.

Спасибо

Отправлено: 14:33, 20-11-2009

 

Старожил


Сообщения: 426
Благодарности: 108

Профиль | Отправить PM | Цитировать


1. Я недостаточно внимательно посмотрел приведенный "alecsandrb" скрипт, добавлять пользователя туда не надо, он лежит в переменной "UsersFolderName". Можно заменить права изменения на полные (:c заменить на :f).

2. Нужно посмотреть на готовую строку с xcacls после раскрытия переменных - возможно где-то пропущен пробел (или наоборот лишний) - просмотрите содержимое переменной StrCmdRightUsers перед вызовом CMD.

3. Попробуйте выполнить указанную строку вручную - какие ошибки будут...

-------
Как сказало Дерево Дровосеку: "я - пень".


Отправлено: 15:04, 02-08-2010 | #11



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

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


Аватара для atm_kzn

Пользователь


Сообщения: 67
Благодарности: 13

Профиль | Отправить PM | Цитировать


Добрый день.
Есть 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.

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

-------
/*Чтобы понять рекурсию, надо понять рекурсию*/


Последний раз редактировалось atm_kzn, 01-03-2011 в 16:19.


Отправлено: 14:12, 01-03-2011 | #12



Moderator


Сообщения: 53589
Благодарности: 15546

Профиль | Отправить PM | Цитировать


Цитата atm_kzn:
Пробовал подключать таким образом диски на своём компе - всё отлично работает, попробовал запустить его для другой учётки на виртуальной тачке - появляется ошибка
Можно сравнить разделы реестра:
  • HKLM\SYSTEM\CurrentControlSet\Services\lanmanworkstation\parameters
  • HKLM\SYSTEM\CurrentControlSet\Control\Lsa
  • HKLM\SYSTEM\CurrentControlSet\Control\Lsa\MSV1_0

Отправлено: 16:53, 01-03-2011 | #13



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » Любой язык - Подключение сетевых дисков

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Подключение сетевых дисков у пользователей AD davzom Microsoft Windows NT/2000/2003 35 30-05-2013 07:53
Подключение сетевых дисков dinamitbrein Сетевые технологии 6 05-07-2012 16:33
Разное - Автоматическое подключение сетевых дисков hoho Microsoft Windows 2000/XP 5 11-06-2012 09:08
Подключение сетевых дисков (маппинг) ss777 Microsoft Windows NT/2000/2003 1 25-08-2008 08:55
подключение сетевых дисков у пользоватетей AD e v g e n Microsoft Windows NT/2000/2003 2 10-12-2007 11:21




 
Переход