[решено] CMD: net user /add

[voler]

Сталкнулся с проблемой.

есть команда net user vasya 123456 /add /y
и net group администраторы vasya /add
добавляет пользователя vasya с паролем 123456 /y - это отвечаем, да полезно когда пароль длинее 10 знаков.

Проьблема возникает при добавлении пользователя(ей) в группу администраторы, код ошибки такая группа не существует.
Но это группа, есть пишу все в кодировке ANSII.

Есть вариант добавить пользователей, и срузу добавить их в группу на vbs?
sad

[d petr]

voler, надо писать net localgroup администраторы vasya /add. Почему тема в автоматической установке???

[voler]

Пордон не верно указал net localgroup так и делал!

[dimich22]

На vbs можно, например, так:
strComputer = "compname"
Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", "Admin")
objUser.SetPassword "password"
objUser.SetInfo

Set objGroup = GetObject("WinNT://" & strComputer & "/Администраторы,group")

Set objUser = GetObject("WinNT://" & strComputer & "/Admin,user")
objGroup.Add(objUser.ADsPath)

[voler]

strComputer = "compname" - это имя компьютера ".", т.е. текущий комп.
Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", "Admin") - создадим пользователя Admin
objUser.SetPassword "password" - пароль.
objUser.SetInfo

Set objGroup = GetObject("WinNT://" & strComputer & "/Администраторы,group") - полчуеам группу администраторы.

Set objUser = GetObject("WinNT://" & strComputer & "/Admin,user")
objGroup.Add(objUser.ADsPath) - Это для домена?

[samsobi]

пишу все в кодировке ANSII. »
А ведь вроде как нужно в DOS866 кодировке. 8-))) Попробуй...

[dimich22]

Нет. Скрипт для создания локального пользователя и помещения его в локальную группу.

[voler]

Ошибка.

Cцeнapий: J:\scripts\vbs\Paбoчиe cкpипты\user add.vbs
Cтpoкa: 10
Cимвoл: 1
Oшибкa: He yдaлocь дoбaвить или yдaлить члeнa лoкaльнoй гpyппы, тaк кaк oн нe cyщecтвyeт.
Кoд: 8007056B
Иcтoчник: (null)

Сам скрипт.

strComputer = "."
Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", "Admin")
objUser.SetPassword "123456789"
objUser.SetInfo

Set objGroup = GetObject("WinNT://" & strComputer & "/Администраторы,group")

Set objUser = GetObject("WinNT://" & strComputer & "/Admin,user")
objGroup.Add(objUser.ADsPath)


Пользователь создается.

[dimich22]

voler, если вместо "." использовать имя компьютера напрямую, то все работает.

Попробуй тогда вместо первой строки
Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName

Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _
strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _
strComputer & "'")

[voler]

А как можно сразу, запретить смену пароля для пользователя и срок действия не ограниченно?
/expires:never
/passwordchg:no

[dimich22]

Чтобы создать пользователя с неограниченным сроком действия пароля, в конец скрипта добавить еще строки:
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000

objUserFlags = objUser.Get("UserFlags")
objPasswordExpirationFlag = objUserFlags OR ADS_UF_DONT_EXPIRE_PASSWD
objUser.Put "userFlags", objPasswordExpirationFlag
objUser.SetInfo
А если пользователи в группе администраторов, то смысла в галке "Запретить пользователю менять пароль" нет.

[voler]

Спасибо. Учту.

[s127d]

У меня при установке Win2k отрабатывает такой файлик user.cmd


net user Malchik 123456 /add
net localgroup Администраторы Malchik /add
cusrmgr.exe -u Malchik +s PasswordNeverExpires


Кодировка, естес-но DOS

Проблем не наблюдается
:)

[Freezet]

а как сделать чтоб созданый пользователь не отображался в Учетные записи пользователей ? возможно ли это?

Использую способ

Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName

Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _
strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _
strComputer & "'")
Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", "test")
objUser.SetPassword "password"
objUser.SetInfo

Set objGroup = GetObject("WinNT://" & strComputer & "/Администраторы,group")

Set objUser = GetObject("WinNT://" & strComputer & "/test,user")
objGroup.Add(objUser.ADsPath)

[s127d]

Как-то сложно это на VB...
Не проще ли такой файлик в XP импортировать:

REGEDIT4

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList]
"Malchik"=dword:00000000
Правда, в таком случае пользователь не будет отображаться на "Экране приветствия" и в "Панель управления" - "Учетные записи пользователей", зато его можно найти через "Управление"- "Локальные пользователи и группы" - "Пользователи" (Но кто туда из простых смертных заглядывает ;) ).

[Freezet]

в таком случаи на комп нельзя попасть через telnet

[s127d]

в таком случаи на комп нельзя попасть через telnet »
Здесь - пасс...
Ибо возможность коннектиться через telnet сразу отключаю.

[Smeloch]

Спасибо за скрипт

strComputer = "."
Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", "Admin")
objUser.SetPassword "123456789"
objUser.SetInfo
Set objGroup = GetObject("WinNT://" & strComputer & "/Администраторы,group")
Set objUser = GetObject("WinNT://" & strComputer & "/Admin,user")
objGroup.Add(objUser.ADsPath) »

все работает, подскажите пожалуйста как его интегрировать в MDT 2008???

[kiborg85]

strComputer = "."
Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", "Admin")
objUser.SetPassword "123456789"
objUser.SetInfo
Set objGroup = GetObject("WinNT://" & strComputer & "/Администраторы,group")
Set objUser = GetObject("WinNT://" & strComputer & "/Admin,user")
objGroup.Add(objUser.ADsPath) » »

А зачем пользоваться скриптом для создания одного пользователя?
Помоему логичто было бы пользоваться подобным скриптом, для автоматического создания, к примеру, терминальных пользователей... Они, естественно, не должны быть админами... А иногда должны быть в двух или более групах.. (я не понял как этим скриптом добавить этого нового пользователя в две группы).
И что самое интересное, хотелось бы ещё этому новому пользователю выставить параметр "При входе в систему запускать следующую программу", вида "c:\паппк\Программа параметр1 /параметр2 /параметр3"