Se this thread Last logon date

It should use the same method, except the property would be AccountDisabled instead of LastLogin.

HTH

yup, yup, yup... right method, wrong property...

Try something like this

break on

Dim $usr
$usr = GetObject("WinNT://YourPDC/lligetfa,user")
$AccountExpirationDate = $usr.AccountExpirationDate
? "AccountExpirationDate = "+$AccountExpirationDate

get $_

Let me know how it work out.

After looking at the requirements, I see there is a need to enumerate all users in the domain, but I know not how to do that.

Kent, maybe you can step in here and save the day.

code:

---

$domain = GetObject("WinNT://@domain")
$domain.filter = "user",""
for each $user in $domain
	$AccountExpirationDate = $user.AccountExpirationDate
	? $user.name+ ":AccountExpirationDate = "+$AccountExpirationDate
next

---

[ 16 January 2002: Message edited by: Bryce ]

It was the filter part I couldn't get my mind around. Without the filter I was getting computer objects as well.

So rixster, is this going to do it for you?

Greetings
Markus

other filters...

"service","" would show the services.
"PrintQueue","" print queue's
"printjob",""
"FileShare",""
"Computer","" this would be NT/W2k/XP domain computers...i think

you can mix and match filters... "service","user" would display only services and users

Bryce

Here's what I've got so far:

$domain = GetObject("WinNT://EMEA")
$domain.filter = "group",""

for each $user in $domain
$PasswordAge = $user.PasswordAge

? $user.name+ ": Password Age = "+$PasswordAge

next

Any idea ?

Thanx
Markus

GroupMembers() - returns all members of a given group.

[ 18 January 2002: Message edited by: Bryce ]

Function Groupmembers("MyDomain","MyGroup")

Or is this script only a part of another script that is giving the Domain and group as $target and $group to that Function, and the function returns one group member ?

If so what would be the name of the returned string ?

But Let me make some changes tot he GroupMebmers() UDF so that it is easier to use (i have learned a thing or two... since i wrote it )

When i am done, i will let you know.

Bryce

First get the new version of GroupMembers()

here is some code....

code:

---

$users = groupmembers(@domain,"group",18)
for each $user in $Users
	? $user.name + " : " + $user.AccountExpirationDate
next

---

Bryce

Thaks a lot from Germany.

Greetings
Markus