ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Windows [игнор отключен] [закрыт для гостей] / Bat файл нп подключение сетевых дисков
22 сообщений из 22, страница 1 из 1
Bat файл нп подключение сетевых дисков
    #34402578
Простоинтересующийся
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Простоинтересующийся
Гость
AD не используются, в автозагрузке у пользователей ярлык на bat файл через который производится конфигурация рабочих станций... Как сделать, в зависимости от логина производить подключение того или иного сетевого ресурса, что-то вроде этого:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim Flag As Boolean 'Флаг для работы с конфигурационным файлом
Dim un As String
flag=True
un= %Username%
If Flag Then Exit
If un==IvanIvanovich Then
If net use S: Then net use S:/delete 'Если под данной буквой подключен сетевой ресурс - убрать его...
End If 
net use S: "\\ServerName\IvanWork"
End If
...
Рейтинг: 0 / 0
20.03.2007, 12:49:47
| Ответить | Цитировать | Написать  
Bat файл нп подключение сетевых дисков
    #34402672
GeT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GeT
Участник
По сабжу - не знаю.
А вообще интересно, у вас разные пользователи заходят под одним логином?
Если нет - тогда зачем такие сложности, у каждого своя автозагрузка.
...
Рейтинг: 0 / 0
20.03.2007, 13:15:41
| Ответить | Цитировать | Написать  
Bat файл нп подключение сетевых дисков
    #34402796
Простоинтересующийся
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Простоинтересующийся
Гость
GeTПо сабжу - не знаю.
А вообще интересно, у вас разные пользователи заходят под одним логином?
Если нет - тогда зачем такие сложности, у каждого своя автозагрузка.

Запуск батника производится с сервера...
Есть 50 (машин) пользователей, которым надо производить разную конфигурацию сетевых дисков...
...
Рейтинг: 0 / 0
20.03.2007, 13:47:47
| Ответить | Цитировать | Написать  
Bat файл нп подключение сетевых дисков
    #34402800
Фотография k-nike
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
k-nike
Участник
Может просто под разных пользователей разные бантики запускать?

...
Рейтинг: 0 / 0
20.03.2007, 13:49:03
| Ответить | Цитировать | Написать  
Bat файл нп подключение сетевых дисков
    #34402867
Простоинтересующийся
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Простоинтересующийся
Гость
k-nikeМожет просто под разных пользователей разные бантики запускать?



Нет, я попытаюсь обьяснить подробнее, на сервере есть расшаренный ресурсы, которые надо периодически подключать, мы решили расположить на сервере bat файл, который в зависимости от того какой возвращается username выполняет команду подключения того или иного ресурса.
Например Иванов включает компьютер, загружается локально используя свой логин и пароль, он прописан на сервере в локальных пользователях, после процедуры аутентификации выполняется автозагрузка, в которой ссылка на батник, в батнике если системная переменная %UserName% возвращает Ivanov, осуществляет подключение необходимых сетевых дисков на данный момент...
...
Рейтинг: 0 / 0
20.03.2007, 14:07:04
| Ответить | Цитировать | Написать  
Bat файл нп подключение сетевых дисков
    #34402917
Простоинтересующийся
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Простоинтересующийся
Гость
такая конструкция работает без проблем:
Код: plaintext
if %username%==GlTeh net use S: "\\MainFileServerTeh\GlTeh"
Но необходимо обеспечить многострочную конструкцию If
Если диск S уже используется - предварительно удалить его...
...
Рейтинг: 0 / 0
20.03.2007, 14:19:06
| Ответить | Цитировать | Написать  
Bat файл нп подключение сетевых дисков
    #34402999
Глюкман
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Глюкман
Гость
Код: plaintext
If net use S: Then net use S:/delete

так не пойдет, надеюсь вы это понимаете
как вариант: не проверяйте, просто удаляйте и всё (пусть себе ошибку выдаёт)

типа того:
Код: plaintext
1.
2.
3.
4.
5.
6.
flag=True
If Flag Then Exit

if %username% EQU IvanIvanovich (
net use S:/delete
net use S: \\ServerName\IvanWork
)
...
Рейтинг: 0 / 0
20.03.2007, 14:41:05
| Ответить | Цитировать | Написать  
Bat файл нп подключение сетевых дисков
    #34403038
Простоинтересующийся
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Простоинтересующийся
Гость
Глюкман
Код: plaintext
If net use S: Then net use S:/delete

так не пойдет, надеюсь вы это понимаете

Это понятно, просто я привёл пример, как хочу организовать... Смесь VB и С :)


Глюкманкак вариант: не проверяйте, просто удаляйте и всё (пусть себе ошибку выдаёт)

типа того:
Код: plaintext
1.
2.
3.
4.
5.
6.
flag=True
If Flag Then Exit

if %username% EQU IvanIvanovich (
net use S:/delete
net use S: \\ServerName\IvanWork
)


Это я сделал давно, хотелось бы с проверкой... Именно это и есть вопрос (!!!)
...
Рейтинг: 0 / 0
20.03.2007, 14:48:51
| Ответить | Цитировать | Написать  
Bat файл нп подключение сетевых дисков
    #34403039
Глюкман
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Глюкман
Гость
можно даже на общем сетевом ресурсе создать папки с именем пользователя и тогда эта штука будет выглядеть примерно так:
ещё и уточняю немножко))

Код: plaintext
1.
2.
3.
4.
5.
6.
Flag= 1 
If Flag= 1  goto er_end
net use S:/delete
if %username% EQU IvanIvanovich (
net use S: \\ServerName\КакойТоОбщийРесурс\%username%
)
:er_end

в принципе этот Flag не нужон, имхо
...
Рейтинг: 0 / 0
20.03.2007, 14:49:21
| Ответить | Цитировать | Написать  
Bat файл нп подключение сетевых дисков
    #34403054
Глюкман
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Глюкман
Гость
ну тогда думайте)
...
Рейтинг: 0 / 0
20.03.2007, 14:53:55
| Ответить | Цитировать | Написать  
Bat файл нп подключение сетевых дисков
    #34403059
Глюкман
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Глюкман
Гость
ПростоинтересующийсяСмесь VB и С :)





интересная смесь)
...
Рейтинг: 0 / 0
20.03.2007, 14:55:00
| Ответить | Цитировать | Написать  
Bat файл нп подключение сетевых дисков
    #34403244
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
Простоинтересующийся
хотелось бы с проверкой...

Старый трюк:
Код: plaintext
If not exist s:\nul net use s: /delete

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
20.03.2007, 15:37:40
| Ответить | Цитировать | Написать  
Bat файл нп подключение сетевых дисков
    #34403699
Простоинтересующийся
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Простоинтересующийся
Гость
Dimitry Sibiryakov
Простоинтересующийся
хотелось бы с проверкой...

Старый трюк:
Код: plaintext
If not exist s:\nul net use s: /delete
Posted via ActualForum NNTP Server 1.4
Что такое nul? У меня этот трюк не проходит...
...
Рейтинг: 0 / 0
20.03.2007, 17:28:54
| Ответить | Цитировать | Написать  
Bat файл нп подключение сетевых дисков
    #34403865
GeT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GeT
Участник
Простоинтересующийся Dimitry Sibiryakov
Простоинтересующийся
хотелось бы с проверкой...

Старый трюк:
Код: plaintext
If not exist s:\nul net use s: /delete
Posted via ActualForum NNTP Server 1.4
Что такое nul? У меня этот трюк не проходит...
положите на свой диск s любой файл (назовите его к примеру semafor.txt) и проверяйте:
If not exist s:\semafor.txt net use s: /delete
нет файла - нет диска.
...
Рейтинг: 0 / 0
20.03.2007, 18:09:26
| Ответить | Цитировать | Написать  
Bat файл нп подключение сетевых дисков
    #34404587
Простоинтересующийся
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Простоинтересующийся
Гость
GeT Простоинтересующийся Dimitry Sibiryakov
Простоинтересующийся
хотелось бы с проверкой...

Старый трюк:
Код: plaintext
If not exist s:\nul net use s: /delete
Posted via ActualForum NNTP Server 1.4
Что такое nul? У меня этот трюк не проходит...
положите на свой диск s любой файл (назовите его к примеру semafor.txt) и проверяйте:
If not exist s:\semafor.txt net use s: /delete
нет файла - нет диска.

Спасибо, я так пробовал, не очень удобно, я просто думал, что конструкция S:\Nul что-то зарезервированное, то есть диск с неким фиктивным, несуществующим файлом...
Всем спасибо, решил пока не обращать внимание на сообщение...
...
Рейтинг: 0 / 0
21.03.2007, 08:30:51
| Ответить | Цитировать | Написать  
Bat файл нп подключение сетевых дисков
    #34405066
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
Простоинтересующийся
Что такое nul?

nul это мелкомягкий аналог /dev/nul.
Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
21.03.2007, 11:07:48
| Ответить | Цитировать | Написать  
Bat файл нп подключение сетевых дисков
    #34405118
GeT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GeT
Участник
ну вообще-то null
...
Рейтинг: 0 / 0
21.03.2007, 11:20:28
| Ответить | Цитировать | Написать  
Bat файл нп подключение сетевых дисков
    #34405189
const64
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
const64
Участник
GeTIf not exist s:\semafor.txt net use s: /delete

not exist??

У меня так работает:

If exist s:\ net use s: /delete /y
...
Рейтинг: 0 / 0
21.03.2007, 11:39:32
| Ответить | Цитировать | Написать  
Bat файл нп подключение сетевых дисков
    #34405377
GeT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GeT
Участник
const64 GeTIf not exist s:\semafor.txt net use s: /delete

not exist??

У меня так работает:

If exist s:\ net use s: /delete /y
Может работать по всякому, я просто ничего не меняя в структуре написанного, привел пример с реальным файлом.
Понятно, что ваш пример логичнее.
...
Рейтинг: 0 / 0
21.03.2007, 12:16:20
| Ответить | Цитировать | Написать  
Bat файл нп подключение сетевых дисков
    #34405456
SLab
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SLab
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
set objNetwork = WScript.CreateObject("WScript.Network")
set fs=Wscript.CreateObject("Scripting.FileSystemObject")
dim strUser
strUser=objNetwork.UserName
if fs.DriveExists("S:") then objNetwork.RemoveNetworkDrive "S:", true, true
'       if strUser="Name1" then objNetwork.MapNetworkDrive "S:", "\servername\foldername", true
select Case strUser
       Case "Name1"
         objNetwork.MapNetworkDrive "S:", "\\servername\FolderName"

End select
если имя пользователя совпадает с именем папки на серваке
то можно
....
strFolder = "\\servername\"+strUser
objNetwork.MapNetworkDrive "S:", strFolder, true

без case или if
...
Рейтинг: 0 / 0
21.03.2007, 12:37:14
| Ответить | Цитировать | Написать  
Bat файл нп подключение сетевых дисков
    #34405522
Простоинтересующийся
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Простоинтересующийся
Гость
const64 GeTIf not exist s:\semafor.txt net use s: /delete

not exist??

У меня так работает:

If exist s:\ net use s: /delete /y

Спасибо, сделал так... Всё работает...
...
Рейтинг: 0 / 0
21.03.2007, 12:55:49
| Ответить | Цитировать | Написать  
Bat файл нп подключение сетевых дисков
    #34405605
const64
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
const64
Участник
GeT const64 GeTIf not exist s:\semafor.txt net use s: /delete

not exist??

У меня так работает:

If exist s:\ net use s: /delete /y
Может работать по всякому, я просто ничего не меняя в структуре написанного, привел пример с реальным файлом.
Понятно, что ваш пример логичнее.

У Вас написано - если файл на сетевом диске НЕ обнаружен - то отключить диск, т.е. not лишний.
В во-вторых, если Вы файл открываете, то надо писать обязательно /y, для подавления запроса, что типа на устройстве файлы открыты, дальнейшее продолжение приведет ...
Ну и в-третьих, открытый файл нужно будет закрыть, иначе он будет болтаться перед пользователем, что не удобно.
...
Рейтинг: 0 / 0
21.03.2007, 13:14:16
| Ответить | Цитировать | Написать  
22 сообщений из 22, страница 1 из 1
Форумы / Windows [игнор отключен] [закрыт для гостей] / Bat файл нп подключение сетевых дисков
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=26&msg=34402672&tid=1507814]:
 0ms
get settings:
 6ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 34ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 54ms
get tp. blocked users:
 1ms
others: 207ms
total:  333ms
созд. / загр.: 333ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]