Question

I have been using User::pwent to get the full name of the system user in Perl:

require User::pwent;
my $full_name = (User::pwent::getpwnam(getlogin)->gecos)[0];

However, getpwnam is not implemented in Windows Perl. What’s the alternative to get the user’s full name on Windows? Is it available?

Answer 1

Poked around, best thing I could find is to use Win32API::Net::GetUserInfo():

require Win32API::Net;
Win32API::Net::UserGetInfo( '', $self->sysuser, 10, my $info = {} );
my $full_name = $info->{fullName};

Need to get it running on a few Windows boxes though, to make sure it works.

---

Update: Confirmed to work with user info level 10:

> perl -MWin32API::Net -E "Win32API::Net::UserGetInfo('',Win32::LoginName(), 10, my $info = {} ); say $info->{fullName}"
Bartholomew Simpson

Not sure why 1011 does not work as documented, but this is good enough for me.