Вопрос об WMI

[Aleksej]

Почему не работает код приведённый ниже? Заранее спасибо за ответы.

Код: Выделить всё

Dim strComputer As String
Dim objWMIService As Object, colFan As Object, objFan As Object

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colFan = objWMIService.ExecQuery("SELECT * FROM Win32_Fan")
    For Each objFan In colFan
        Debug.Print "Name: " & objFan.Name
        Debug.Print "VariableSpeed: " & objFan.VariableSpeed
    Next


[RayShade]

А зачем городить такой странный огород? Можно просто

Set colFan = objWMIService.instancesof("Win32_Fan")



Хотя, если система не поддерживает нужный ACPI API то по просту замер скорости вентилятора недоступен и класс ничего не вернет.

[Sebas]

Класс работает, иногда, тока под ХП и 2к3 треба всякие драйвера поставить, вообщем на данный момент гиблая затея.

[RayShade]

А я про что говорю? Если нет поддержки со стороны операционки, то и класс ничего не вернет, т.е. работать не станет.

[Aleksej]

В том то всё и дело, что этот код не работает:

Код: Выделить всё

  Dim wmiObjSet As Object
   Dim obj, colTemp As Object
   Dim strComputer As String
   
  strComputer = "localhost"
   

   On Local Error Resume Next
   Set wmiObjSet = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
   Set colTemp = wmiObjSet.InstancesOf("Win32_TemperatureProbe")


А вот так температура проца возвращается:

Код: Выделить всё

Dim strComputer As String
Dim wbemServices  As Object, wbemObjectSet As Object
Dim Item As Object


Set wbemServices = GetObject("winmgmts:" & "\\localhost\root\wmi")
Set wbemObjectSet = wbemServices.InstancesOf("MSAcpi_ThermalZoneTemperature")

For Each Item In wbemObjectSet
Debug.Print "CPU Temperature: " & (Item.CurrentTemperature - 2732) / 10 & "°C"
Next


В Windows 2000 работает 100% проверено.

[Sebas]

БЛин, так у тя тут разные классы используются!

[Aleksej]

Правильно разные. Вопрос, почему один работает, а другой нет ?

[Sebas]

У меня, кстати, на ХП СП1 оба не работают(((

[Sebas]

щя тестану на 2к

[Sebas]

А откуда вот этот класс?
MSAcpi_ThermalZoneTemperature

У меня его в списке нет((((

Чёто развод какойто! даже поиск MS-ya-yahoo ничё не дал!!!!!!!

[Sebas]

точняк, на 2к пашет.... а на ХП даже класса такого нет(((

Щяяяяз разберёмся...