List of all parameters for objuser

[Mike Matheny]

I am trying to write a script that will enumerate all users in a group, and
I need to get the domain they belong to also. I cannot find how to get the
domain with objuser.
============
'on error resume next
'Script begins here
Dim objGroup, objUser, objFSO, objFile, strDomain, strGroup, Domain, Group,
strFilename

'Change DomainName to the name of the domain the group is in
strDomain = "jsc-iss"
'strDomain = Inputbox ("Enter the Domain name", "Data needed", "Default
domain name")

'Change GroupName to the name of the group whose members you want to export
'strGroup = "Group"
strGroup = InputBox ("Enter the Group name", "Data needed", "Default group
name")

Set objFSO = CreateObject("Scripting.FileSystemObject")
'On the next line change the name and path of the file that export data will
be written to.
'Set objFile = objFSO.CreateTextFile("C:\final" & strGroup & " -
Members.txt")

Set objFile = objFSO.CreateTextFile(strGroup & "-Members.txt")

strFilename = strGroup & "-Members.txt"

Set objGroup = GetObject("WinNT://" & strDomain & "/" & strGroup & ",group")
'Set objGroup = GetObject("WinNT://" & strGroup & ",group")
For Each objUser In objGroup.Members
objFile.WriteLine objUser.Name

Next
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing
Set objUser = Nothing
Set objGroup = Nothing
Wscript.Echo "Done"
Wscript.Echo "Please check " & strFilename & " for the output"


--

Mike Matheny

[Richard Mueller [MVP]]

Mike Matheny wrote:

>I am trying to write a script that will enumerate all users in a group, and
>I need to get the domain they belong to also. I cannot find how to get the
>domain with objuser.
> ============
> 'on error resume next
> 'Script begins here
> Dim objGroup, objUser, objFSO, objFile, strDomain, strGroup, Domain,
> Group, strFilename
>
> 'Change DomainName to the name of the domain the group is in
> strDomain = "jsc-iss"
> 'strDomain = Inputbox ("Enter the Domain name", "Data needed", "Default
> domain name")
>
> 'Change GroupName to the name of the group whose members you want to
> export
> 'strGroup = "Group"
> strGroup = InputBox ("Enter the Group name", "Data needed", "Default group
> name")
>
> Set objFSO = CreateObject("Scripting.FileSystemObject")
> 'On the next line change the name and path of the file that export data
> will be written to.
> 'Set objFile = objFSO.CreateTextFile("C:\final" & strGroup & " -
> Members.txt")
>
> Set objFile = objFSO.CreateTextFile(strGroup & "-Members.txt")
>
> strFilename = strGroup & "-Members.txt"
>
> Set objGroup = GetObject("WinNT://" & strDomain & "/" & strGroup &
> ",group")
> 'Set objGroup = GetObject("WinNT://" & strGroup & ",group")
> For Each objUser In objGroup.Members
> objFile.WriteLine objUser.Name
>
> Next
> objFile.Close
> Set objFile = Nothing
> Set objFSO = Nothing
> Set objUser = Nothing
> Set objGroup = Nothing
> Wscript.Echo "Done"
> Wscript.Echo "Please check " & strFilename & " for the output"
>

If you are using the WinNT provider, the AdsPath property method of the user
object includes the domain. You can parse the value for the NetBIOS name of
the domain. If using the LDAP provider, the distinguishedName include the
DNS name of the domain. Again you need to parse. LDAP also exposes AdsPath
if you prefer.

--
Richard Mueller
Microsoft MVP Scripting and ADSI
Hilltop Lab - http://www.rlmueller.net
--