VB.Net调用WMI可以实现系统管理和系统信息查询等。msdn上只有C++和vbs脚本演示，乐博网在vbs脚本基础上将发布WMI系列文章演示如何将WMI应用到VB.Net上。

调试环境 vb2005  windows2003

VB.Net查询系统日志明细的方法  以下演示了查询所有系统日志明细的方法

可以自行修改为应用程序/安全日志

 Private Sub Lobdotcn()

        Dim strComputer As String = "."
        Dim objWMIService As Object = GetObject("winmgmts:" _
            & "{impersonationLevel=impersonate}!\\" _
            & strComputer & "\root\cimv2")
        Dim objEvent As Object
        Dim colLoggedEvents As Object = objWMIService.ExecQuery _
   ("Select * from Win32_NTLogEvent " _
        & "Where Logfile = 'System'")
        For Each objEvent In colLoggedEvents
            MsgBox("Category: " & objEvent.Category & vbNewLine _
            & "Computer Name: " & objEvent.ComputerName & vbNewLine _
            & "Event Code: " & objEvent.EventCode & vbNewLine _
            & "Message: " & objEvent.Message & vbNewLine _
            & "Record Number: " & objEvent.RecordNumber & vbNewLine _
            & "Source Name: " & objEvent.SourceName & vbNewLine _
            & "Time Written: " & objEvent.TimeWritten & vbNewLine _
            & "Event Type: " & objEvent.Type & vbNewLine _
            & "User: " & objEvent.User)
        Next

    End Sub