Function DameEquiposRed(ByVal NombreDominio As String)
Dim ObjDominio As Object, ObjetoPC As Object
    Set ObjDominio = GetObject("WinNT://" & NombreDominio)
    ObjDominio.Filter = Array("Computer")
    For Each ObjetoPC In ObjDominio
        MsgBox ObjetoPC.Name
    Next ObjetoPC
    Set ObjetoPC = Nothing
    Set ObjDominio = Nothing
End Function

Sub prueba()
 DameEquiposRed "TDM"
End Sub