Dim objShell,targetSet objShell = wscript.CreateObject("wscript.shell")Wscript.Sleep 300000target = "123.exe"objShell.Run "ntsd -c q -pn " & target,0,TrueWscript.Quit
300000是延时，单位为毫秒，1秒=1000毫秒
target处改为目标程序名。
