Bonjour à tous, je suis débutan en visual basic. Je dois réaliser un programme vb qui m'affiche les erreur dans l'observateur d'évènement. Voila ce que j'ai réalisé. Seulement, il y a une erreur pour le dernier paragraphe, et je ne sais pas comment la résoudre. VB me dit qu'un objet est requis au niveau de "wscript.echo" :
 
Private Sub évènements_Click()
 
strComputer = "."
 
Set wbemServices = GetObject("winmgmts:\\" & strComputer)
Set wbemObjectSet = wbemServices.InstancesOf("Win32_NTLogEvent" )
 
Set wbemServices = wbemServices.ExecQuery(16, strComputer)
For Each wbemObject In wbemObjectSet
 WScript.Echo "Type: " & wbemObject.Type & vbCrLf & _
 "Heure : " & wbemObject.Timegenerated & vbCrLf & _
 "Source: " & wbemObject.SourceName & vbCrLf & _
 "Catégorie: " & wbemObject.Category & vbCrLf & _
 "Événement: " & wbemObject.EventCode & vbCrLf & _
 "Utilisateur: " & wbemObject.User & vbCrLf & _
 "Ordinateur: " & wbemObject.ComputerName & vbCrLf
Next
 
End Sub
 
Merci de me répondre au plus vite.            

svp c urgent...

SSSSVVVVVVVPPPPPPPPP!!!!!!!!!!                
Personne ne peut m'aider??????????????
 
HELP!!!!    

Quand ce genre de problème m'arrive dans une longue ligne, je cherche à décomposer pour savoir quel est l'objet requis.
Par exemple:
WScript.Echo "blabla"
Variable_bidon = wbemObject.Type
Etc...
 
En général, je compose d'abord mes strings dans des variables avant de les afficher.
 
J'espère que ces conseils et ce petit up déguisé t'aideront.