dallas page

Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Добрый день господа знатоки. Подскажите пожалуйста, использую ScriptOMatic Tool v.1.1. Нужно получить температуру процессора. Выбираю WMI Class Win32_TemperatureProbe. Но в итоге ничего не происходит (((. Код: -- Generated by ScriptOMatic Tool for AutoPlay Media Studio function Escape(v) if (v == nil) then return ""; end if (type(v) == "table") then return Table.Concat(v, ", "); end if (type(v) == "boolean") then if (v == true) then return "Yes"; else return "No"; end end return v; end function WMIDateStringToDate(dtmDate) if dtmDate then dtmDate = tostring(dtmDate); return (String.Mid(dtmDate, 7, 2) .. "/" .. String.Mid(dtmDate, 5, 2) .. "/" .. String.Left(dtmDate, 4) .. " " .. String.Mid(dtmDate, 9, 2) .. ":" .. String.Mid(dtmDate, 11, 2) .. ":" .. String.Mid(dtmDate,13, 2)); else return ""; end end local strOutputTitle = ""; local strOutput = ""; strOutputTitle = strOutputTitle .. "Computer: localhost\r\n"; strOutputTitle = strOutputTitle .. "==========================================\r\n\r\n"; local objWMIService = luacom.GetObject("winmgmts:\\\\.\\root\\CIMV2"); local objColItems = objWMIService:ExecQuery("SELECT * FROM Win32_TemperatureProbe", "WQL", 48); if (objColItems) then local oEnum = luacom.GetEnumerator(objColItems); local objItem = oEnum:Next(); while (objItem) do strOutput = strOutput .. "Accuracy: " .. Escape(objItem:Accuracy()) .. "\r\n"; strOutput = strOutput .. "Availability: " .. Escape(objItem:Availability()) .. "\r\n"; strOutput = strOutput .. "Caption: " .. Escape(objItem:Caption()) .. "\r\n"; strOutput = strOutput .. "ConfigManagerErrorCode: " .. Escape(objItem:ConfigManagerErrorCode()) .. "\r\n"; strOutput = strOutput .. "ConfigManagerUserConfig: " .. Escape(objItem:ConfigManagerUserConfig()) .. "\r\n"; strOutput = strOutput .. "CreationClassName: " .. Escape(objItem:CreationClassName()) .. "\r\n"; strOutput = strOutput .. "CurrentReading: " .. Escape(objItem:CurrentReading()) .. "\r\n"; strOutput = strOutput .. "Description: " .. Escape(objItem:Description()) .. "\r\n"; strOutput = strOutput .. "DeviceID: " .. Escape(objItem:DeviceID()) .. "\r\n"; strOutput = strOutput .. "ErrorCleared: " .. Escape(objItem:ErrorCleared()) .. "\r\n"; strOutput = strOutput .. "ErrorDescription: " .. Escape(objItem:ErrorDescription()) .. "\r\n"; strOutput = strOutput .. "InstallDate: " .. WMIDateStringToDate(objItem:InstallDate()) .. "\r\n"; strOutput = strOutput .. "IsLinear: " .. Escape(objItem:IsLinear()) .. "\r\n"; strOutput = strOutput .. "LastErrorCode: " .. Escape(objItem:LastErrorCode()) .. "\r\n"; strOutput = strOutput .. "LowerThresholdCritical: " .. Escape(objItem:LowerThresholdCritical()) .. "\r\n"; strOutput = strOutput .. "LowerThresholdFatal: " .. Escape(objItem:LowerThresholdFatal()) .. "\r\n"; strOutput = strOutput .. "LowerThresholdNonCritical: " .. Escape(objItem:LowerThresholdNonCritical()) .. "\r\n"; strOutput = strOutput .. "MaxReadable: " .. Escape(objItem:MaxReadable()) .. "\r\n"; strOutput = strOutput .. "MinReadable: " .. Escape(objItem:MinReadable()) .. "\r\n"; strOutput = strOutput .. "Name: " .. Escape(objItem:Name()) .. "\r\n"; strOutput = strOutput .. "NominalReading: " .. Escape(objItem:NominalReading()) .. "\r\n"; strOutput = strOutput .. "NormalMax: " .. Escape(objItem:NormalMax()) .. "\r\n"; strOutput = strOutput .. "NormalMin: " .. Escape(objItem:NormalMin()) .. "\r\n"; strOutput = strOutput .. "PNPDeviceID: " .. Escape(objItem:PNPDeviceID()) .. "\r\n"; strOutput = strOutput .. "PowerManagementCapabilities: " .. Escape(objItem.PowerManagementCapabilities(0)) .. "\r\n"; strOutput = strOutput .. "PowerManagementSupported: " .. Escape(objItem:PowerManagementSupported()) .. "\r\n"; strOutput = strOutput .. "Resolution: " .. Escape(objItem:Resolution()) .. "\r\n"; strOutput = strOutput .. "Status: " .. Escape(objItem:Status()) .. "\r\n"; strOutput = strOutput .. "StatusInfo: " .. Escape(objItem:StatusInfo()) .. "\r\n"; strOutput = strOutput .. "SystemCreationClassName: " .. Escape(objItem:SystemCreationClassName()) .. "\r\n"; strOutput = strOutput .. "SystemName: " .. Escape(objItem:SystemName()) .. "\r\n"; strOutput = strOutput .. "Tolerance: " .. Escape(objItem:Tolerance()) .. "\r\n"; strOutput = strOutput .. "UpperThresholdCritical: " .. Escape(objItem:UpperThresholdCritical()) .. "\r\n"; strOutput = strOutput .. "UpperThresholdFatal: " .. Escape(objItem:UpperThresholdFatal()) .. "\r\n"; strOutput = strOutput .. "UpperThresholdNonCritical: " .. Escape(objItem:UpperThresholdNonCritical()) .. "\r\n"; if Dialog.Message("WMI Output", strOutputTitle .. strOutput, 1) == 2 then break end Output = ""; objItem = oEnum:Next(); end else Dialog.Message("WMI Output", "No WMI Objects Found for class: Win32_TemperatureProbe"); end |
| Всего записей: 205 | Зарегистр. 28-03-2010 | Отправлено: 18:05 30-03-2013 | Исправлено: dallas page, 18:19 30-03-2013 |
|