$DomainName="RMNETNT"

$domain = GetObject("WinNT://$DomainName,domain")

? "GetObject: @error @serror"

$domain.filter = "user",""

? "Set Filter: @error @serror"

for each $user in $domain

	? $user.name

	? "Print name: @error @serror"

next