Архив форумов ЦИТФорума

[VVScorsar]

Как с помощью vbs(whs) можно добавить юзера на локальный ПК или удалённый (не в AD) и потом добавить в определённую группу.
Можно без проблем с помощью net user... но вот с помощью *.VBS получается только посмотреть win32_UserAccount, а добавить туда не получается. Если кто писал такие скрипы скинте в качестве примера.
PS Заране благодарен.

[brams]

вот, надеюсь, поможет
'
' создает на машине HOST пользователя sLogin с паролем sPwd и описанием descr
' потом включает его в группу sGroup
'
'

function CreateLogin(sLogin, sGroup, descr, sPwd, HOST)
dim comp, group, user, ADsPath, b, dataS, EOFD, sql

ADsPath="WinNT://" & HOST
set comp=GetObject(ADsPath)
set user=comp.Create("user", sLogin)
user.SetPassword sPwd
'user.Put "FirstName", "First_name"
'user.LastName="Last_Name"
'user.Email="email @mail.ru"
user.FullName=FullName
user.SetInfo

user.Desc ription=descr
user.SetInfo

set group=GetObject(ADsPath & "/" & sGroup & ",group")

group.Add user.ADsPath
group.SetInfo


set user=Nothing
set group=Nothing
set comp=Nothing
CreateLogin=true
end function