COme accedere ai eventi windows di altra macchina

di il
33 risposte

COme accedere ai eventi windows di altra macchina

Salve,
Avrei bisogno di un aiuto per poter accedere via VBA agli eventi windows di un pc in rete che non è il mio.
Il codice per vedere gli eventi del mio pc lo conosco e funziona ma io avrei bisogno di accedere agli eventi (applicazioni e System) di un altro pc


STessa cosa per i servizi di windows

sapete aiutarmi?

33 Risposte

  • Re: COme accedere ai eventi windows di altra macchina

    Non conosco il codice "SEGRETO" che usi per farlo in LOCALE, ma se non erro penso si possa solo via WMI, e mi pare serva abilitare le DCOM.
  • Re: COme accedere ai eventi windows di altra macchina

    Inoltre, al 1000%, servira' utente&password con diritti di amministrazione sulla macchina remota.
    Cioe', non basta un utente 'generico'.
    Comunque, immagino, sia' gia' stato contemplato
  • Re: COme accedere ai eventi windows di altra macchina

    Ma a che serve farlo da vba?
  • Re: COme accedere ai eventi windows di altra macchina

    Si lo so che server utente e password ma questo nn è un problema.
    Devo farlo con vba perchè devo automatizzarlo all'interno di un job VB che fa il check di diversi sitemi e dei servizi ed eventi dei relativi server
  • Re: COme accedere ai eventi windows di altra macchina

    Mah... mi sembra pericoloso fare controllare un server da una applicazione remota. Ovviamente spero che i due PC siano in LAN e non su internet.

    A questo punto applica le credenziali al codice che dici già di usare.
  • Re: COme accedere ai eventi windows di altra macchina

    Scusa non avevo specificato che l applicativo vba deve essere lanciato dal mio pc e puntare ai servizi o eventi del server.
  • Re: COme accedere ai eventi windows di altra macchina

    Non ti sei dimenticato, nel primo post lo avevi gia detto... che valore aggiunto avrebbe questa precisazione...?
  • Re: COme accedere ai eventi windows di altra macchina

    Esistono gia' software per il controllo dei sistemi. uno famoso e' nagios.

    l'alternativa, che non richiede diritti di amministrazione, e' realizzare un web service da installare sulle singole macchine e che espone via web SOLO le informazioni che servono.
    NON SERVE un web server completo, ma solo uno che supporti un HTTP minimale.
  • Re: COme accedere ai eventi windows di altra macchina

    Fabry67 ha scritto:


    Scusa non avevo specificato che l applicativo vba deve essere lanciato dal mio pc e puntare ai servizi o eventi del server.
    Lo avevi già detto anche se non hai detto se sono in LAN o su Internet. E ti ho detto di usare il tuo codice con le credenziali...
  • Re: COme accedere ai eventi windows di altra macchina

    Sono in rete locale chiusa.
    Ho bisogno di qualcuno che mi consigli il codice vba per puntare dal mio pc ai servizi, processi, eventi windows di un altro pc della stessa rete.
  • Re: COme accedere ai eventi windows di altra macchina

    Ma tu hai detto che lo fai già sul tuo PC con del codice VBA. Mostra il codice che usi.
  • Re: COme accedere ai eventi windows di altra macchina

    Per puntare ad un altro pc servono riferimenti del codice VB ad altro machine ame e nn li conosco
  • Re: COme accedere ai eventi windows di altra macchina

    Ma mi prendi in giro? Ti ho detto di mostrare il codice che usi per il pc locale

    Hai scritto all'inizio

    "Il codice per vedere gli eventi del mio pc lo conosco e funziona ma io avrei bisogno di accedere agli eventi (applicazioni e System) di un altro pc"
  • Re: COme accedere ai eventi windows di altra macchina

    Imports System

    Imports System.Diagnostics

    Imports System.ServiceProcess


    Imports System.Data.OleDb
    Imports System.Data.SqlClient
    Imports System.Data.SqlClient.SqlDataReader
    Imports System.Windows.Forms


    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

    Dim eventLogApp As New System.Diagnostics.EventLog("Application")
    'crca evento window che contiene "engine 2010 (Italia" e porta data maggiore del "03/02/2022"
    Dim EventLogEntry As System.Diagnostics.EventLogEntry

    Dim eventCntr As Integer = 1
    Dim kk As String
    For Each EventLogEntry In eventLogApp.Entries
    kk = InStr(EventLogEntry.Message.ToString, "engine 2010 (Italia")
    If kk > 0 And EventLogEntry.TimeGenerated.Date > "03/02/2022" Then
    MsgBox(EventLogEntry.Source.ToString)
    End If


    Next

    Exit Sub


    If EventLogEntry.TimeGenerated.Date > "03/02/2022" Then
    MsgBox(EventLogEntry.InstanceId.ToString)
    End If
    End Sub
Devi accedere o registrarti per scrivere nel forum
33 risposte