Для этого можно воспользоваться следующим сценарием ADSI (Active Directory Scripting Interface):
Ты сможешь лишь 85%
On Error Resume Next
strUser="UserID"
Set oDomain=GetObject("WINDOWS://YourDomain")
Set oUser=oDomain.Create ("user",strUser)
If (err.number=0) Then ‘If not 0 then user ID already exists
oUser.SetInfo
oUser.SetPassword "mypassword"
oUser.SetInfo
End If
Для обновления других параметров можно воспользоваться таким сценарием:
set user=GetObject("WINDOWS://domain/user")
User.FullName=FirstNameVar
User.HomeDirectory=UserHome
User.Profile="\\Server\Share\user"
User.LoginScript=LogonScript
User.Description="Description"
User.setinfo
Кому нужна эта Винда? Нам нужны бабки за 180 секунд!
