I have an account creation script that parses through a text file (755KB and
6336 lines of user information). The script enables users that are currently
disabled in our AD Domain and creates new users account for users that do
not exist. The script will run fine sometimes and other times I get the
following error when entering the subroutine to create new user:
Win32::OLE(0.1701) error 0x8007203a: "The server is not operational"
after character 0 in "LDAP://DC/ou=Users,ou=Domain
Users,dc=foo,dc=com" at C:\Scripts\Addenable\addenable.pl line 214
eval {...} called at C:\Scripts\Addenable\addenable.pl line 214
main::createJagNet('SCALAR(0x1ae138c)', 'SCALAR(0x1ae13a4)
ae13bc)', 'SCALAR(0x1ae13d4)', 'SCALAR(0x1ae13ec)', 'SCALAR(0x1afa
(0x1afa9c0)') called at C:\Scripts\Addenable\addenable.pl line 76
It seems to be caused by the following piece of code.
my $dnParent = Win32::OLE -> GetObject("LDAP://$DCONTROLLER/$STUDENTDN");
Any help or advice would be much appreciated.
Thanks,
David
_______________________________________________
Perl-Win32-Admin mailing list
Perl-Win32-Admin@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
