- SET WshShell = CreateObject("WScript.Shell")
- WshShell.Run cmd /c ping /n 3 127.1&&for /f "skip=3 tokens=3 delims=. " %%a in ('tasklist /fi "windowtitle eq c:\windows\system32\cmd.exe"') do taskkill /f /pid %%a
- Set oexec = WshShell.Exec("cmd /c ping /n 100 127.1") '用上面的批结束本行
复制代码 上面是我写的,但第二行总是引号使用不对,哪位朋友帮忙改一下.. |