Ersatz zu Win32::Perms::ResolveAccount (Fragen zu Perl-Modulen)

[thread]15033[/thread]

Ersatz zu Win32::Perms::ResolveAccount

Leser: 15

Articles: hide open all | hide show old branches

+6 replies
LukeStriker

2010-05-18 11:24
User since
2010-04-21
69 Artikel
BenutzerIn
Hallo zusammen, ich hoffe nicht das ich blind bin aber ich finde das Modul Win32::Perms ab v5.6 nicht mehr. Wurde dieses eingestellt? Wenn nein, wo kann ich es downloaden?

Und zwar benötige ich Win32::Perms::ResolveAccount um den Username in meiner Eventlog Auswertung zu bekommen. Daher die SID wird entgegen genommen und ich bekomm den Usernamen zurück.
Code (perl): (dl )

$username=Win32::Perms::ResolveAccount($EventData->{'User'});
Falls es dieses Modul für v5.10 nicht mehr geben sollte, kennt jemand einen Ersatzmodul?

VG Lukas
- +2 replies
- havi
  
  2010-05-18 11:45
  
  User since
  2003-08-04
  2036 Artikel
  BenutzerIn
  
  Schau mal hier
  Perl-Zeitung - http://perl-zeitung.at/
  Perl-Blog - http://usr-bin-perl.blogspot.com/
  - LukeStriker
    
    2010-05-18 15:23
    
    User since
    2010-04-21
    69 Artikel
    BenutzerIn
    
    2010-05-18T09:45:28 havi
    Schau mal hier
    
    "The latest version of Win32::Perms is: 20020605"
    
    Klappt nicht... Kennt niemand ne Möglichkeit? Wäre echt etwas "bescheuert".
- GwenDragon
  
  2010-05-18 13:51
  
  User since
  2005-01-17
  14774 Artikel
  Admin1
  
  ppm install http://www.roth.net/perl/packages/win32-perms.ppd
  //EDIT: Aber ich sehe gerade in der PPD, dass es nur bis Perl 5.8 geht. :(
  Last edited: 2010-05-18 13:52:26 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- esskar
  
  2010-05-18 15:35
  
  User since
  2003-08-04
  7321 Artikel
  ModeratorIn
  
  schau dir doch mal Win32::Security::SID an
  - LukeStriker
    
    2010-05-19 12:04
    User since
    2010-04-21
    69 Artikel
    BenutzerIn
    
    Thx ist mir gestern auch aufgefallen ;)
    
    Code (perl): (dl )
    
    1 2
    
    my $name = Win32::Security::SID::ConvertSidToName(${$evtHashRef}{User}); if ($name eq 'UNDEFINED_SID') {$name = "nicht zutreffend" }

View all threads created 2010-05-18 11:24.