Pages

Thursday, August 11, 2011

How to get Local Machine Groups using WMI in VB.NET

Dim search As New ManagementObjectSearcher("SELECT * FROM Win32_Group Where LocalAccount = True")
For Each info In search.Get()
 Dim objGroup = GetObject("WinNT://./" & info("Name").ToString &  ",group")
  For Each objMember In objGroup.Members
     Dim info As ManagementObject
     Msgbox(info("Name").ToString)
     Msgbox(objMember.Name)
 

  Next 
Next

No comments:

Post a Comment