I use Win32::Lanman and AdminMisc (code below is simplified)
# Get PDC and a random DC
my $pdc=Win32::AdminMisc::GetPDC($domain);
# Enumerate all accounts in domain
if(Win32::Lanman::NetUserEnum($pdc, 0, [EMAIL PROTECTED]))
{
foreach my $user (@accountlist)
{
$flags= "${$user}{'flags'}";
$account= "${$user}{'name'}";
if ($flags & UF_ACCOUNTDISABLE ){
$disabled=1;
}
if ($flags & UF_SERVER_TRUST_ACCOUNT){
$type='DC';
}
if ($flags & UF_WORKSTATION_TRUST_ACCOUNT){
$type='Member';
}
if ($flags & UF_NORMAL_ACCOUNT){
$type='User';
}
if ($flags & UF_INTERDOMAIN_TRUST_ACCOUNT){
$type='Trust';
}
# Do what you want with the account
}
Adam Greene
-----Original Message-----
From: Steven Satelle (Service Desk)
[mailto:[EMAIL PROTECTED]
Sent: Thursday, June 26, 2003 6:22 AM
To: 'VANHERP Wim'; Perl-Win32-Admin (E-mail)
That's the problem, I heard there is incapability's between 5.6 and 5.8.
try using Win32::Lanman, the NetUser functions,
Try NetUserEnum($domain, $filter, [EMAIL PROTECTED]), but leave the filter blank
> -----Original Message-----
> From: VANHERP Wim [mailto:[EMAIL PROTECTED]
> Sent: 26 June 2003 14:07
> To: 'Steven Satelle (Service Desk)'
> Subject: RE: list of users in a domain
>
>
> my perl version is 5.8.0
>
> for win32_adminmisc i only find the nr 5006 , where do i find the
> version nr ?
>
> my OS= winnt 4.0 SP6a but tried it also whith same result on win2000
> the domain is winnt
>
>
>
>
> Wim Vanherp
> tel : 5100
> GSM :0478 88 32 03
>
>
> > ----------
> > From: Steven Satelle (Service
> > Desk)[SMTP:[EMAIL PROTECTED]
> > Sent: donderdag 26 juni 2003 14:34
> > To: 'VANHERP Wim'; Perl-Win32-Admin (E-mail)
> > Subject: RE: list of users in a domain
> >
> > I just checked it, If I leave the $server blank, I still
> get a full domain
> > listing. It think its version time!
> > I'm running:
> > Perl: v5.6.1 built for
> MSWin32-x86-multi-thread (with 1 registered
> > patch, see perl -V for more detail)
> > AdminMisc: Win32-AdminMisc [0.2000.07.08]
> > Opsys: Win2k SP3, bugger all extra patches
> >
> > as fast as I can
> >
> > > -----Original Message-----
> > > From: VANHERP Wim [mailto:[EMAIL PROTECTED]
> > > Sent: 26 June 2003 12:50
> > > To: 'Steven Satelle (Service Desk)'
> > > Subject: RE: list of users in a domain
> > >
> > >
> > > strange,
> > >
> > > i get only the users of my own local machine when i fill in the
> > > domain name.
> > >
> > >
> > > Wim Vanherp
> > > tel : 5100
> > > GSM :0478 88 32 03
> > >
> > >
> > > > ----------
> > > > From: Steven Satelle (Service
> > > > Desk)[SMTP:[EMAIL PROTECTED]
> > > > Sent: donderdag 26 juni 2003 12:05
> > > > To: 'VANHERP Wim'; 'Perl-Win32-Admin (E-mail)'
> > > > Subject: RE: list of users in a domain
> > > >
> > > > instead of entering a machine name (\\server) enter a
> domain name
> > > > (domain),
> > > > I just did it and it works, see below
> > > >
> > > > if( Win32::AdminMisc::GetUsers( "domain", "", [EMAIL PROTECTED] ) ) {
> > > > print "The list of test user accounts are:\n";
> > > > map { print "\t$_\n";} @users; }
> > > >
> > > > > -----Original Message-----
> > > > > From: VANHERP Wim [mailto:[EMAIL PROTECTED]
> > > > > Sent: 26 June 2003 08:23
> > > > > To: 'Perl-Win32-Admin (E-mail)'
> > > > > Subject: list of users in a domain
> > > > >
> > > > >
> > > > > Hi,
> > > > >
> > > > >
> > > > > I don't see how to retreive users in a domain. The functions
> > > > > in adminmisc are ok to retreive the users of a server, but how
> > > > > do I get the domain-users ?
> > > > >
> >
> >
> > DISCLAIMER: The information contained in this email and in any
> > attachments is confidential and is designated solely for the
> > attention
> and use of the
> > intended recipient(s). If you are not the intended
> recipient(s) of this
> > email you must not use, disclose, copy, distribute or
> retain this message,
> > the attachment(s) or any part thereof. If you believe that you have
> > received this email in error please notify us immediately
> at the address
> > set
> > out below. Please also delete all copies of this email and any
> > attachment(s) from your computer system.
> >
> > Unless expressly stated this email is not intended to create any
> > contractual relationship. If this email is not sent in the
> course of the
> > senders employment or fulfilment of his/her duties to Aer
> Rianta, Aer
> > Rianta
> > accepts no liability whatsoever for the content of this
> message or any
> > attachment(s).
> >
> > [EMAIL PROTECTED]
> >
> > Aer Rianta, Head Office, Dublin Airport
> >
> >
> >
> >
> *** Disclaimer ***
> Deze e-mail, met eventuele bijlagen, is alleen bestemd voor de persoon
> of organisatie aan wie hij gericht is en, in voorkomend geval, alleen
> voor het daarin opgegeven doel of gebruik. Hij kan vertrouwelijke
> informatie bevatten en/of persoonlijke standpunten die niet
> noodzakelijk met die van de VRT stroken. Elk gebruik van deze
> informatie (zoals bewerken, doorsturen, geheel of gedeeltelijk
> reproduceren of verspreiden in welke vorm ook) door anderen dan de
> geadresseerde, is verboden. Hebt U deze e-mail per vergissing
> ontvangen, meld dat dan a.u.b. aan de VRT en wis de e-mail.
>
DISCLAIMER: The information contained in this email and in any
attachments is confidential and is designated solely for the attention
and use of the intended recipient(s). If you are not the intended
recipient(s) of this email you must not use, disclose, copy, distribute
or retain this message, the attachment(s) or any part thereof. If you
believe that you have received this email in error please notify us
immediately at the address set out below. Please also delete all copies
of this email and any
attachment(s) from your computer system.
Unless expressly stated this email is not intended to create any
contractual relationship. If this email is not sent in the course of
the senders employment or fulfilment of his/her duties to Aer Rianta,
Aer Rianta accepts no liability whatsoever for the content of this
message or any attachment(s).
[EMAIL PROTECTED]
Aer Rianta, Head Office, Dublin Airport
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
