|
读取日志记录：
Imports System
Imports System.Management
Module Module1
Public Sub Main()
Dim strComputer = "magicdog"
Dim wbemServices, wbemObjectSet, wbemObject
wbemServices = GetObject("winmgmts:\\" & strComputer)
wbemObjectSet = wbemServices.InstancesOf("Win32_NTLogEvent")
For Each wbemObject In wbemObjectSet
Console.WriteLine("日志文件：" & wbemObject.LogFile)
Console.WriteLine("记录号：" & wbemObject.RecordNumber)
Console.WriteLine("类型：" & wbemObject.Type)
Console.WriteLine("产生时间：" & wbemObject.TimeGenerated)
Console.WriteLine("源名称：" & wbemObject.SourceName)
Console.WriteLine("事件代码：" & wbemObject.EventCode)
Console.WriteLine("用户" & wbemObject.User)
Console.WriteLine("计算机名：" & wbemObject.ComputerName)
Console.WriteLine("信息：" & wbemObject.Message)
Next
End Sub
End Module
---------------------------------------------------------------------------------------
删除日志文件：（请先备份）
Imports System
Imports System.Management
Module Module1
Public Sub Main()
Dim strComputer = "."
Dim objWMIService, objLogFiles, objLogFile, logs, mylogs(3)
objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,（Backup）}!\\" & strComputer & "\root\cimv2")
mylogs(1) = "application"
mylogs(2) = "system"
mylogs(3) = "security"
For Each logs In mylogs
objLogFiles = objWMIService.ExecQuery("Select * from Win32_NTEventLogFile where LogFileName=''''" & logs & "''''")
For Each objLogFile In objLogFiles
objLogFile.ClearEventLog()
Next
Next
End Sub
End Module
---------------------------------------------------------------------------------------
使用性能计数器：
Imports System
Imports System.Management
Module Module1
Public Sub Main()
[1] [2] 下一页
[办公软件]使用TRIMMEAN函数去除几个最高分和几个最低分之后… [操作系统]几个常用的DOS网络命令详解
[网络技术]常被宽带共享上网用户关注的几个问题 [电脑技术]衡量CPU性能的几个参数指标介绍
[电脑技术]使用扫描仪的几个常规高级技巧 [电脑技术]使用电子邮件EMail应注意的几个问题
[VB.NET程序]VB.NET下通过WMI共享文件夹 [VB.NET程序]几个 WMI 的例子（初级） - 1
[VB.NET程序]几个 WMI 的例子（初级） - 2 [VB.NET程序]几个 WMI 的例子（初级） - 3
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
