you can try:
use Win32;
unless (Win32::IsAdminUser()) {Win32::MsgBox("Error: You need Administrator rights to start this program, stopping!", MB_ICONSTOP, "Error"); exit;}
Further you can look at the Extension AdminMisc by Dave Roth. There you can find LogonAsUser() and CreateProcessAsUser() functions.
Greetings Lutz
Good day,
I am developing an installation script which will install a set of programs I wrote. I need to check a few items before the install is allowed to proceed. I do not see a way to determine if the logged in user is an Administrator. Additionally, I need to modify the Owner of a Service to run as Administrator as well. Are there modules that I have not found yet to do these functions?
Adam Frielink
_______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
