Имя пользователя:
Пароль:
 

Название темы: [решено] CMD: net user /add
Показать сообщение отдельно

Аватара для voler

Ветеран


Сообщения: 907
Благодарности: 36

Профиль | Отправить PM | Цитировать


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) - Это для домена?

Отправлено: 12:37, 28-11-2007 | #5

Название темы: [решено] CMD: net user /add