Enumerating group membership on a remote machine with WMI

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Enumerating group membership on a remote machine with WMI

Logged in as: Guest

arrSession:exec spGetSession 2,16,59603

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Enumerating group membership on a remote machine with WMI
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Enumerating group membership on a remote machine with WMI - 4/28/2008 7:06:29 PM

ginolard

Posts: 965
Score: 21
Joined: 8/10/2005
Status: offline

I recently came across some VB.NET code that used WMI to enumerate local group membership on a remote machine using WMI. I had always used the WINNT provider because I didn't think WMI could do it. The problem with the WINNT provider for this sort of thing is that it is painfully slow. Doing it with WMI is much, much faster.

So, here you go.

Option Explicit
GetLocalGroupMembership("COMPUTER1")

Sub GetLocalGroupMembership(strComputer)
   Dim objWMIService : Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
   Dim colItems : Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Group where domain='" & strComputer &"'")
   Dim objItem
   For Each objItem In colItems
       WScript.Echo "**** " & objitem.Name & " ****"
       GetUsersFromGroup strComputer,objitem.Name,objWMIService
   Next
End Sub

Sub GetUsersFromGroup (comp,grp,objWMI)
   Dim strQuery :    strQuery = "select * from Win32_GroupUser where GroupComponent = " & _
                               chr(34) & "Win32_Group.Domain='" & comp & "',Name='" & grp & "'" & Chr(34)
   
   Dim ColItems : Set ColItems = objWMI.ExecQuery(strQuery)
   Dim path
   Dim NamesArray
   
   For Each path In ColItems    
       NamesArray = Split(path.PartComponent,",")
        WScript.Echo Replace(Replace(NamesArray(1),Chr(34),""),"Name=","")
    Next

End Sub

_____________________________

Author of ManagePC - http://managepc.net
AD Query Template - http://www.visualbasicscript.com/m_40609/tm.htm
Consolidated Scripting Framework - http://www.visualbasicscript.com/m_59109/tm.htm