VB.Net调用WMI可以实现系统管理和系统信息查询等。msdn上只有C++和vbs脚本演示,乐博网在vbs脚本基础上将发布WMI系列文章演示如何将WMI应用到VB.Net上。
调试环境 vb2005 windows2003
VB.Net清理系统日志的方法
以下为清理Application (应用程序日志)的方法 可自行修改为系统日志或安全日志
代码如下:
Private Sub Lobdotcn()
Dim strComputer As String = "." Dim objWMIService As Object = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Dim objLogFile As Object Dim colLogFiles As Object = objWMIService.ExecQuery _ ("Select * from Win32_NTEventLogFile " _ & "Where LogFileName='Application'") For Each objLogFile In colLogFiles objLogFile.ClearEventLog() MsgBox("Cleared application event log file") Next
End Sub |