Managing `EventLog` using Visual Basic.NET and VBScript - How to clear “EventLog” dynamically using Visual Basic.NET
(Page 3 of 4 )
We have already seen how to take a backup of “EventLog” in the previous section. Now let us look into “clearing an EventLog”. Since we are doing manipulation instead of retrieving information, this section does not need any wrapper to work with.
Let us proceed with the Visual Basic.NET version first:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button2.Click
Try
Dim classInstance As New ManagementObject( _
"root\CIMV2",
"Win32_NTEventlogFile.Name='C:\WINDOWS\system32
\config\AppEvent.Evt'", Nothing)
Dim inParams As ManagementBaseObject = _
classInstance.GetMethodParameters
("ClearEventlog")
Dim outParams As ManagementBaseObject = _
classInstance.InvokeMethod("ClearEventlog",
inParams, Nothing)
MessageBox.Show("Return Value " & outParams
("ReturnValue"))
Catch err As ManagementException
MessageBox.Show("An error occurred while trying to
execute the WMI method: " & err.Message)
End Try
End Sub
“inParams” (which is of type System.Managment.ManagmentBaseObject) is mainly used to pass parameters (input parameters) to the “ClearEventLog” method (WMI method) dynamically. Similarly, “outParams” generally contains the result of method execution.
Again, here is the VBScript version, which would be very similar to the Visual Basic.NET version:
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer &
"\root\CIMV2")
Set objShare = objWMIService.Get
("Win32_NTEventlogFile.Name='C:\WINDOWS\system32
\config\AppEvent.Evt'")
Set objInParam = objShare.Methods_("ClearEventlog"). _
inParameters.SpawnInstance_()
Set objOutParams = objWMIService.ExecMethod
("Win32_NTEventlogFile.Name='C:\WINDOWS\system32
\config\AppEvent.Evt'", "ClearEventlog", objInParam)
Wscript.echo "ReturnValue: " & objOutParams.ReturnValue
Next: How to copy “EventLog” information into a text file using Visual Basic.NET >>
More Visual Basic.NET Articles
More By Jagadish Chaterjee
