I'm running activeperl 5.6 on Windows NT 4 with IIS4, and I'm trying to
create accounts via a web applet I'm working on, however I can't seem to
get the UserCreate function to actually create accounts. The following code
snippet illustrates
sub ValidateUser {
if (Win32::NetAdmin::UsersExist('', $q::username)) {
$error_message .= '<li> User ' . $q::username . ' already
exists.</li>';
&ReturnError;
}
else {
if (Win32::NetAdmin::UserCreate('', $q::username, $q::password, 0,
'USER_PRIV_GUEST', 'e:/Inetpub/www/FiveTribes/members/', '5tribes.com web
subscriber', 'UF_NORMAL_ACCOUNT | UF_SCRIPT | UF_DONT_EXPIRE_PASSWD', "")) {
return 1 }
else {
$error_message .= '<li> Creation of account ' . $q::username .
'
failed.</li>';
&ReturnError;
}
}
}
It doesn't work from the console or via cgi, and at this point I'm unable to
fathom what could be the cause. It's being run by an account with
administration privledges so that's moot, and I seem to have followed the
function format properly. Anyone who could provide input would be my
personal hero :)
Nathan
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.
Share information about yourself, create your own public profile at
http://profiles.msn.com.
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
