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";


##</code><code>##

print "The homedir for $username is $GethomeDir";