Visual Basic.NET - Obtener eventos de una pc de mi Lan

'Cantidad de eventos de la PC

remoteEventLogs = EventLog.GetEventLogs(System.Environment.MachineName)

oFSO = CreateObject("Scripting.FileSystemObject")

If Not oFSO.FolderExists(DestServer & folderName) Then

    'No existe la carpeta por la tanto la creo .

    System.IO.Directory.CreateDirectory(DestServer & folderName)

End If

objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate, (Backup, Security)}!\\" & strComputer & "\root\cimv2")

'This section goes out and gets the hostname this is run on for us.

colServices = objWMIService.ExecQuery("Select * from Win32_NTEventLogFile")

colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem", , 48)

Dim log As EventLog

Dim elemento As Integer = 1

Dim strHOSTNAME(remoteEventLogs.Count()) As String

'guardo en el arreglo los nombres de los eventos 

For Each log In remoteEventLogs

    strHOSTNAME(elemento) = log.Log

    elemento = elemento + 1

Next

'Estoy corriendo la aplicacion desde la PC "A"

'**************************** Conexión a la máquina remota PC (B)

Dim colServices As Object

Dim objSWbemLocator As Object = CreateObject("WbemScripting.SWbemLocator")

Dim objWmiService As Object

       objWmiService = objSWbemLocator.ConnectServer("PC B", "root\cimv2", "User Admin", "Password", "MS_409", "ntlmdomain:" + "Dominio")

colServices = objWmiService.ExecQuery("Select * from Win32_NTEventLogFile")

Try

    remoteEventLogs = EventLog.GetEventLogs("PC B")

Catch ex As Exception

    MsgBox(ex.ToString())

End Try

Dim strHOSTNAME(remoteEventLogs.Count()) As String

Dim elemento As Integer = 1

Dim log As EventLog

'guardo en el arreglo los nombres de los eventos 

For Each log In remoteEventLogs

    strHOSTNAME(elemento) = log.Log

    elemento = elemento + 1

Next

Dim errBackupLog As String

elemento = 2

Dim ss As String

'Creo los eventos

Dim hEventLog As IntPtr

Dim lretv As Integer

hEventLog = OpenEventLog(vbNullString, strHOSTNAME(elemento))

If hEventLog = IntPtr.Zero Then

    System.Diagnostics.Debug.Write("OpenEvent Log Failed")

    Exit Sub

End If

lretv = BackupEventLog(hEventLog, "c:\Carpeta Backup" & strHOSTNAME(elemento) & ".evt")

If lretv = 0 Then

    Debug.Write("BackupEventLog Failed")

    Exit Sub

End If

For Each objLogfile In colServices

    ss = "c:\Carpeta Backup" & strHOSTNAME(elemento) & ".evt"

    errBackupLog = objLogfile.BackupEventLog(ss)

    If errBackupLog <> 0 Then

        MsgBox("El backup del registro " & strHOSTNAME(elemento) & " no pudo ser creado.")

    Else

        elemento = elemento + 1

    End If

Next