Simple create user (Perl)
This code can be found in
Chapter 4 of Managing Enterprise Active Directory Services
Purchase XP Cookbook or Networking Recipes for only $25 plus shipping! While supplies last.
Find out how to download all of the Perl code from this site.
# -----------------------------------------------------------------
# From the book "Managing Enterprise Active Directory Services"
# ISBN: 0-672-32125-4
# -----------------------------------------------------------------
use Win32::OLE;
my $Container = Win32::OLE->GetObject('LDAP://cn=Users,dc=xyz,dc=com');
my $User = $Container->Create('user','CN=jdoe');
$User->Put('sAMaccountName','jdoe');
$User->SetInfo();
|
This code has been viewed 743 times.
|
New from the creators of TechTasks.com:
StatSheet.com
|
