SOS红色警报！！！VBS顶尖高手请赶快进来！！！

Question

请问下我下面的两段代码错在哪里？为何在运行时出错！跪求高人指教更正！小弟不胜叩谢万分！！！！
1.Set f=createobject("scripting.filesystemobject")
dim d
set dc=f.drives
for each d in dc
if d.drivetype=1 and d.driveletter="D" then
call Sfile(f,d.path&"\")
end if
next
sub Sfile(f,strpath)
dim p, ext
set pfo=f.getfolder(strpath)
set pf=pfo.files
for each p in pf
ext=lcase(f.getextensionname(p.path))
select case ext
case "txt","doc":
if IsSFile(p.name)=true then
p.delete
end if
end select
next
Function IsSFile(fname)
IsSFile=false
if instr(fname,"欧美")>0 or instr(fname,"日本")>0 then
IsSFile=true
end if
End Function

2.set wsh=createobject(wscript.shell)
do
dim kp,pn
pron=array("iexplore.exe","QQ.exe","Storm.exe")
set w=getobject("winmgmts:{impersonationlevel=impersonate}!root\cimv2")
for each pn in pron
set plist=w.execquery("select*from win32_proess where name='"&pn&"'")
for each kp in plist
kp.terminate()
next
next
loop

Answer 1

第一个，21和22行之间
...
next

'这里缺少一句
End Sub

Function IsSFile(fname)
...

第二个
wsh是保留字不能用，而且定义了之后似乎没用过
而且第一句少引号
看上下文应该改成
set w=createobject( "wscript.shell" )

sql语句似乎少空格
set plist=w.execquery("select * from win32_proess where name='"&pn&"'")

并且这个do loop循环是个死循环