Thread [Win 7] Schreibrechte abfragen (10 answers)
Opened by pktm at 2011-04-30 19:30

pktm
 2011-04-30 20:06
#148151 #148151
User since
2003-08-07
2921 Artikel
BenutzerIn
[Homepage]
user image
Der file mode scheint identisch zu sein.

Hier der Vergleich:

Code: (dl )
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>


Programm (990b):
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!perl

use strict;
use warnings;
use FileHandle;
use File::Spec;

my $install_dir = File::Spec->catdir('C:', 'Program Files (x86)');
my $file = File::Spec->catfile($install_dir, 'perl-test.txt');

my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks) = stat($install_dir);

print $mode;

my $fh = FileHandle->new($file, '>');
if( defined $fh ) {
$fh->print("bar\n");
$fh->close();
}else{
die("Error: $!");
}


Uhm... ACL habe ich schonmal gehört. Sowohl als die Firma, die einen LISP-Interpreter macht, als auch im Rahmen von Rechteverwaltung.

Das "Problem" ist im Prinzip folgendes: Wenn ich jemandem ein Perl-Programm gebe, das auf dessen PC locker fröhlich Dateien schreibt, dann muss das meistens als Administrator ausgeführt werden. Wenn das vergessen wird, würde ich gerne eine Fehlermeldung ausgeben, mit der der Mensch etwas anfangen kann.

Hier kann man sehen, wie das im Moment aussieht. Das würde ich gerne verhindern.

modedit Editiert von pq: "Programm" als Attribut für more-Tag eingefügt
Last edited: 2011-04-30 22:03:18 +0200 (CEST)
http://www.intergastro-service.de (mein erstes CMS :) )

View full thread [Win 7] Schreibrechte abfragen