|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » Любой язык - Проблема при создании юзера из командной строки |
|
Любой язык - Проблема при создании юзера из командной строки
|
Новый участник Сообщения: 22 |
Профиль | Отправить PM | Цитировать Народ, помогите, плз, советом. Ситуация такая:
На многих машинах (Windows 2000 SP4, WindowsXP SP2/3) надо создать, допустим, по 30 юзеров. Решил написать для этого скрипт. Содержание скрипта таково: net user bacbok passwd /add /expires:never /passwordchg:no net localgroup Administrators /add bacbok net localgroup Users /delete bacbok Добавить Local path (/homedir:path) я могу, но это мне не надо, мне надо добавить именно Connect, присвоить ему именно букву диска F: и прописать именно такой путь - \\server\bacbok Ну и ещё /expires:never не работает, видел на просторах Интернета, что вместо этой команды люди используют как по-вашему правильнее реализовать всё это? |
|
Отправлено: 13:55, 10-08-2012 |
Сообщения: 53179
|
Профиль | Отправить PM | Цитировать BACbOK, есть консольная утилита Cusrmgr.exe и соответствующие опции -h и -H
Также можно сделать VBS-скриптом WinNT Custom User Properties |
Отправлено: 16:22, 10-08-2012 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать BACbOK, попробуйте так:
Option Explicit Const ADS_UF_PASSWD_CANT_CHANGE = &H00000040 Const ADS_UF_DONT_EXPIRE_PASSWD = &H00010000 Dim strComputer Dim objIADsComputer Dim strUser For Each strComputer In Array("Machine01", "Machine02", "MachineN") Set objIADsComputer = GetObject("WinNT://" & strComputer & ",computer") For Each strUser In Array("User01", "User02", "UserN") With objIADsComputer.Create("user", strUser) .SetPassword "Some Password" .Put "userFlags", CLng(ADS_UF_DONT_EXPIRE_PASSWD Or ADS_UF_PASSWD_CANT_CHANGE) .Put "HomeDirDrive", "F:" .Put "HomeDirectory", "\\server\bacbok" .SetInfo objIADsComputer.GetObject("group","Administrators").Add(.ADsPath) End With Next Set objIADsComputer = Nothing Next WScript.Quit 0 |
Последний раз редактировалось Iska, 10-08-2012 в 17:20. Причина: Поправил: "Администраторы" → "Administrators" Отправлено: 17:15, 10-08-2012 | #3 |
Новый участник Сообщения: 22
|
Профиль | Отправить PM | Цитировать Iska, "Administrators", это я так, для примера написал.
У меня есть несколько групп разделенных в правах как надо. З.Ы. А за скрипт спасибо. |
Отправлено: 23:07, 10-08-2012 | #4 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Как повысить юзера до администратора из командной строки? | suvolod | Microsoft Windows NT/2000/2003 | 34 | 19-04-2016 07:21 | |
Разное - [решено] Проблема при дефрагментации загрузочных файлов из командной строки | Juriyx | Microsoft Windows 7 | 7 | 23-01-2012 20:32 | |
Как посмотреть квоту юзера в командной строке | Arthes | Microsoft Windows NT/2000/2003 | 5 | 27-05-2011 08:32 | |
Локализация командной строки без MUI. | AlexStud | Microsoft Windows NT/2000/2003 | 4 | 05-02-2008 13:41 | |
Редактирование DNS из командной строки | keyF | Сетевые технологии | 2 | 29-12-2004 19:08 |
|