A voir également:
- Probleme script VBS : "Out Of memory"
- Script vidéo youtube - Guide
- Vbs windows - Accueil - Optimisation
- Ghost script - Télécharger - Polices de caractères
- Script bat - Guide
- Microsoft activation script - Accueil - Windows
2 réponses
Lord Mathius
Messages postés
24
Date d'inscription
lundi 15 décembre 2003
Statut
Membre
Dernière intervention
24 novembre 2005
15 déc. 2003 à 11:45
15 déc. 2003 à 11:45
Bonjour exki
Je pense que ton pb vient du fait que tu ne sort jamais de la boucle. donc ton script charge en memoire et fini par saturer la memoir.
car si je voit bien tu declare ton objet a chaque boucle ce qui n'est pas tres propre en faire.
essaye plutot ca :
bon courage
Lord Mathius a votre service.
Je pense que ton pb vient du fait que tu ne sort jamais de la boucle. donc ton script charge en memoire et fini par saturer la memoir.
car si je voit bien tu declare ton objet a chaque boucle ce qui n'est pas tres propre en faire.
essaye plutot ca :
Do
strComputer = "."
Set objSWbemServices = GetObject("winmgmts:" &_
"{impersonationLevel=impersonate}!" &_
"\\" & strComputer & "\root\cimv2")
Set objEventSource = objSWbemServices.ExecNotificationQuery( _
"SELECT * FROM __InstanceOperationEvent " &_
"WITHIN 1 " &_
"WHERE TargetInstance " &_
"ISA 'Win32_Process' " &_
"AND TargetInstance.Name = 'OmsServer.exe'")
For I = 1 To 10000
Set objEventObject = objEventSource.NextEvent()
Select Case objEventObject.Path_.Class
Case "__InstanceCreationEvent"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run ("C:\outils\batchs\message.bat " & 1)
Case "__InstanceDeletionEvent"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run ("C:\outils\batchs\message.bat " & 2)
End Select
Next
Set objEventSource = nothing
Set objSWbemServices = nothing
Loop
bon courage
Lord Mathius a votre service.