none
Inventario WMI RRS feed

  • Pregunta

  • 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
    • Cambiado Atilla Arruda jueves, 11 de marzo de 2010 19:41 (De:TechNet Plus)
    lunes, 7 de septiembre de 2009 22:33