[Iska]

XXXp, сожалею.

Вот результат исполнения несколько модифицированного скрипта:

читать дальше »

Код:

Option Explicit

Dim strFolder
Dim objFile
Dim lngCount

WScript.Echo Now()

With WScript.CreateObject("Scripting.FileSystemObject")
	strFolder = .GetSpecialFolder(1)
	
	If .FolderExists(strFolder) Then
		lngCount = 0
		
		WScript.Echo "Total [" & .GetFolder(strFolder).Files.Count & "] files"
		
		For Each objFile In .GetFolder(strFolder).Files
			If UCase(.GetExtensionName(objFile.Name)) = UCase("ini") Then
				lngCount = lngCount + 1
			End If
		Next
		
		WScript.Echo "Found [" & CStr(lngCount) & "] ini files"
	Else
		WScript.Echo "Can't find folder [" & strFolder & "]"
	End If
End With

WScript.Echo Now()

WScript.Quit 0

для «%SystemRoot%\System32» у меня:

Код: 09.04.2012 21:09:41 Total [2345] files Found [18] ini files 09.04.2012 21:09:45

На предмет поиска причин и анализа «тормозов» при исполнении скрипта стоит обратиться в профильный раздел данного форума в зависимости от Вашей версии Windows, описав проблему и приведя ссылку на данную тему. Скорее всего понадобятся логи, сделанные Process Monitor'ом в момент исполнения скрипта.