Code: [show] | [select all]
#Code By: 523066680@163.com
#2017-06
my $self = __FILE__;
if ($ENV{"USERNAME"} =~ /Administrator/i)
{
print "is Admin";
<STDIN>;
}
else
{
print "not Admin";
system("runas /User:Administrator \"perl \\\"$self\\\"\"");
}
exit;
Code: [show] | [select all]
#Code By: 523066680@163.com
#2017-06
my $self = __FILE__;
unless ($ENV{"USERNAME"} =~ /Administrator/i)
{
system("runas /User:Administrator \"perl \\\"$self\\\"\"");
exit;
}
print "Hello Admin\n";
<STDIN>;
exit;