Temperatur - Igen

Hvordan får jeg FX temperaturen på CPU'en via et API kald?
Og EVT. også Fan hastigheden?

Jeg skal bruge det i mit program...


www.andreaslinks.tk - Company Site
www.ournameclan.tk - AA : O Clan site

--oOo--

Du kan benytte WMI klasserne Win32_TemperatureProbe og Win32_Fan til at hente disse info.

Et lille eksempel på WMI hvor info om alle CPU'er bliver hentet :

Dim Namespace As SWbemServices: Set Namespace = GetObject("winmgmts:")
Dim Item As SWbemObject: Dim ItemSet As SWbemObjectSet
'--- Get All CPU's ---
Set ItemSet = Namespace.InstancesOf("Win32_Processor")
For Each Item In ItemSet
strCPU = Item.Name: strClock = Item.CurrentClockSpeed
strDesc = strDesc & "CPU:" & bCPU & " (" & bClock & " MHz)" & vbCrLf
Next

Hvordan får jeg FX temperaturen på CPU'en via et API kald?
Og EVT. også Fan hastigheden?

Jeg skal bruge det i mit program...


www.andreaslinks.tk - Company Site
www.ournameclan.tk - AA : O Clan site

--oOo--

Du kan benytte WMI klasserne Win32_TemperatureProbe og Win32_Fan til at hente disse info.

Et lille eksempel på WMI hvor info om alle CPU'er bliver hentet :

Dim Namespace As SWbemServices: Set Namespace = GetObject("winmgmts:")
Dim Item As SWbemObject: Dim ItemSet As SWbemObjectSet
'--- Get All CPU's ---
Set ItemSet = Namespace.InstancesOf("Win32_Processor")
For Each Item In ItemSet
strCPU = Item.Name: strClock = Item.CurrentClockSpeed
strDesc = strDesc & "CPU:" & bCPU & " (" & bClock & " MHz)" & vbCrLf
Next

OKAY, måske var det en fed ide at skrive hvilke referencer der skal til, for at
bruge typen "SWbemServices" ?






/Duplex

Hvordan får jeg FX temperaturen på CPU'en via et API kald?
Og EVT. også Fan hastigheden?

Jeg skal bruge det i mit program...


www.andreaslinks.tk - Company Site
www.ournameclan.tk - AA : O Clan site

--oOo--

Du kan benytte WMI klasserne Win32_TemperatureProbe og Win32_Fan til at hente disse info.

Et lille eksempel på WMI hvor info om alle CPU'er bliver hentet :

Dim Namespace As SWbemServices: Set Namespace = GetObject("winmgmts:")
Dim Item As SWbemObject: Dim ItemSet As SWbemObjectSet
'--- Get All CPU's ---
Set ItemSet = Namespace.InstancesOf("Win32_Processor")
For Each Item In ItemSet

Ja, som Brian siger, kunne det godt være rart med lidt referencer og nærmere forklaring...
strCPU = Item.Name: strClock = Item.CurrentClockSpeed
strDesc = strDesc & "CPU:" & bCPU & " (" & bClock & " MHz)" & vbCrLf
Next

www.andreaslinks.tk - Company Site
www.ournameclan.tk - AA : O Clan site

Rettelse:

Ja, som Brian siger, kunne det godt være rart med lidt referencer og nærmere forklaring...

OKAY, måske var det en fed ide at skrive hvilke referencer der skal til, for at
bruge typen "SWbemServices" ?

/Duplex

-oOo-

Sæt reference til Project / References / [x] Microsoft WMI Scripting Library

Du kan læse masser om WMI på msdn.microsoft.com, f.eks. under URL :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/wmi_start_page.asp

/Mick