Inventario WMI

Question

Buenas ..estoy tratando de realizar un inventario por la red de Pc's de la empresa ocupando WMI desde VB de Excel.
el codigo es el siguiente:

Function SerialN(IP As String) As String
 On Error GoTo jodio
    Set ObjWMIService = GetObject("winmgmts:\\" & IP & "\root\cimv2")
    Set colBIOS = ObjWMIService.ExecQuery("Select * from Win32_BIOS")
    Call Espera(1)
    For Each ObjBIOS In colBIOS
        SerialN = ObjBIOS.SerialNumber
    Next
    Set ObjWMIService = Nothing: Set colBIOS = Nothing
    Exit Function
jodio:
    If Err.Number = 7 Then SerialN = "No pudo traer la serie"
    If Err.Number = 70 Then SerialN = "No pudo traer la serie"
End Function

El Problema es que cuando realiza el Getobject no hace nada y me arroja el error 462, osea que el equipo no esta disponible.
pero yo le hago ping y responde.. y me puedo conectar con un MapDrive al disco duro de ese equipo.

porfavor necesito ayuda..
de antemano muchas gracias