Perl Script for getting Windows Logon Id?

[subendu]

Can anyone give me a perl script to get the windows logon id?

Thanks in advance.

Subendu

 

[mikevh]

The login id is one of the values in the %ENV hash.
Try this

print qq($_ => $ENV{$_}\n) for (sort keys %ENV)

to see what's in there.

 

[raklet]

You can also use the Win32 module.

Win32::LoginName()
[CORE] Returns the username of the owner of the current perl process.


Example:

use Win32;
$name = Win32::LoginName;