The Win32::NetAdmin module has the function GroupIsMember, which tells you if a username is a member of the group. I think you can use it as follows:

if GroupIsMember("", "Administrators", "") {
  print "The script is running with administrator privileges\n"
} else {
  print "The script is running without administrator privileges\n"
};
[download]

More information on using Win32::NetAdmin may be found here: Administration of Machines. This is geared toward Windows NT Workstation but should still be relevant.

For samples of Perl scripts in a Windows environment, you may wish to have a look here: Sample Perl Scripts.

HTH,

In unix, I thought you also had to check if the GID is zero?

In Windows, you ight be better off just trying your operation and check if it works, since it's actually possible to restrict the operations Administrator can do. (However, they can give themselves permissions to do something.)

sub is_windows_admin {
    eval { open my $fh, "> C:/windows/system32/perl_check_if_windows_a
+dmin" or die; 1; } && 1;
}

if ( is_windows_admin() ) {
    # Strut your stuff
}
[download]