82 lines
3.3 KiB
Plaintext
82 lines
3.3 KiB
Plaintext
//+-------------------------------------------------------------------------
|
|
//
|
|
// THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF
|
|
// ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO
|
|
// THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
|
|
// PARTICULAR PURPOSE.
|
|
//
|
|
// Copyright (c) Microsoft Corporation. All rights reserved.
|
|
//
|
|
// Perl Samples: Using ADSI with Perl
|
|
//
|
|
//--------------------------------------------------------------------------
|
|
|
|
Description
|
|
===========
|
|
The three sample Perl scripts demonstrate how to use ADSI with the Perl
|
|
scripting language.
|
|
* Binding.Pl shows how to bind to a Directory Service object.
|
|
* Create.Pl shows how to create and delete objects.
|
|
* Modify.Pl shows how to retrieve and set properties of an object,
|
|
including both single and multivalue properties.
|
|
|
|
These samples use the LDAP: provider and are suitable for Windows 2000 and
|
|
later networks running Active Directory.
|
|
|
|
Sample Files
|
|
============
|
|
* Binding.Pl
|
|
* Create.Pl
|
|
* Modify.Pl
|
|
|
|
Running the Sample
|
|
==================
|
|
To run these samples, you must install a script engine for the Perl language.
|
|
|
|
To run one of the samples
|
|
1. Open a command window and change to the directory that contains the
|
|
Perl scripts.
|
|
2. Make appropriate changes to a script using a text editor before running.
|
|
Details for each script appear in the following How the Sample Works
|
|
section.
|
|
3. At the command prompt, type the command
|
|
cscript <script>.pl
|
|
where <script> is one of Binding, Create, or Modify.
|
|
|
|
How the Sample Works
|
|
====================
|
|
Each Perl script needs modification for appropriate domain, user name,
|
|
password, and so forth before you run it. The individual scripts and
|
|
the necessary changes are as follows.
|
|
|
|
Binding.Pl
|
|
The Binding script uses the LDAP: provider to bind to a domain using
|
|
credentials for a specified user. To specify the domain and user, change
|
|
the following line appropriately.
|
|
$myDSObject = $ldapNameSpace->OpenDSObject("LDAP://myServer/DC=MyDomain,DC=Com",
|
|
"cn=MyUser,cn=users,dc=MyDomain,dc=com", "UserPassword", 1);
|
|
Create.Pl
|
|
The Create script creates then deletes a new user in a domain using the
|
|
credentials for a specified user. To specify the domain and user, change
|
|
the following line appropriately.
|
|
$myDSObject = $ldapNameSpace->OpenDSObject("LDAP://myServer/DC=MyDomain,DC=Com",
|
|
"cn=MyUser,cn=users,dc=MyDomain,dc=com", "UserPassword", 1);
|
|
The script creates a user named "LdapTestUser"; change the following lines if you
|
|
want to create a different user.
|
|
$newObj = $myDSObject->create("User", "cn=LdapTestUser");
|
|
-and-
|
|
$newObj->put("samAccountName", "LdapTestUser");
|
|
If you change the name of the user to create, you'll also need to change the
|
|
following line so that the user is deleted.
|
|
$myDSObject->delete("User", "cn=LdapTestUser");
|
|
|
|
Modify.Pl
|
|
The Modify script creates (and eventually deletes) a new user using the
|
|
credentials for a specified user and then illustrates how to get and set
|
|
properties of that new user. You'll need to make the same changes that
|
|
you made for the Create.Pl script to adapt the script to your situation.
|
|
|
|
See Also
|
|
========
|
|
LDAP ADsPath
|