#  WhoAmI.pl
#  Example 7.13:
#  ----------------------------------------
#  From "Win32 Perl Scripting: Administrators Handbook" by Dave Roth
#  Published by New Riders Publishing.
#  ISBN # 1-57870-215-1
#
#  This script shows who the user is logged in as.  This is useful to determine
#  what account the user is impersonating.
#
print "From the book 'Win32 Perl Scripting: The Administrator's Handbook' by Dave Roth\n\n";


use Win32;
print "\n\nCurrently logged on as:\n";
print "----------------------\n";
print "Domain:  ";
print Win32::DomainName(), "\n";
print "Computer: ";
print Win32::NodeName(),  "\n";
print "Userid:  ";
print Win32::LoginName(), "\n\n";