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

d petr · Отправлено: **10:14, 28-11-2007** | #2

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

voler · Отправлено: **10:49, 28-11-2007** | #3

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

dimich22 · Отправлено: **12:06, 28-11-2007** | #4

На 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 · Отправлено: **12:37, 28-11-2007** | #5

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 · Отправлено: **12:41, 28-11-2007** | #6

Цитата voler:

пишу все в кодировке ANSII. »

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

dimich22 · Отправлено: **12:44, 28-11-2007** | #7

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

voler · Отправлено: **13:26, 28-11-2007** | #8

Ошибка.

Цитата:

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 · Отправлено: **14:26, 28-11-2007** | #9

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

Попробуй тогда вместо первой строки

Код:

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

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

voler · Отправлено: **16:12, 28-11-2007** | #10

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