vbs 怪现象

On Error Resume Next
DIM objShell
set objShell=wscript.createObject("wscript.shell")
iReturn=objShell.Run("cmd.exe /C " & createobject("Scripting.FileSystemObject").GetFolder(".").Path & "\Remove.bat", 0, TRUE)
运行时win7不黑屏，个别XP黑屏，调用一下这个vbs就黑一下

后来代码最后一句改为：
iReturn=objShell.Run("cmd.exe /C " Remove.bat", 0, TRUE)
运行调用第一次时黑一下，在调用就永不黑了，求高人解答
Remove.bat 代码：cmd /ccscript //h:wscript

补充：.NET技术 ,  C#