Modification parametrages Performance pour un pool d'application I

Bonjour,

Je souhaiterai modifier les paramètres de performances d’une application
spécifique sous IIS (pool d'application)

J’ai trouvé sur le Script Center un script qui permet de modifier l’ensemble
des propriétés des pools d’applicatio
http://www.microsoft.com/technet/sc...x?mfr=true

Or j’aimerais appliquer ce script que pour une application . J’ai donc voulu
appliquer ce script mais j’ai une erreur de compilation

Voici le script initial :
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "oot\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
("Select * from IIsApplicationPoolsSetting")

For Each objItem in colItems
objItem.AppPoolQueueLength = 5000
objItem.CPUAction = 1
objItem.CPULimit = 50000
objItem.CPUResetInterval= 30
objItem.IdleTimeout = 30
objItem.MaxProcesses = 2
objItem.Put_
Next

Et voici mon script

strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "oot\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
Set colItems = objWMIService.ExecQuery _
("Select * From IIsApplicationPool Where Name = " & _
"'W3SVC/AppPools/WebOrchestre'")


For Each objItem in colItems
objItem.AppPoolQueueLength = 5000
objItem.CPUAction = 1
objItem.CPULimit = 50000
objItem.CPUResetInterval= 30
objItem.IdleTimeout = 30
objItem.MaxProcesses = 2
objItem.Put_
Next
Le message d’erreur est le suivant :

Erreur de compilation Microsoft VBScript : Fin d’instruction attendu

Merci de ton aide