LDAP sécurisé manipulation d'objets avec VBscript l'aide d'autres références

Je suis au courant de l'utilisation de ADsDSOobject explicite des informations d'identification pour vous connecter à une ANNONCE de l'objet d'attributs de lecture, liste des membres, etc. Et la fonction GetObject("LDAP//..."), la méthode de manipulation de ces objets (en ajoutant les membres du groupe, la modification des propriétés, etc.), mais est-il une façon de manipuler les attributs et les associations avec les informations d'identification explicites?

La première méthode, je fais allusion, c'est quelque chose comme...

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

Mais aucun des exemples de script qui exécute des tâches comme l'ajout d'un utilisateur à un groupe de domaine peut utiliser cette approche pour autant que je sais. Est-il un moyen de faire en quelque sorte?

OriginalL'auteur Skatterbrainz | 2011-03-12

  1. 5

    En VBScript, très souvent, vous utilisez ADSI pour ajouter un utilisateur au groupe. Voici un exemple de code pour ajouter un utilisateur à un groupe de domaine

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

    Il fonctionne très bien mais il est toujours à l'aide de votre compte courant credentails. C'est parce que GetObject ne vous permet pas de spécifier d'autres informations d'identification.

    Pour spécifier un autre credentails, vous devez remplacer GetObject par OpenDSObject

    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)
    Grâce Harvey! Je ne sais pas pourquoi je n'ai pas vu ça avant.

    OriginalL'auteur Harvey Kwok