Utilisation du CPU 100%

Question

Bonjour,

J'ai repech&#233; par ici et par la des bout du script, et je viens de tout assembler , ce script va recherche tous les log d'alert dans l'event log.

Mon script fonctionne bien , mais lorsqu'il est &#233;x&#233;cut&#233; il utilise 100 % du cpu , cela pose un probleme car le script devrait tourner sur un serveur....

Pour info voici le script

Option Explicit
Dim dtmStart, SearchEventStart
Dim objWMIService, colEvents, objEvent, EventTime
Dim objMessage, eventCounted
'


Dim fs, f 
Set fs=CreateObject("Scripting.FileSystemObject") 
Set f = fs.OpenTextFile("c:	est	est.txt",2,True) 


Set dtmStart = CreateObject("WbemScripting.SWbemDateTime")
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\.oot\cimv2")
Set colEvents = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent Where Type = 'error' ") 


For each objEvent in colEvents
'On Error Resume Next 


EventTime = Mid(objEvent.TimeWritten, 5, 2) & "/" & Mid(objEvent.TimeWritten, 7, 2) & "/" & _
    Mid(objEvent.TimeWritten, 1, 4) & " " & Mid(objEvent.TimeWritten, 9, 2) & ":" & _
    Mid(objEvent.TimeWritten, 11, 2) & "." & Mid(objEvent.TimeWritten, 13, 2)


f.WriteLine "Category: " & objEvent.Category
f.WriteLine "Time: " & EventTime
f.WriteLine "EventCode: " & objEvent.EventCode
f.WriteLine "Message: " & objEvent.Message
f.WriteLine "RecordNumber: " & objEvent.RecordNumber
f.WriteLine "SourceName: " & objEvent.SourceName
f.WriteLine "Type: " & objEvent.Type
f.WriteLine "User: " & objEvent.User
f.WriteLine "============================================================"
'sleep 3000


Next

f.Close

J'ai essais&#233; avec un sleep dans la boucle .... mais cela ne semble pas fonctionner ... quelqu'un pourrait volder a mon secours ?

Merci d'avance

cs_darunia · Answer

Ton script utilise 100% du CPU si rien d'autre tourne &#224; cot&#233; !
Si un thread avec une priorit&#233; superieur tourne, alors wscript ne prendra pas 100%

D@runia

sdcoder · Answer

Tr&#232;s cher, ajoute dans un boucle : Doevents !

Utilisation du CPU 100%

2 réponses

Discussions similaires