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

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

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

Код:

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

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

s127d · Отправлено: **07:49, 30-11-2007** | #13

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

Цитата:

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

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

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

Freezet · Отправлено: **14:29, 09-12-2007** | #14

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

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

Код:

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 · Отправлено: **18:01, 09-12-2007** | #15

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

Код:

REGEDIT4

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList]
"Malchik"=dword:00000000

Правда, в таком случае пользователь не будет отображаться на "Экране приветствия" и в "Панель управления" - "Учетные записи пользователей", зато его можно найти через "Управление"- "Локальные пользователи и группы" - "Пользователи" (Но кто туда из простых смертных заглядывает

).

Freezet · Отправлено: **19:11, 09-12-2007** | #16

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

s127d · Отправлено: **17:09, 10-12-2007** | #17

Цитата Freezet:

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

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

Smeloch · Отправлено: **11:48, 24-05-2010** | #18

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

Цитата voler:

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 · Отправлено: **18:42, 01-10-2013** | #19

Цитата 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) » »

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