Find networked computers

[noble]

Is there a way to go out and search for all computers
on the network you are currently on and get the names of them?


Thanks in advance

[Babbalouie]

Public Function GetComputersInADomain(aryUsers() As String) As Long

    'Notes:  Requires a global array to be pased in if list of users wanted
    'Notes:  Very slow if domain name not valid
    'Notes:  Must set reference to Active DS Type Library for this to work
    
Dim TheDomain As IADsDomain
Dim Computer As IADsComputer
Dim strDomain As String
Dim x As Long

    'Accept the Domain name
    strDomain = InputBox("Domain Name: ")

    'Use the WinNT Directory Services
    strDomain = "WinNT://" & strDomain

    'Create the Domain object
    Set TheDomain = GetObject(strDomain)

    'Search for Computers in the Domain
    TheDomain.Filter = Array("Computer")

    'Enumerate each computer in the domain
    For Each Computer In TheDomain
        x = x + 1
        ReDim Preserve aryUsers(x)
        aryUsers(x) = Computer.NAME
    Next Computer

    'Clean up
    GetComputersInADomain = x
    Set Computer = Nothing
    Set TheDomain = Nothing

End Function

[noble]

thank you very much bababooey