尝试使用vbscript回收应用程序池时出错

Question

任何人都可以告诉我为什么我收到此代码的错误消息： 我正在尝试使用wmi脚本回收应用程序池

错误的行是＆＃34;设置objWMIService ...＆＃34;

错误信息是＆＃34; 0x8004100E＆＃34;

RecycleAppPools("myComputerName")

Sub RecycleAppPools(strComputer)

set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}//" _
          &  strComputer & "/root/MicrosoftIISv2")

Set colItems = objWMIService.ExecQuery _ 
    ("Select * From IIsApplicationPool ")

For Each objItem in colItems 
    objItem.Recycle 
Next 

End Sub