Visual Basic

 <br />
Try<br />
Dim connection As New ConnectionOptions()<br />
' connection.Username = "xxx"<br />
'connection.Password = "yyyy"<br />
'connection.Authority = "ntlmdomain:DOMAIN"<br />
Dim scope As New ManagementScope("\\localhost\root\snmp\localhost", connection)<br />
scope.Connect()<br />
Dim query As New WqlEventQuery("SELECT * FROM SnmpNotification")<br />
Dim watcher As New ManagementEventWatcher(scope, query)<br />
Console.WriteLine("Waiting for an event on FullComputerName ...")<br />
Dim eventObj As ManagementBaseObject = watcher.WaitForNextEvent()<br />
watcher.Start() <br />
Console.WriteLine("{0} event occurred.", eventObj("__CLASS"))<br />
console.WriteLine("{0} Community name---> .", eventObj("Community"))<br />
'Display information from the event<br />
Console.WriteLine("Process {0} has created, path is: ", eventObj("__PATH"))<br />
Console.WriteLine("Property count {0}", eventObj("__PROPERTY_COUNT"))<br />
Console.WriteLine("Relative path {0} ", eventObj("__RELPATH"))<br />
Console.WriteLine("Server {0} ", eventObj("__SERVER"))<br />
Console.WriteLine("SUPERCLASS {0} ", eventObj("__SUPERCLASS"))<br />
Console.WriteLine("AgentAddress {0} ", eventObj("AgentAddress"))<br />
Console.WriteLine("AgentTransportAddress {0} ", eventObj("AgentTransportAddress"))<br />
Console.WriteLine("AgentTransportProtocol {0} ", eventObj("AgentTransportProtocol"))<br />
Console.WriteLine("Identification {0} ", eventObj("Identification"))<br />
Console.WriteLine("TimeStamp {0} ", eventObj("TimeStamp"))<br />
Console.WriteLine("VarBindList {0} ", eventObj("VarBindList"))<br />
'Console.WriteLine("Enterprise {0} ", eventObj("Enterprise"))<br />
<br />
' Cancel the event subscription<br />
watcher.Stop()<br />
Close()<br />
Catch err As ManagementException<br />
MessageBox.Show("An error occurred while trying to receive an event: " & err.Message)<br />
Catch unauthorizedErr As System.UnauthorizedAccessException<br />
MessageBox.Show("Connection error (user name or password might be incorrect): " & unauthorizedErr.Message)<br />
End Try<br />
<br />