Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: pungados en 11 Noviembre 2009, 10:20 am



Título: Es posible? Monitorear temperatura de otra PC
Publicado por: pungados en 11 Noviembre 2009, 10:20 am
Hola comunidad, voy a intentar de expresar de la mejor manera mi idea. Primero de todo no es ningun proyecto, nada relacionado con la facultad, es solo para uso personal.
Okey, mi idea es la siguiente:
Monitorear la temperatura de otra computadora de mi casa desde la mía.
Como pienso hacerlo?
Primero voy a crear 2 proyectos, uno va a ser el "cliente" y otro el "servidor".
El cliente se va a ejecutar desde la computadora que quiero monitorear.
El servidor se ejecuta en mi computadora.
La función del cliente es enviarme información de la temperatura de la PC.
La función del servidor es mostrármela a mi.

Mi problema es como saber la temperatura de una computadora en Visual Basic.
Con winsock no tengo muchos problemas, se enviar información.

Si alguno puede sacarme este problema se lo agradecería.

SAludos


Título: Re: Es posible? Monitorear temperatura de otra PC
Publicado por: fede_cp en 11 Noviembre 2009, 15:59 pm
aca porai te ayudo

http://www.elguruprogramador.com.ar/foros/tema/89

salkudos


Título: Re: Es posible? Monitorear temperatura de otra PC
Publicado por: ssccaann43 © en 11 Noviembre 2009, 19:24 pm
Yo creo que Seba y el coco publicaron algo respecto a eso... Si lo encuentro lo posteo...


Título: Re: Es posible? Monitorear temperatura de otra PC
Publicado por: xkiz ™ en 11 Noviembre 2009, 20:50 pm
lo que dice ssccaann -> http://www.leandroascierto.com.ar/foro/index.php?topic=8.0


Título: Re: Es posible? Monitorear temperatura de otra PC
Publicado por: pungados en 11 Noviembre 2009, 21:25 pm
Código:
Dim wbemServices As Object
Dim wbemObject As Object
Dim wbemObjectSet As Object
Dim stemp As Single

Set wbemServices = GetObject("winmgmts:" & "\localhost
ootwmi")
Set wbemObjectSet = wbemServices.InstancesOf("MSAcpi_ThermalZoneTemperature")
For Each wbemObject In wbemObjectSet
stemp = (wbemObject.CurrentTemperature - 2732) / 10
Next

Set wbemServices = Nothing
Set wbemObjectSet = Nothing

Me da un error, me pone que wbemObjectset = "nothing"
El cartel de error me dice:
"Error '-2147217375 (80041021' en tiempo de ejecución:
Error de automtización"

Alguna idea?


Título: Re: Es posible? Monitorear temperatura de otra PC
Publicado por: seba123neo en 12 Noviembre 2009, 01:19 am
con esto obtenes la temperatura actual del disco duro...

Obtener temperatura del Dico duro (http://foro.elhacker.net/programacion_vb/temperatura_del_disco-t216033.0.html)

el tema es que WMI no anda siempre..segun los permisos...

saludos.