Question

是否有人提出任何建议,以加快这一海事调查? 我每5秒更新一次客户申请,以显示邮联的状态。视窗2003年较快,但至少需要5秒才能恢复4个信标核心的立体:

Private Sub GetProcessorIdleTime(ByVal Server As String) 

        Dim searcher As New ManagementObjectSearcher("\" & Server & "
ootCIMV2", "SELECT LoadPercentage FROM Win32_Processor")
        Dim collection As ManagementObjectCollection = searcher.[Get]()

        For Each row In collection
            TextBox1.Text = TextBox1.Text & vbCrLf & Convert.ToInt32(row("LoadPercentage"))
        Next

End Sub

还是有更好的办法远程检索这些信息?

Answer 1

To improve the performance, you must re-use the WMI connection to the remote server, establishing a connection is one of the more expensive tasks when you execute a WQL sentence. In your code you are setting a new WMI remote connection each time. So rewrite your code creating a new method to establish the remote connection and then reuse (share) the ManagementObjectSearcher object in your GetProcessorIdleTime method.

友情链接