Доменные пользователи в локальных группах

className = "Win32_GroupUser"
compName = "ws_name"
tstUser = "user_name"
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & compName & "\root\cimv2")
Set guCollection = objWMI.ExecQuery("Select * from " & className)
For Each curObj In guCollection
    groupComp = Replace(curObj.GroupComponent, """", "")
    xPos = InStrRev(groupComp, "Domain=" & compName, -1, vbTextCompare)
    If xPos > 0 Then
        partComp = Replace(curObj.PartComponent, """", "")
        xPos = InStrRev(partComp, "=")
        xName = Mid(partComp, xPos + 1)
        If StrComp(xName, tstUser, vbTextCompare) = 0 Then
            xPos = InStrRev(groupComp, "=")
            xName = Mid(groupComp, xPos + 1)
            resList = resList & xName & vbCr
        End If
    Else
        Exit For       
    End If
Next
If resList <> "" Then
    WScript.Echo "Учётная запись пользователя " & UCase(tstUser) & " обнаружена в локальных группах:" & vbCr & vbCr & resList
Else
    WScript.Echo "Учётная запись пользователя " & UCase(tstUser) & " не обнаружена ни в одной из локальных групп."
End If