COme accedere ai eventi windows di altra macchina

di Anonimizzato29996 il
33 risposte
/
Anonimizzato29996
Utente anonimizzato
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

  • Avatar di @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi
    8951
    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.
  • Super Famoso
    Iscritto da
    apr, 2013
    Messaggi
    6268
    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
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    Ma a che serve farlo da vba?
  • /
    Anonimizzato29996
    Utente anonimizzato
    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
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    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.
  • /
    Anonimizzato29996
    Utente anonimizzato
    Scusa non avevo specificato che l applicativo vba deve essere lanciato dal mio pc e puntare ai servizi o eventi del server.
  • Avatar di @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi
    8951
    Non ti sei dimenticato, nel primo post lo avevi gia detto... che valore aggiunto avrebbe questa precisazione...?
  • Super Famoso
    Iscritto da
    apr, 2013
    Messaggi
    6268
    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.
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917

    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...
  • /
    Anonimizzato29996
    Utente anonimizzato
    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.
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    Ma tu hai detto che lo fai già sul tuo PC con del codice VBA. Mostra il codice che usi.
  • /
    Anonimizzato29996
    Utente anonimizzato
    Per puntare ad un altro pc servono riferimenti del codice VB ad altro machine ame e nn li conosco
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    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"
  • /
    Anonimizzato29996
    Utente anonimizzato
    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