follow-up:
i use this to get the information using the IP address

Dim co As New ConnectionOptions()
Dim ms As New System.Management.ManagementScope("\\" & Name & "\root\cimv2", co)
Dim oqProcessor = New System.Management.ObjectQuery("SELECT * FROM Win32_Processor")
Dim queryProcessor = New ManagementObjectSearcher(ms, oqProcessor)
Dim queryCollectionProcessor = queryProcessor.[Get]()

using the above code, i could get the information of the computers, however, i could not get the names of the machines(printer, access point)

__________________
"...THe TeLePHoNe NuMBeR u DiaLLeD iS UnDeRGRouND... PLeaSe TRY uR CaLL NeVeR..."