Receiving Virtual Server events from a managed program

  • Article

Last week I talked about how to receive Virtual Server events from a VBScript - this week I am going to talk about doing this from a managed application. To do this you need to:

  1. Setup the managed application appropriately to talk to the Virtual Server COM interfaces (details here: https://blogs.msdn.com/virtual_pc_guy/search.aspx?q=typer&p=1)

  2. Declare your Virtual Server COM object 'WithEvents' as follows:

    Private WithEvents virtualServer As VMVirtualServer = Nothing

    instead of:

    Private virtualServer As VMVirtualServer = Nothing

  3. Create a subroutine to catch the event:

    Public Sub virtualServer_EventLogged(ByVal logMessageID As Integer) Handles virtualServer.OnEventLogged

    'Do something with the event
    msgbox(CStr(logMessageID))

    End Sub

There - really quite simple.

Cheers,
Ben