Mega Code Archive

 

Categories / Perl / Win32

 

Gets user login name on Windows

#!/usr/bin/perl -w use Win32; $username = Win32::LoginName(); print "User name: $username\n";