Es posible? Monitorear temperatura de otra PC

Iniciado por pungados, 11 Noviembre 2009, 10:20 AM

0 Miembros y 1 Visitante están viendo este tema.

pungados

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

fede_cp

somos lo que hacemos para cambiar lo que somos

http://elhackerblog.blogspot.com el blog de elhacker.net!!

ssccaann43 ©

Yo creo que Seba y el coco publicaron algo respecto a eso... Si lo encuentro lo posteo...
- Miguel Núñez
Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio...
"I like ^TiFa^"


pungados

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?

seba123neo

con esto obtenes la temperatura actual del disco duro...

Obtener temperatura del Dico duro

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

saludos.
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson