[Win32::NetAdmin] Absturz durch Netadmin bei Win7 x64 (Fragen zu Perl-Modulen)

[thread]18522[/thread]

[Win32::NetAdmin] Absturz durch Netadmin bei Win7 x64

Tags: perl5 Windows 7 x64 Win32::NetAdmin Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+23 replies
Gast Snoop

2013-08-16 11:17

Hallo zusammen,

ich habe ein Problem mit der Netadmin.dll unter Windows 7 x64.

Beim Aufruf von
if (Win32::NetAdmin::LocalGroupGetMembersWithDomain("$computer.$domain", $group, \@users)) {
...

stürzt PERL (x64) mit folgender Meldung (EventView) ab:

Name der fehlerhaften Anwendung: perl.exe, Version: 5.12.4.1205, Zeitstempel: 0x4dfff767
Name des fehlerhaften Moduls: NetAdmin.dll, Version: 0.0.0.0, Zeitstempel: 0x4dffff1d
Ausnahmecode: 0xc0000005
Fehleroffset: 0x0000000000003eaf
ID des fehlerhaften Prozesses: 0x1e8
Startzeit der fehlerhaften Anwendung: 0x01ce9a584898f755
Pfad der fehlerhaften Anwendung: C:\Program Files\perl\bin\perl.exe
Pfad des fehlerhaften Moduls: C:\Program Files\Perl\lib\auto\Win32\NetAdmin\NetAdmin.dll
Berichtskennung: 8836fe4d-064b-11e3-a4e5-90e2ba2cd8d4
_____________________________________________________________________

Was sehr merkwürdig ist, das es mit einem 32Bit Perl Version 5.8.9.825 keine Probleme gibt.

Ich benötige aber das 64bit Perl um auch in die Win7 x64 Registry schreiben zu können.

Besten Dank schon mal...

modedit Editiert von GwenDragon: falsche Schlagworte korrigiert, Titel ergänzt
Last edited: 2013-08-20 09:14:16 +0200 (CEST)
- +13 replies
- betterworld
  
  2013-08-16 11:29
  User since
  2003-08-21
  2614 Artikel
  ModeratorIn
  Untersuch mal ganz genau, was in den Variablen drinsteckt. Ein Anfang wäre Data::Dumper:
  
  Code: (dl )
  
  1 2
  
  use Data::Dumper; print Dumper(["$computer.$domain", $group, \@users]);
  
  Aber ich kenne mich mit dem Modul überhaupt nicht aus. Auch nicht mit Windows-Programmierung. Vielleicht musst Du "print" durch irgend etwas anderes ersetzen, was Dir das Ergebnis in Deiner Umgebung anzeigt.
  Lieblingsmodule: IPC::System::Simple, Path::Class
  - +12 replies
  - Gast Snoop
    
    2013-08-19 18:00
    Hallo,
    also ich bin eigentlich kein Perl Programierer, ich soll nur das Skript zum Laufen bringen.
    
    Aber ich hab mir die Werte mal ausgeben lassen:
    print Dumper(["$computer.$domain", $group, \@users]); ->
    
    PERL 32 bit:
    
    Code: (dl )
    
    1 2 3 4 5 6 7
    
    debug 10************************************ $VAR1 = [ '.', 'Administrators', [] ]; debug 11************************************
    
    PERL 64Bit:
    
    Code: (dl )
    
    1 2 3 4 5 6
    
    debug 10************************************ $VAR1 = [ '.', 'Administrators', [] ];
    
    Debug 11 käme direkt nach dem oben genanten Win32::NetAdmin::LocalGroupGetMembersWithDomain.
    
    An den Werten kann es eigentlich nicht liegen, außer die Schnittstelle hat sich geändert...
    Last edited: 2013-08-20 09:11:14 +0200 (CEST)
    - +11 replies
    - bianca
      
      2013-08-19 18:20
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Wenn du die Syntax von betterworld benutzt hast sind $computer, $domain und @users leer. Das ding weiß also garnicht, um welchen PC es gehen soll. Wo werden die denn definiert?
      10 print "Hallo"
      20 goto 10
      - +10 replies
      - Gast Snoop
        
        2013-08-19 18:50
        
        Achso ja, moment...
        
        Das ist die Ausgabe vor LocalGroupGetMembersWithDomain.
        Danach geht es bei 32Bit in die If Abfrage und es stehen in @users die User die auf dem lokalen Computer in der Gruppe Administrators sind.
        Also der loakel Admin und diverse AD User....
        
        Also wenn ich das Skript mit 32Bit perl laufen lasse funktioniert es ja.
        Nur mit 64Bit PERL stürzt es ab....
        Last edited: 2013-08-19 19:05:52 +0200 (CEST)
        
        +9 replies
        
        Gast Snoop
        
        2013-08-19 19:22
        
        ...und auch wenn ich den Computernamen
        <computer.domain.net>
        einsetzte passiert das gleiche.
        Perl stürzt ab.....
        Last edited: 2013-08-19 19:30:04 +0200 (CEST)
        
        +8 replies
        
        bianca
        
        2013-08-19 19:43
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Im Namen des Moduls steht ja schon Win32. Vielleicht läßt das darauf schließen, dass es nur für 32bitter geeignet ist.
        Hast du mal den Autor angemailt?
        Oder mal genauere Fehlermeldungen abgefangen nach jedem Schritt nach diesem Text aus der Doku?
        
        Quote
        All of the functions return false if they fail, unless otherwise noted. When a function fails call Win32::NetAdmin::GetError() rather than GetLastError() or $^E to retrieve the error code.
        
        Hier schon mal geschaut, ob was brauchbares dabei ist? http://www.perlmonks.org/?node_id=1004548
        Mir war das jetzt zuviel Text aber es scheint ein ähnliches Problem zugrunde zu liegen.
        10 print "Hallo"
        20 goto 10
        
        +7 replies
        
        Gast Snoop
        
        2013-08-19 20:02
        
        Ja also False kommt eben nicht mehr zurück....
        Daher kann ich mir den Fehlercode auch nicht ausgeben lassen.
        
        Den Link hatte ich auch schon mal überflogen, aber so wie ich es verstanden hatte war die Aussage eher das die Win32 Module ohne Probleme unter x64 laufen sollten.
        Last edited: 2013-08-19 20:08:43 +0200 (CEST)
        
        +6 replies
        
        bianca
        
        2013-08-20 07:09
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Dann kann ich nur noch anbieten, es bei mir mal zu versuchen.
        Hast du ein vollständiges lauffähiges Script, das den Fehler reproduziert?
        10 print "Hallo"
        20 goto 10
        
        +5 replies
        
        Gast Snoop
        
        2013-08-20 10:08
        
        Ja klar gerne...
        
        Also es geht eigentlich nur darum die User/Gruppen für den lokalen Rechner in einer bestimmten Standardgruppe (Administartors, Users, Remote User, usw.) auzulisten. Das Ergebnis wird mit erlaubten Usern abgeglichen und dann nicht erlaubte gelöscht(LocalGroupDeleteUsers) oder fehlende ergänzt (LocalGroupAddUsers).
        
        Vielleicht gibt es dafür ja auch alternative Module???
        
        Ab den Code mal nur auf die eine Funktion abgespeckt.
        Aber gleicher Effekt. Perl x32 geht -> x64 nicht.
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
        
        use File::stat; use File::Find; use Win32::NetAdmin; use Win32::OLE qw(in); use Data::Dumper; $computerName = "xxxxxxxx"; # Computername einfügen $domainName = "xxxxxx.net"; # Domäne einfügen $group = "Administrators"; SetGroupMembers(); sub SetGroupMembers { my @users; print ("debug 10************************************\n"); print Dumper(["$computerName.$domainName", $group, \@users]); if (Win32::NetAdmin::LocalGroupGetMembersWithDomain("$computerName.$domainName", $group, \@users)) { print Dumper(["$computerName.$domainName", $group, \@users]); print ("debug 11************************************\n"); } else { print ("debug 12************************************\n"); $errorCode = Win32::NetAdmin::GetError(); print "LocalGroupGetMembers error: $errorCode\n"; } }
        
        modedit Editiert von GwenDragon: Perl bitte in Code-Tags stellen!
        Last edited: 2013-08-20 10:42:56 +0200 (CEST)
        
        GwenDragon
        
        2013-08-20 11:52
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Ich bekomme mit StrawberryPerl 5.12.3.0 x64 (Strawberry Perl May 2011) auf Win7 x64 keinen Absturz.
        
        Ich nehme an es ist ein Bug in ActiveStates Perl 5.12.4.
        Last edited: 2013-08-20 12:05:09 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +3 replies
        
        bianca
        
        2013-08-20 14:30
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Bei mir läuft das Script auch ohne Absturz.
        Es bringt auf Win 7 32 Bit mit Strawberry v5.10.1 (*) built for MSWin32-x86-multi-thread:
        
        Quote
        d:>perl test.pl
        debug 10************************************
        $VAR1 = [
        '***',
        'Administrators',
        []
        ];
        debug 12************************************
        LocalGroupGetMembers error: 1722
        
        Auf Win 7 64 Bit mit Strawberry v5.10.1 (*) built for MSWin32-x86-multi-thread:
        
        Quote
        d:>perl test.pl
        debug 10************************************
        $VAR1 = [
        '***',
        'Administrators',
        []
        ];
        debug 12************************************
        LocalGroupGetMembers error: 1722
        
        Der Fehler ist wahrscheinlich inhaltlicher Art, weil ich was falsch gesetzt habe. Aber kein Absturz.
        Jeweils Win32::NetAdmin Version 0.11 und Win32::OLE Version 0.1709
        
        Bei der Installation ist mir etwas aufgefallen:
        
        Quote
        C:\strawberry\perl\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib\lib', 'blib\arch')" t/*.tt/netadmin.t .. skipped: Must be running as an administrator
        
        Hast du alle Installationen als Admin vorgenommen? Oder ist an der Stelle vielleicht was bei dir schief gegangen?
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        murphy
        
        2013-08-20 14:35
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        2013-08-20T12:30:28 bianca
        [...]
        Auf Win 7 64 Bit mit Strawberry v5.10.1 (*) built for MSWin32-x86-multi-thread:
        [...]
        
        Das sieht aber so aus, als würdest Du auch unter Win 7 64 Bit eine 32 Bit Version von Perl ausführen! Bei einer 64 Bit Version von Perl würde ich im Banner ein "... built for ...-x86_64-..." erwarten.
        When C++ is your hammer, every problem looks like your thumb.
        
        bianca
        
        2013-08-21 11:29
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Stimmt, murphy. Hab kein Strawberry für 64 Bit gefunden.
        Oder habe ich es übersehen?
        
        Ergänzung: Habe kein 5.10.1 für 64 Bit gefunden. Es kommt mir auf die Version an, damit die mit den Hostern gleich ist!
        Last edited: 2013-08-21 11:31:14 +0200 (CEST)
        10 print "Hallo"
        20 goto 10
- +9 replies
- GwenDragon
  
  2013-08-20 10:49
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Die letzte Perl-Version ist aber 5.12.5, hast du mal versuch die zu installieren? Und welches Perl verwendest du genau?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +8 replies
  - Gast Snoop
    
    2013-08-20 10:55
    
    ja, hatte ich testweise auch mal versucht...
    
    aktuell benutze ich Version: 5.12.4.1205 x64
    Last edited: 2013-08-20 11:02:05 +0200 (CEST)
    - +7 replies
    - GwenDragon
      
      2013-08-20 11:04
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Es gibt viele Versionen von Perl, denke ich.
      Bratwurst-Perl, selbstkompiliertes CPAN-Perl, Himbeer-Perl, Passiv-Perl, Active-Perl oder Strawberry-Perl? ;)
      Welches nun, sonst kann keine Person das testen.
      
      Falle es ActiveStates Perl ist, muss ich passen, da ich auf keine alten Versionen zugreifen kann (habe kein Business-Edition-Abo).
      Last edited: 2013-08-20 11:06:38 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +6 replies
      - Gast Snoop
        
        2013-08-20 11:16
        
        Ja AktivePerl...
        
        und ich hattes schon mal mit ActivePerl 5.16.3 versucht....
        Last edited: 2013-08-20 11:27:56 +0200 (CEST)
        
        Gast Snoop
        
        2013-08-20 14:02
        
        Habe es jetzt auch mit ActivePerl v5.16.3 x64 versucht. kein Unterscheid...
        
        Im EventView gibt es je nach Funktion verschiedene fehlerhfte Module:
        
        Win32::NetAdmin::LocalGroupGetMembersWithDomain -> Faulting module name
        is: NetAdmin.dll
        
        With Win32::NetAdmin::LocalGroupGetMembers -> Faulting module name is: SAMCLI.DLL
        Last edited: 2013-08-20 14:09:08 +0200 (CEST)
        
        +4 replies
        
        GwenDragon
        
        2013-08-20 14:29
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Ist ActivPerl Pflicht sonst nimm Strawberry Perl.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +3 replies
        
        Gast Snoop
        
        2013-08-20 14:39
        
        Hmm, das kann ich nicht entscheiden...
        
        Hab grad nach einer Alternative gesucht.
        
        Win32API::Net::LocalGroupGetMembers
        
        funktioniert.
        Unterschied ist nur das es kein true oder false zurückliefert und das der Domänenname vor dem User fehlt.
        
        Ich denke dann werde ich das Skript mal umbauen.
        
        Ich hab den Bug aber auch mal bei ActivePerl gepostet.
        
        Danke für eure Hilfe...
        Ist immer schön wenn man nicht ganz allein im Regen steht ;)
        Last edited: 2013-08-20 14:40:38 +0200 (CEST)
        
        +2 replies
        
        GwenDragon
        
        2013-08-21 15:00
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Guest Snoop
        Ich hab den Bug aber auch mal bei ActivePerl gepostet.
        meldest du dich wenn du was näheres weißt oder wo ist der Bug im Bugtracker von ActiveState zu finden?
        
        Quote
        Danke für eure Hilfe...
        Ist immer schön wenn man nicht ganz allein im Regen steht ;)
        Bitte sehr.
        Das ist ja auch ein Problem, was schwer nachzuvollziehen ist, wenn es einem um die Ohren fliegt. Da ist es gut ein paar andere Leute zum Testen zu haben.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        Gast Snoop
        
        2013-08-21 18:08
        
        Bisher hat sich noch nichts getan....
        
        http://bugs.activestate.com/show_bug.cgi?id=100108
        Last edited: 2013-08-21 18:20:49 +0200 (CEST)

View all threads created 2013-08-16 11:17.