reading windows doamin groups 2

[SgtB]

I'm creating a script to automate some windows tasks. I was wondering if there was a module, or anthoer way for perl to read windows domain groups. Ideally I'd like to read the contents of a windows group, and create a list with all the users inside.
Is there anything like this out there?

Thanks!

I'll see your DMCA and raise you a First Amendment.

http://www.anti-dmca.org

 

[AHinMaine]

Probably start by searching cpan.

http://search.cpan.org

--
Andy

http://www.nachoz.com

 

[Stiddy]

Look into the Win3::NetAdmin module

 

[Stiddy]

Win32::NetAdmin module, sorry

 

[SgtB]

Thanks Stiddy, I've been lokking into that one. Looks like it'll help me out a bit.

Thanks!

I'll see your DMCA and raise you a First Amendment.

http://www.anti-dmca.org

 

[missbarbell]

You may want to look at Win32::AdminMisc [1] and Win32::NetAdmin [2].

[1]

http://www.roth.net/perl/adminmisc/

[2]

http://search.cpan.org/author/GSAR/libwin32-0.191/NetAdmin/NetAdmin.pm

Win32::AdminMisc is not available from CPAN, but via the authors site [3]. Dave also has a PPM repository [4] to which you can point your version of PPM if you want to install with that method.

[3]

http://www.roth.net/

[4]

http://www.roth.net/perl/packages

If you want to know how to add another repository to PPM, please read the FAQ for this forum.


Barbie
Leader of Birmingham Perl Mongers

http://birmingham.pm.org

 

[Stiddy]

use Win32::NetAdmin;
use Win32::AdminMisc;

#### Get the PDC for the domain
Win32::NetAdmin::GetDomainController("", "TESTDOM" , $PDC);

#### retrieve all of the local users
Win32::NetAdmin::GroupGetMembers($PDC, YourGroupName, \@users) or die ("Unable to get users: $!\n"

 

[Haunter]

Stiddy and StgB it sounds like you two should do some collaberating. Both of you seem to be inventing the wheel indepentently. You should think about putting your heads together.


haunter@battlestrata.com

 

[SgtB]

This was just for a quick script to automate the transfer of user directories, along with shares, and permissions. All user folders needed to be granted full access for that particualr user...anyway...

Thanks for al lthe help! Hopefully I won't be doing that anytime soon, but those win32 modules will help out in the future. Thanks Barbie for the advice on the second module, and the great links! Thanks Stiddy, for spelling it out for me. I'm pretty new to perl so this kind of help was exactly what I was looking for.
Thanks for making Tek-Tips.com one of the greatest technical sites out there!


I'll see your DMCA and raise you a First Amendment.

http://www.anti-dmca.org

 

[Stiddy]

Your welcome, actually haunter is currently helping me out on a similar script so I can't take all the credit...