Hola les agradeceria mucho me puedan ayudar con un problema que tengo para realizar un inventario por la red usando WMI desde Vba de Excel.
Les dejo una parte donde me da un error 462.. "que la maquina no esta disponible",
cosa que no es posible ya que esta al lado mio esta con mi usuario y responde al ping y Mapdrive. Si lo corro en maquina local me funciona sin problem. Mi usuario esta dentro del grupo de administradores(a lo mejor me falta un permiso?? pero si mi usuario puede realizarlo local.)
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
MUCHAS gracias de antemano..
Saludos
Gonzalo
