Get Local Machine Groups using WMI

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