我想播放一个视频，过一会关掉再打开一个，重复一次，可Windows Script Host说错误——名称重定义怎么办？

运行时报错，说我名称重定义，有没有人帮忙看看错在哪了，最好能指点一下怎么修改。

‘Dim wsh

Set wsh = CreateObject("WScript.Shell")
path = "··············"
set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 193000
dim qobj,pipe,good
do
good="."
set qobj=getobject("winmgmts:"&good&"rootcimv2")
set pipe=qobj.execquery("select * from win32_process where name='Everything.exe'")
for each i in pipe
i.terminate()
next
wscript.sleep 1
loop
Dim wsh
Set wsh = CreateObject("WScript.Shell")
path = "······"
set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 259000
dim qobj,pipe,good
do
good="."
set qobj=getobject("winmgmts:"&good&"rootcimv2")
set pipe=qobj.execquery("select * from win32_process where name='Everything.exe'")
for each i in pipe
i.terminate()
next
wscript.sleep 1
loop

“vbs”