请告诉把获取CPU温度的vb代码转成vbs代码

winload

1. Private Sub Command1_Click()
   
2. 
   
3.     MsgBox "CPU 温度 : " & CPU_Temperature & " C"
   
4. 
   
5. End Sub
   
6. 
   
7. Private Function CPU_Temperature() As Integer
   
8. 
   
9.     Dim WMIsvc As Object
   
10. 
    
11.     Dim CltItems As Object, CltItem As Object
    
12. 
    
13.     Dim Q As String
    
14. 
    
15.     Set WMIsvc = GetObject("winmgmts:\\.\root\WMI")
    
16. 
    
17.     Q = "SELECT * FROM MSAcpi_ThermalZoneTemperature"
    
18. 
    
19.     Set CltItems = WMIsvc.ExecQuery(Q, , 48)
    
20. 
    
21.     For Each CltItem In CltItems
    
22. 
    
23.         CPU_Temperature = CltItem.CurrentTemperature
    
24. 
    
25.     Next
    
26. 
    
27.     CPU_Temperature = (CPU_Temperature - 2732) / 10
    
28. 
    
29.     Set CltItem = Nothing
    
30. 
    
31.     Set CltItems = Nothing
    
32. 
    
33.     Set WMIsvc = Nothing
    
34. 
    
35. End Function

复制代码

pcl_test

1. MsgBox "CPU 温度 : " & CPU_Temperature & "℃"
   
2. 
   
3. Function CPU_Temperature()
   
4. Set WMIsvc = GetObject("winmgmts:\\.\root\wmi")
   
5. Set CltItems = WMIsvc.ExecQuery("Select * from MSAcpi_ThermalZoneTemperature",,48)
   
6. 
   
7. For Each CltItem in CltItems
   
8.     CPU_Temperature = CltItem.CurrentTemperature
   
9. Next
   
10. CPU_Temperature = (CPU_Temperature - 2732) / 10
    
11. End Function

复制代码

winload

万分感谢！

winload

回复 2# pcl_test


    请问可以用批处理实现吗 可能吗？ 在不调用vbs的情况下