mit Perl im Active Directory: Gruppeninfos aus AD ziehen?! (Allgemeines zu Perl)

[thread]7419[/thread]

mit Perl im Active Directory: Gruppeninfos aus AD ziehen?!

schose

2005-11-02 15:04

User since
2005-11-02
3 Artikel
BenutzerIn
[default_avatar]

Hallo Forum,

Meine Windowsanmeldeskripe laufen mit Perl. Nun habe ich die Notwendigkeit rauszufinden in welchen AD Gruppen mein gerade angemeldeter User ist. Je nachdem sollen ihm Laufwerke, Registriekeys etc. verbraten werden.

Mit Win32::LoginName() kann ich war den Namen des Users bestimmen, aber ich finde keine Möglichkeit beispielsweise über Win32::NetAdmin mit die dazugehörigen Gruppen zu holen. Was aber geht, ist zu prüfen ob ein User in einer bestimmten Gruppe ist. Der Umweg über "ich hole mir alle Gruppen und prüfe jede einzelne" geht auch nicht, da ich mir nicht alle Gruppen holen kann.

gibts irgendjemand, der mir aus meiner Misere helfen kann??

Danke bereits im Voraus!

Andreas

esskar

2005-11-02 15:23

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

schau dir mal Win32::AD::User an;
da kannst du dir alle gruppen eines users geben lassen

schose

2005-11-03 14:42

User since
2005-11-02
3 Artikel
BenutzerIn
[default_avatar]

Hallo esskar,

kannst du mir vieleicht eine Beispieldatei schicken? Ich verstehe nicht wie ich die Funktion new() ausführen soll. Der "WinNT ADsPath" ist mir ein buch mit sieben siegeln! ;)
In dem kurzen beispiel versuche mich mich auf die Subdomain DIR mit meinem Useraccount anzumelden.

Code: (dl )

#!/usr/bin/perl -w
use Win32::OLE;
use Win32::AD::User;

$user = AdUser->new( 'WinNT://dir','andreas.roth');
$user->print_me();

Fehlermeldung:Win32::OLE operating in debugging mode: _Unique => 1
Can't locate object method "new" via package "AdUser" (perhaps you forgot to load "AdUser"?)

Danke!

Andreas\n\n

esskar

2005-11-03 14:56

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

ersteinaml: use strict;

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;
use Win32::AD::User;

my $user = Win32::AD::User->new('WinNT://dir','andreas.roth');
$user->print_me();

schose

2005-11-03 17:51

User since
2005-11-02
3 Artikel
BenutzerIn
[default_avatar]

Quote
ersteinaml: use strict;

hast ja recht! ;)

Danke, hat mir wirklich weiter geholfen!\n\n

View all threads created 2005-11-02 15:04.