# From the book "Active Directory, Third Edition" 
# ISBN: 0-596-10173-2

use Win32::OLE;

use strict;
my ($objDomain, $objUser);
# Creating a user in a Windows NT domain

$objDomain = Win32::OLE->GetObject('WinNT://MYDOMAIN');
$objUser = $objDomain->Create('user', 'vlaunders');
$objUser->SetInfo();

# Creating a local user on a computer or member server
# Valid for Windows NT/2000/2003
$objComputer = Win32::OLE->GetObject('WinNT://MYCOMPUTER,Computer');
$objUser = $objComputer->Create('user', 'vlaunders');
$objUser->SetInfo();

# Creating a user in Active Directory
$objDomain = Win32::OLE->GetObject('LDAP://cn=Users,dc=mycorp,dc=com');
$objUser = $objDomain->Create('user', 'cn=vlaunders');
$objUser->Put('sAMAccountName', 'vlaunders');
$objUser->Put('userPrincipalName', 'vlaunders@mycorp.com');
$objUser->SetInfo();