my $fullname = $finame." ".$laname;
my $objParent = Win32::OLE->GetObject("LDAP://OU=MyOU,dc=Mydomain,dc=ext");
my $objUser = $objParent->Create("user","cn=".$fullname);
$objUser->Put("sAMAccountName", $sAMAccountName);
$objUser->Put("userPrincipalName",$sAMAccountName."$domain");
$objUser->Put("givenName", $finame);
$objUser->Put("sn", $laname);
$objUser->Put("displayName", $finame." ".$laname);
$objUser->Put("description","description");
$objUser->SetInfo;
$objUser->SetPassword("Password");
$objUser->{AccountDisabled} = FALSE;
$objUser->SetInfo;
my $homedir = "\\\\server\\ext\\";
#my $homedrive = "";
my $profile = "\\\\server\\ext\\";
$objUser->Put("profilePath", $profile . $sAMAccountName);
$objUser->Put("homeDirectory", $homedir . $sAMAccountName);
$objUser->Put("homeDrive", "z:");
$objUser->SetInfo;
[\code]
My hunch is that something is wrong with the create line "my $objUser = $objParent->Create("user","cn=".$fullname);" but i can't figure out what it is. Can you help me?
(This post was edited by soft_king on Feb 17, 2009, 7:19 AM)