class NsMachineEvent

La classe NsMachineEvent représente une entrée dans le journal des événements du poste local.

EventType : enum NsMachineEventType readonly

Le type de l'événement : information, avertissement, ou erreur.

Date : VARIANT readonly

La date de l'événement, au format local.

Content : BSTR readonly

Le texte de l'événement.

IsInternalEvent : VARIANT_BOOL readonly

Indique si la source de l'événement est issue du logiciel ou d'un autre composant Windows.

Sauvegarde des avertissements/erreurs UB

const nsEventTypeInformation = 1
const nsEventTypeWarning = 2
const nsEventTypeError = 3

set el = CreateObject("NsClientAPI.NsEventLog")
set fs = CreateObject("Scripting.FileSystemObject")

' Charger les événements en mémoire
set events = el.LoadEvents

' Créer un fichier texte dans lequel les événement seront écrits
set outFile = fs.CreateTextFile("C:\erreurs.txt", True, True)

' Pour chaque événement...
for each e in events
  ' Si l'évènement provient d'UB est est un avertissement ou une erreur
  msgBox e.Content & " => " & e.EventType
  if (e.IsInternalEvent) and (e.EventType <> nsEventTypeInformation) then
    ' Inscrire la date et le texte de l'événement
    outFile.WriteLine(e.Date & " => " & e.Content)
  end if
next

' Fermer le fichier
outFile.close