strComputer = "NOMDUPC"

strTestString = "/" & strComputer & "/"

Set colGroups = GetObject("WinNT://" & strComputer & "/NOMDUGROUPE")

  For Each objUser In colGroups.Members
     If InStr(objUser.AdsPath, strTestString) Then
       Wscript.Echo "Local user: " & objUser.Name
    Else
       Wscript.Echo "Domain user: " & objUser.Name
   End If
Next