Hello have you a peace of code for mesure temperature of a disque please thank you
Il giorno Sun, 20 Jul 2008 21:39:53 +0200, "zloup" ha scritto: >Hello > >have you a peace of code for mesure temperature of a disque please Je ne suis pas sur si ça marche. Le script a été creé par vbsedit. On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_TemperatureProbe",,48) For Each objItem in colItems WScript.Echo "AccOn Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_TemperatureProbe",,48) For Each objItem in colItems WScript.Echo "Accuracy: " & objItem.Accuracy WScript.Echo "Availability: " & objItem.Availability WScript.Echo "Caption: " & objItem.Caption WScript.Echo "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode WScript.Echo "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig WScript.Echo "CreationClassName: " & objItem.CreationClassName WScript.Echo "CurrentReading: " & objItem.CurrentReading WScript.Echo "Description: " & objItem.Description WScript.Echo "DeviceID: " & objItem.DeviceID WScript.Echo "ErrorCleared: " & objItem.ErrorCleared WScript.Echo "ErrorDescription: " & objItem.ErrorDescription WScript.Echo "InstallDate: " & objItem.InstallDate WScript.Echo "IsLinear: " & objItem.IsLinear WScript.Echo "LastErrorCode: " & objItem.LastErrorCode WScript.Echo "LowerThresholdCritical: " & objItem.LowerThresholdCritical WScript.Echo "LowerThresholdFatal: " & objItem.LowerThresholdFatal WScript.Echo "LowerThresholdNonCritical: " & objItem.LowerThresholdNonCritical WScript.Echo "MaxReadable: " & objItem.MaxReadable WScript.Echo "MinReadable: " & objItem.MinReadable WScript.Echo "Name: " & objItem.Name WScript.Echo "NominalReading: " & objItem.NominalReading WScript.Echo "NormalMax: " & objItem.NormalMax WScript.Echo "NormalMin: " & objItem.NormalMin WScript.Echo "PNPDeviceID: " & objItem.PNPDeviceID WScript.Echo "PowerManagementCapabilities: " & objItem.PowerManagementCapabilities WScript.Echo "PowerManagementSupported: " & objItem.PowerManagementSupported WScript.Echo "Resolution: " & objItem.Resolution WScript.Echo "Status: " & objItem.Status WScript.Echo "StatusInfo: " & objItem.StatusInfo WScript.Echo "SystemCreationClassName: " & objItem.SystemCreationClassName WScript.Echo "SystemName: " & objItem.SystemName WScript.Echo "Tolerance: " & objItem.Tolerance WScript.Echo "UpperThresholdCritical: " & objItem.UpperThresholdCritical WScript.Echo "UpperThresholdFatal: " & objItem.UpperThresholdFatal WScript.Echo "UpperThresholdNonCritical: " & objItem.UpperThresholdNonCritical WScript.Echo "" Next WScript.Echo "" Next -- Giovanni Cenati (Bergamo, Italy) Write to "Reventlov" at katamail com http://digilander.libero.it/Cenati (Esempi e programmi in VbScript) --
desole marche pas erreur ligne 38 !! merci quand meme "Reventlov" a écrit dans le message de news: 4890704a.4260069@powernews.libero.it... > Il giorno Sun, 20 Jul 2008 21:39:53 +0200, "zloup" ha > scritto: > >>Hello >> >>have you a peace of code for mesure temperature of a disque please > > Je ne suis pas sur si ça marche. Le script a été creé par vbsedit. > > On Error Resume Next > strComputer = "." > Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") > Set colItems = objWMIService.ExecQuery("Select * from > Win32_TemperatureProbe",,48) > > For Each objItem in colItems > WScript.Echo "AccOn Error Resume Next > strComputer = "." > Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") > Set colItems = objWMIService.ExecQuery("Select * from > Win32_TemperatureProbe",,48) > > For Each objItem in colItems > WScript.Echo "Accuracy: " & objItem.Accuracy > WScript.Echo "Availability: " & objItem.Availability > WScript.Echo "Caption: " & objItem.Caption > WScript.Echo "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode > WScript.Echo "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig > WScript.Echo "CreationClassName: " & objItem.CreationClassName > WScript.Echo "CurrentReading: " & objItem.CurrentReading > WScript.Echo "Description: " & objItem.Description > WScript.Echo "DeviceID: " & objItem.DeviceID > WScript.Echo "ErrorCleared: " & objItem.ErrorCleared > WScript.Echo "ErrorDescription: " & objItem.ErrorDescription > WScript.Echo "InstallDate: " & objItem.InstallDate > WScript.Echo "IsLinear: " & objItem.IsLinear > WScript.Echo "LastErrorCode: " & objItem.LastErrorCode > WScript.Echo "LowerThresholdCritical: " & objItem.LowerThresholdCritical > WScript.Echo "LowerThresholdFatal: " & objItem.LowerThresholdFatal > WScript.Echo "LowerThresholdNonCritical: " & > objItem.LowerThresholdNonCritical > WScript.Echo "MaxReadable: " & objItem.MaxReadable > WScript.Echo "MinReadable: " & objItem.MinReadable > WScript.Echo "Name: " & objItem.Name > WScript.Echo "NominalReading: " & objItem.NominalReading > WScript.Echo "NormalMax: " & objItem.NormalMax > WScript.Echo "NormalMin: " & objItem.NormalMin > WScript.Echo "PNPDeviceID: " & objItem.PNPDeviceID > WScript.Echo "PowerManagementCapabilities: " & > objItem.PowerManagementCapabilities > WScript.Echo "PowerManagementSupported: " & > objItem.PowerManagementSupported > WScript.Echo "Resolution: " & objItem.Resolution > WScript.Echo "Status: " & objItem.Status > WScript.Echo "StatusInfo: " & objItem.StatusInfo > WScript.Echo "SystemCreationClassName: " & objItem.SystemCreationClassName > WScript.Echo "SystemName: " & objItem.SystemName > WScript.Echo "Tolerance: " & objItem.Tolerance > WScript.Echo "UpperThresholdCritical: " & objItem.UpperThresholdCritical > WScript.Echo "UpperThresholdFatal: " & objItem.UpperThresholdFatal > WScript.Echo "UpperThresholdNonCritical: " & > objItem.UpperThresholdNonCritical > WScript.Echo "" > Next > WScript.Echo "" > Next > -- > Giovanni Cenati (Bergamo, Italy) > Write to "Reventlov" at katamail com > http://digilander.libero.it/Cenati (Esempi e programmi in VbScript) > --
