use Win32::LanMan qw(NetUserGetInfo);

Win32::Lanman::NetUserGetInfo("","Administrator",\%info);

foreach $key (keys %info)
{
	print $key . " = " . $info{$key} . "\n";
}

##</code><code>##

flags = 66049
logon_server = \\*
last_logoff = 0
workstations =
usr_comment =
name = Administrator
parms =
auth_flags = 0
logon_hours =                      
full_name =
priv = 2
profile =
password_age = 15750588
user_id = 500
units_per_week = 168
max_storage = -1
script_path =
home_dir_drive =
home_dir =
country_code = 0
num_logons = 5
acct_expires = -1
primary_group_id = 513
last_logon = 984601420
password_expired = 0
code_page = 0
comment = Built-in account for administering the computer/domain
bad_pw_count = 0