This code doenst work !!! :-( Still the same error. From the khen's code, i took some snippets to make it work. Like - final version that worked

use strict;
use warnings;
use Win32::NetAdmin qw(UserGetAttributes);


my $server      = "";
my $username    = Win32::LoginName;
my $password    = 'password';
my $passwordage = 0;
my $homeDir     = 'c:\\';
my $comment     = 'The home dir for user';
my $scriptpath  = 'C:\\';

Win32::NetAdmin::UserGetAttributes(
    "",
    $username,
    my $Getpassword,
    my $Getpasswordage,
    my $Getprivilege,
    my $GethomeDir,
    my $Getcomment,
    my $Getflags,
    my $Getscriptpath
);


print "The homedir for $username is $homeDir \n";
[download]

Why your code didnt work, even though its looks same. But what I dont understand is UserGetAttributes function is not used at all. In the above code, we are using some variables thats filled in and not from variables that are filled by USerGetAttributes. Shouldnt I say

print "The homedir for $username is $GethomeDir";
[download]

Please suggest and very sorry guys, I am just learning Perl if you think my questions are silly.