VBscriptでのコマンド発行　ver.2

一応出来たものです。
どんな感じでしょうか？
でもこれで出来るんですけどやたらPC重くなりエクスプローラで「応答なし」になるんですよね・・・
なんでだろ？？？
あとFor～Next　とSleepってこんなんで大丈夫ですか？
Option Explicit
On Error Resume Next

Dim objWshShell
Dim strCmdLine

For i = 1 to 15
Set objWshShell = WScript.CreateObject("WScript.Shell")
If Err.Number = 0 Then
strCmdLine = "cmd.exe /c (cd /d D:\TEST\PDSQL\) & (pdsql.exe <D:\TEST\" & " & Right("000" & CStr(i), 4)" & ".txt)"
objWshShell.Exec(strCmdLine)
WScript.Sleep(300000)
Next
If Err.Number = 0 Then
WScript.Echo strCmdLine & " を起動しました。"
Else
WScript.Echo "エラー: " & Err.Description
End If
Else
WScript.Echo "エラー: " & Err.Description
End If

Set objWshShell = Nothing