我想播放一个视频,过一会关掉再打开一个,重复一次,可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”