Manipulación segura de objetos LDAP con VBscript con credenciales alternativas

Question

Conozco el uso de ADsDSOobject con credenciales explícitas para conectarme a un objeto AD para leer atributos, miembros de la lista, etc. Y el GetObject ("LDAP // ...") método para manipular esos objetos (agregar miembros de grupo, cambiar propiedades, etc.), pero ¿hay alguna forma de manipular atributos y membresías con credenciales explícitas?

El primer método que me refiero es algo así como ...

Set conn = Server.CreateObject("ADODB.Connection") 
Set cmd = Server.CreateObject("ADODB.Command") 
conn.Provider = "ADsDSOobject" 
conn.Properties("User ID") = AD_Username 
conn.Properties("Password") = AD_Password 
conn.Properties("Encrypt Password") = True 
conn.Open "Active Directory Provider" 
Set cmd.ActiveConnection = conn 

Pero ninguno de los ejemplos de secuencias de comandos que realizan tareas como la adición de un usuario a un grupo de dominio puede utilizar este enfoque en lo que a saber. ¿Hay alguna manera de hacerlo de alguna manera?

Answer 1

En VBScript, muy a menudo, está utilizando ADSI para agregar usuario a grupo. Aquí hay un código de ejemplo para agregar un usuario a un grupo de dominio

Set objUser = GetObject("LDAP://CN=jeffsmith,DC=fabrikam,DC=com") 
Set objGroup = GetObject("LDAP://CN=group1,DC=fabrikam,DC=com") 
objGroup.add(objUser.ADsPath) 

Funciona bien, pero siempre está usando sus credenciales de usuario actuales. Es porque GetObject no le permite especificar credenciales alternativas.

para especificar otro credentails, es necesario sustituir por GetObjectOpenDSObject

Const ADS_SECURE_AUTHENTICATION = 1 
Set openDS = GetObject("LDAP:") 

Set objUser = openDS.OpenDSObject("LDAP://CN=jeffsmith,DC=fabrikam,DC=com", 
    "username", 
    "password", 
    ADS_SECURE_AUTHENTICATION) 

Set objGroup = openDS.OpenDSObject("LDAP://CN=group1,DC=fabrikam,DC=com", 
    "username", 
    "password", 
    ADS_SECURE_AUTHENTICATION) 

objGroup.add(objUser.ADsPath)