多线程监控

 Private Delegate Sub WorkHandler(ByVal input1 As String, ByVal input2 As String, ByVal input3 As String, ByVal input4 As String, ByVal input5 As Integer)

 For i As Integer = 0 To MachineArray.Count - 1
                Dim worker As New WorkHandler(AddressOf SettingKey)
                worker.BeginInvoke(MachineArray(i), KeyValue, user, password, i, AddressOf SettingKeyCallback, Nothing)
            Next i

SettingKey(ByVal strWMI As String, ByVal KeyValue As String, ByVal user As String, ByVal password As String, ByVal BufferCount As Integer)