[Win 7] Schreibrechte abfragen (gelöst) (Windows)

[thread]16241[/thread]

[Win 7] Schreibrechte abfragen [gelöst]

Tags: windows Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+11 replies
pktm

2011-04-30 19:30
User since
2003-08-07
2921 Artikel
BenutzerIn
Hallo!

Wenn ich mittels Perl-Skript Dateien in bestimmte Ordner schreiben will (im konkreten Fall C:\Program Files (x86)), dann bekomme ich den Fehler: "Permission denied".
Wird das Skript hingegen als Administrator ausgeführt, klappt es.

Hier mal ein Skript zum Testen:
Code: (dl )

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: $!"); }
Wie kann ich komfortabel anfragen, ob ich Schreibrecht für das Verzeichnis habe? Ich dachte eventuell an sowas wie:
Code: (dl )

1 2 3 4 5 6 7

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"; }
Das gibt es dopch bestimmt schon? (vllt. nicht als Glaskugel, aber anders)

Grüße, pktm
http://www.intergastro-service.de (mein erstes CMS :) )
- +10 replies
- GwenDragon
  
  2011-04-30 19:50
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Die einfachen Dateirechte mit stat. Der Index 2 liefert die Rechte.
  
  Oder brauchst du die ACLs? Die kannst du mit Win32:FileSecurity lesen.
  
  Was deiner "Glaskugelabfrage" anbelangt, habe ich auf CPAN nichts gefunden.
  File-Stat-OO ist auch nicht das was dü möchtest.
  Musst du also so eine Methode selber schreiben.
  
  Editiert von GwenDragon: Modul für ACLs hinzugefügt
  Last edited: 2011-04-30 20:06:50 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +8 replies
  - pktm
    
    2011-04-30 20:06
    User since
    2003-08-07
    2921 Artikel
    BenutzerIn
    
    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)
    
    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 :) )
    - +3 replies
    - GwenDragon
      
      2011-04-30 20:32
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Bei deinem Beispielskript wird die Datei in einem virtuellen Programm-Verzeichnis des eingeloggten Windowsnutzers erzeugt.
      Ähnlich wie
      C:\Users\User124\AppData\Local\VirtualStore\Program Files (x86)\perl-test.txt
      
      Wenn du wissen willst, ob jemand irgendwo was installieren kann, müsstest du folgendes machen:
      1. Mitgliedschaft des Nutzers in Benutzergruppe(n) feststellen
      2. Berechtigungen des Verzeichnisses auslesen
      3. Benutzer/-gruppen des Verzeichnisses vergleichen und herausfinden, wo diese mit dem Nutzer übereinstimmen und welche Rechte (Schreiben,Lesen,Ändern,Löschen o. ä.) erlaubt sind
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +2 replies
      - pktm
        
        2011-04-30 20:57
        
        User since
        2003-08-07
        2921 Artikel
        BenutzerIn
        
        Hm, erstaunlich viel Arbeit. Ich glaube, ich habe schon Spieleentwickler darüber fluchen hören :)
        
        Das kommt mal auf meine Möchte-Ich-Gerne-haben-Liste.
        
        Habe vorhin das Skript kompiliert und dabei in der Manifest festgelegt, dass es als Admin ausgeführt werden muss. So übernimmt Windows diese Abfrage für mich.
        
        Vllt. noch eine Frage:
        Gibt es das (ACL?) schon immer oder erst seit Windows 7 / Vista?
        http://www.intergastro-service.de (mein erstes CMS :) )
        
        GwenDragon
        
        2011-04-30 21:26
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        ACLs gibt es meines Wissens nach seit Windows NT.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +4 replies
    - FIFO
      
      2011-04-30 20:56
      
      User since
      2005-06-01
      469 Artikel
      BenutzerIn
      
      Wenn Du einfach nur testen willst, ob der User Admin ist:
      
      Code: (dl )
      
      Win32::IsAdminUser()
      
      Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
      - pktm
        
        2011-04-30 21:00
        
        User since
        2003-08-07
        2921 Artikel
        BenutzerIn
        
        Oh, nett. Das scheint auch zu reichen. Merci.
        http://www.intergastro-service.de (mein erstes CMS :) )
      - +2 replies
      - GwenDragon
        
        2011-04-30 21:28
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Ja, wenn das so reicht.
        Ich hatte die Aufgabe von pktm einfach anders verstanden: ob es möglich ist als normaler Nutzer in ein Verzeichnis zu schreiben.
        
        Win32::IsAdminUser() funktioniert aber nur bei neueren Betriebssystemen korrekt (> Windows Vista):
        
        Quote
        Win32::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
        Last edited: 2011-04-30 21:44:02 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        pktm
        
        2011-04-30 23:02
        
        User since
        2003-08-07
        2921 Artikel
        BenutzerIn
        
        Hm, danke für die Info. Die erste Frage war ja auch recht speziell gestellt, deine Antwort darauf war also passend ;-)
        http://www.intergastro-service.de (mein erstes CMS :) )
  - GwenDragon
    
    2011-05-04 18:04
    
    User since
    2005-01-17
    14748 Artikel
    Admin1
    
    Von Roth gibt es noch Win32::Perms für Filepermissions, ACLs & Co.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2011-04-30 19:30.