VB.NET質問スレ (Part24)
レス数が950を超えています。1000を超えると書き込みができなくなります。
0961至急求む
2008/02/21(木) 15:19:48動かしたい。しかし
Imports System.Managementが参照できないのだが、どうしたらいい?
Imports System
Imports System.Management
Imports System.Windows.Forms
Namespace WMISample
Public Class MyWMIQuery
Public Overloads Shared Function Main() As Integer
Try
Dim searcher As New ManagementObjectSearcher( _
"root\WMI", _
"SELECT * FROM ProcessorPerformance")
For Each queryObj As ManagementObject In searcher.Get()
Console.WriteLine("-----------------------------------")
Console.WriteLine("ProcessorPerformance instance")
Console.WriteLine("-----------------------------------")
Console.WriteLine("Active: {0}", queryObj("Active"))
Next
Catch err As ManagementException
MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
End Try
End Function
End Class
End Namespace
レス数が950を超えています。1000を超えると書き込みができなくなります。