Windows Logon ID capture

dtharby has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Windows Logon ID capture by marto (Cardinal) on Jun 14, 2005 at 10:34 UTC
Hi, `Win32::LoginName()` [download] "Returns the username of the owner of the current Perl process." From Perl in a Nutshell (ISBN 1565922867) - 19.17 Win32 Extensions. Hope this helps, Cheers Martin	[reply] [d/l]
Re^2: Windows Logon ID capture by kaif (Friar) on Jun 14, 2005 at 13:52 UTC
[id://dtharby], as [id://marto] mentioned, you may enjoy the book Perl in a Nutshell. Luckily, it is now available online for free on Safari Bookshelf.	[reply]
Re^3: Windows Logon ID capture by NateTut (Deacon) on Jun 14, 2005 at 16:27 UTC
TANSTAAFL Its only "free" for 14 days. Then its $19.95 /month and up. I don't begrudge them their business though. I have seen various bootleg copies mounted to the internet before. Be aware that is copyright infringement and the O'Reilly police will get you.	[reply]
Re^4: Windows Logon ID capture by kaif (Friar) on Jun 14, 2005 at 16:31 UTC
Re^2: Windows Logon ID capture by dtharby (Acolyte) on Jun 14, 2005 at 15:04 UTC
Thanks Martin I attempted to assign the value of Win32::Login() to a scalar ($script_runner) but I get the following error Can't locate auto/Win32/Login.al in @INC I have checked and it is indeed right I am using ActiveState Perl 5.8 build 811 UPDATE: have used ppm to check for module but have had not luck finding the Win32 one....	[reply]
Re^3: Windows Logon ID capture by marto (Cardinal) on Jun 14, 2005 at 16:07 UTC
Hi, Have you had a look here. Hope this helps. Cheers, Martin	[reply]
Re^3: Windows Logon ID capture by NateTut (Deacon) on Jun 14, 2005 at 16:17 UTC
You will also need to put "`use Win32;`" in your script before you call the function. I don't think you'll need to PPM it, I believe its one of the core modules.	[reply] [d/l]
Re^4: Windows Logon ID capture by dtharby (Acolyte) on Jun 14, 2005 at 19:09 UTC
Re^3: Windows Logon ID capture by bmann (Priest) on Jun 14, 2005 at 19:16 UTC
The function is Win32::LoginName `my $script_runner = Win32::LoginName; # ^^^^` [download]	[reply] [d/l]
Re^4: Windows Logon ID capture by dtharby (Acolyte) on Jun 14, 2005 at 21:04 UTC