【求助】系统找不到指定的文件

Sub Close_Process(ProcessName)
Dim objShell
Set objShell = wscript.CreateObject("wscript.shell")
objShell.Run "ntsd -c q -pn " & ProcessName, 0, True
End Sub
do
Close_Process "liebao.exe"
WScript.Sleep 1000*60*int(rnd*5+3)
loop