Win32_GroupUser namespace is incomplete on Windows Server 2003

• Question

• 

  

  0

  Sign in to vote

  Hello.

  I have VBS script that fetches members of local administrator group. 

  It works fine on all versions since 2008 or higher, but on windows server 2003 it doesn't get one domain group, that does exist in local administrators group.

  I see that group in GUI, but it doesnt exist in namespace Win32_GroupUser. Why?

  Sub GetAdministrators(strComputerName)
      Dim objWMIService, strQuery, colItems, Path, strMembers
      groupname = ""
      domain = "."
      sid ="S-1-5-32-544"
      Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
      qry = "SELECT * FROM Win32_Group WHERE Domain = ""."" and SID=""S-1-5-32-544"""
      For Each group In objWMIService.ExecQuery(qry)
      groupname = group.Name
      Next
      strQuery = "select * from Win32_GroupUser where GroupComponent = " & chr(34) & "Win32_Group.Domain='" & strComputerName & "',Name='" & groupname & "'" & Chr(34)
      Set ColItems = objWMIService.ExecQuery(strQuery)
      strMembers = ""
      For Each Path In ColItems
          Dim strMemberName, NamesArray, strDomainName, DomainNameArray
          NamesArray = Split(Path.PartComponent,",")
          strMemberName = Replace(Replace(NamesArray(1),Chr(34),""),"Name=","")
          DomainNameArray = Split(NamesArray(0),"=")
          strDomainName = Replace(DomainNameArray(1),Chr(34),"")
          If strDomainName <> strComputerName Then
              strMemberName = strDomainName & "\" & strMemberName
          End If
          WScript.Echo strMemberName
      Next
  End Sub
   
  Function GetComputerName()
      Set objWMISvc = GetObject( "winmgmts:\\.\root\cimv2" )
      Set colItems = objWMISvc.ExecQuery( "Select * from Win32_ComputerSystem", , 48 )
      For Each objItem in colItems
          strComputerName = objItem.Name
          GetComputerName = strComputerName
      Next
  End Function
   
  GetAdministrators GetComputerName()

  • Moved by Cherry BuMicrosoft contingent staff Thursday, September 28, 2017 6:26 AM Move from vb.net

  Sunday, September 17, 2017 1:28 PM