<div>
 
You may want to remove this line: 
 
WScript.Echo Space(x) &amp;&nbsp;objGroup.Get(&quot;name&quot;) 
 
It just echo's out the group names in a tree type format if you're running it with CScript on the command line. 
 
Chris
</div>


You may want to remove this line:

WScript.Echo Space(x) & objGroup.Get("name")

It just echo's out the group names in a tree type format if you're running it with CScript on the command line.

Chris

<div>
<div class="content wysiwyg-content">
Hello 
 
Just working on a script to return boolean if user is a member of group. However I want to go one step further and also list subgroups of groups etc...This is what I have at the moment 
 
 
Private Function IsMember(groupName) 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set netObj = CreateObject(&quot;WScript.Network&quot;) 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;domain = &quot;domain.local&quot; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;user = &nbsp;netObj.UserName 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;flgIsMember = false 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set userObj = GetObject(&quot;WinNT://&quot; &amp;&nbsp;domain &amp;&nbsp;&quot;/&quot; &amp;&nbsp;user &amp;&nbsp;&quot;,user&quot;) 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;For Each grp In userObj.Groups 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if LCase(grp.Name) = LCase(groupname) then 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;flgIsMember=True &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Exit For 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end if 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Next 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;IsMember = flgIsMember 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set userObj = nothing 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set netObj = nothing 
End Function 
 
I want it so I can go one step further in the For Loop so I can search subgroups as well...Any assistance would be much appreciated. 
 
Thanks
</div>
</div>

Hello

Just working on a script to return boolean if user is a member of group. However I want to go one step further and also list subgroups of groups etc...This is what I have at the moment


Private Function IsMember(groupName)
	Set netObj = CreateObject("WScript.Network")
	domain = "domain.local"
	user =  netObj.UserName
	flgIsMember = false
	Set userObj = GetObject("WinNT://" & domain & "/" & user & ",user")
	For Each grp In userObj.Groups
		if LCase(grp.Name) = LCase(groupname) then
			flgIsMember=True	
			Exit For
		end if 
	Next
	IsMember = flgIsMember
	Set userObj = nothing
	Set netObj = nothing
End Function

I want it so I can go one step further in the For Loop so I can search subgroups as well...Any assistance would be much appreciated.

Thanks

VBScript What groups user is member of

Windows 2000 is an operating system for use on both client and server computers. It is the successor to Windows NT 4.0, and is the last version of Microsoft Windows to display the "Windows NT" designation. Four editions of Windows 2000 were released (Professional, Server, Advanced Server, and Datacenter Server) that shared a core set of features, including many system utilities such as the Microsoft Management Console. All versions of the operating system support NTFS 3.0, Encrypting File System, as well as basic and dynamic disk storage. The Windows 2000 Server family includes support for Active Directory services, Distributed File System and fault-redundant storage volumes.