Ejemplo VBScript

Aqui van una lista de ejemplo de gestion de usuarios de VBScript

Creacion de un Usuario, Grupo y Unidad Organizativa:

Set objDomain = GetObject(“LDAP://dc=fabrikam,dc=com”)
Set objOU = objDomain.Create(“organizationalUnit”, “ou=Management”)
objOU.SetInfoSet objOU = GetObject(“LDAP://OU=Management,dc=fabrikam,dc=com”)
Set objUser = objOU.Create(“User”, “cn= AckermanPilar”)
objUser.Put “sAMAccountName”, “AckermanPila”
objUser.SetInfo

Set objOU = GetObject(“LDAP://OU=Management,dc=fabrikam,dc=com”)
Set objGroup = objOU.Create(“Group”, “cn=atl-users”)
objGroup.Put “sAMAccountName”, “atl-users”
objGroup.SetInfo
objGroup.Add objUser.ADSPath

 

Habilitar una cuenta de usuario
Set objUser = GetObject _
(“LDAP://cn=myerken,ou=management,dc=fabrikam,dc=com”)
objUser.AccountDisabled = FALSE
objUser.SetInfo

Mover una cuenta de usuario
Set objOU = GetObject(“LDAP://ou=sales,dc=na,dc=fabrikam,dc=com”)
objOU.MoveHere _
“LDAP://cn=BarrAdam,OU=hr,dc=na,dc=fabrikam,dc=com”, vbNullString

Requerir cambio de contraseña

Set objUser = GetObject _
(“LDAP://CN=myerken,OU=management,DC=Fabrikam,DC=com”)
objUser.Put “pwdLastSet”, 0
objUser.SetInf0

Estos son solo algunos ejemplos, os dejo el link a una pagian con un monton de ejemplos de configuracion de usuarios con VBScritpt. Link