15. Применение ADSI

Применение ADSI для создания объектов Active Directory в скриптах VBScript, изменение паролей локальных учетных записей на компьютере Windows: самостоятельная работа

Упражнение 1. Работа с объектами домена

Напишите скрипт ADSI_Objects.vbs, который бы:

1) создавал в домене nwtraders.msft организационное подразделение с названием "OU_Имя_вашего_компьютера"

2) создавал в этом OU глобальную группу с именем (Global_Group_Имя_вашего_компьютера")

3) создавал в этом OU пользователя с именем (User_Имя_вашего_компьютера")

4) помещал созданного вами пользователя в эту группу

Упражнение 2. Работа с учетными записями локального компьютера

Напишите скрипт ChangePassword.vbs, который бы менял пароль локального администратора вашего компьютера на "123".

Ответ к упражнению 1. Работа с объектами домена

Код скрипта ADSI_Objects.vbs может быть таким:

Dim sCompName, oNetwork, oDom, oOU, oGroup, oUser

Set oNetwork = CreateObject("Wscript.Network")

sCompName = oNetwork.ComputerName

Set oDom = GetObject("LDAP://dc=nwtraders,dc=msft")

Set oOU = oDom.Create("organizationalUnit", "ou=OU_" & sCompName)

oOU.SetInfo

Set oGroup = oOU.Create("Group", "cn=Global_Group_" & sCompName)

oGroup.Put "SAMAccountName", "Global_Group_" & sCompName

oGroup.SetInfo

Set oUser = oOU.Create("User", "cn=User_" & sCompName)

oUser.Put "SAMAccountName", "User_" & sCompName

oUser.SetInfo

oGroup.Add ("LDAP://cn=User_" & sCompName & ", OU=OU_" & sCompName & ", DC=nwtraders, DC=msft")

Ответ к упражнению 2. Работа с учетными записями локального компьютера

Код скрипта ChangePassword.vbs может быть таким:

Dim sCompName, oNetwork, oUser

Set oNetwork = CreateObject("Wscript.Network")

sCompName = oNetwork.ComputerName

Set oUser = GetObject("WinNT://" & sCompName & "/administrator,user")

oUser.SetPassword "123"

oUser.SetInfo

Получить учебные материалы по этому курсу