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

Reply via email to