Re: NetAdmin::UserCreate

I'm sure that the problem is with the values of $account{priv} and $account{flags}. You are quoting them, which turns the values into a string but USER_PRIV_USER et al are really named numerical constants exported by the Win32::NetAdmin package. You'll notice that they are not quoted in the example on the page that you linked to. Try removing the quotes around the values you are putting in $account{priv} and $account{flags} Try:

foreach my $server (@servers ){
   my %account = (
        server => "\\\\$server",
        user => "Test",
        password => "12345678",
        homedir  => "",
        priv => USER_PRIV_USER,
        flags => UF_SCRIPT |UF_TEMP_DUPLICATE_ACCOUNT,
        comment  => "Test",
        logon => "",
        );

    unless (Win32::NetAdmin::UserCreate(@account{ qw/server user passw
+ord/}, 0, @account{ qw/priv homedir comment flags logon/})) 
    {
        print LOG "$server,Problem,Unable To Create Account,".Win32::N
+etAdmin::GetError().",".localtime()."\n";

        ++$errorct;
    } else {
        print LOG "$server,Good,Added Account,".localtime()."\n";
        ++$goodct;
    }
}
[download]

--
Clayton

Comment on Re: NetAdmin::UserCreate Download Code

Replies are listed 'Best First'.
Re^2: NetAdmin::UserCreate by Anonymous Monk on Nov 04, 2004 at 18:31 UTC
Thanks for getting back to me. My orginal testing had them without the quotes. I just tried it again by removing the quotes, but the output is the same failure, 87.	[reply]
Re^3: NetAdmin::UserCreate by clscott (Friar) on Nov 08, 2004 at 12:25 UTC
That was the only error I could see wit hte perl, the rest is likely in the actual permissions you are trying to set? Is there a way to get more information out of the error messages? -- Clayton	[reply]
Re^4: NetAdmin::UserCreate by Anonymous Monk on Nov 08, 2004 at 18:29 UTC
I decided to use Win32::OLE instead. Win32::OLE worked perfectly, Ex: `$target = Win32::OLE-> GetObject("WinNT://$server"); print "OLE Error: ".Win32::OLE->LastError)."\n"; $user = $target-> Create("user", wacka); print "OLE Error: ".Win32::OLE->LastError)."\n"; $set=$user->SetInfo;` [download] Thanks for your feedback.	[reply] [d/l]