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
CambiadoAtilla Arrudajueves, 11 de marzo de 2010 19:41 (De:TechNet Plus)