Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
![[solved]](/battie/theme/default/icons/tick.png "solved"){kind=icon}
+11 replies![[Homepage]](/battie/theme/default/homepage.gif)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!perl
use strict;
use warnings;
use FileHandle;
use File::Spec;
my $file = File::Spec->catfile('C:', 'Program Files (x86)', 'perl-test.txt');
my $fh = FileHandle->new($file, '>');
if( defined $fh ) {
$fh->print("bar\n");
$fh->close();
}else{
die("Error: $!");
}
1
2
3
4
5
6
7
Font
Wie installiert man ein Modul?
Blog
Preferences![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
Tags:
my $install_dir = File::Spec->catdir('C:', 'Program Files (x86)');
my $glaskugel = Glaskugel->new();
if( $glaskugel->is_writable( $install_dir ) ) {
print "Toll! Du kannst schreiben!\n";
}else{
print "Du kommst hier nicht rein.\n";
}
+10 replies
Win32:FileSecurity lesen.File-Stat-OO ist auch nicht das was dü möchtest.
+8 replies
1
2
3
4
5
6
7
8
9
Aufruf in der Konsole als Benutzer:
C:\Perl\Scripten\test\installer>perl permission.pl
16749
C:\Perl\Scripten\test\installer>
Aufruf in der Konsole als Administraor:
C:\Perl\Scripten\test\installer>perl permission.pl
16749
C:\Perl\Scripten\test\installer>
+3 replies
+2 replies
+4 replies
Win32::IsAdminUser()
+2 replies
QuoteWin32::IsAdminUser()
Returns non zero if the account in whose security context the current process/thread is running belongs to the local group of Administrators in the built-in system domain; returns 0 if not. On Windows Vista it will only return non-zero if the process is actually running with elevated privileges. Returns undef and prints a warning if an error occurred. This function always returns 1 on Win9X.
Win32
![[Powered by Battie]](/battie/img/powered.png)
