Thread [Win32::NetAdmin] Absturz durch Netadmin bei Win7 x64 (22 answers)
Opened by Snoop at 2013-08-16 11:17

Gast Snoop
 2013-08-20 10:08
#169657 #169657
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)

View full thread [Win32::NetAdmin] Absturz durch Netadmin bei Win7 x64