[XXXp]

Также, как и в прошлый раз ожидание заняло порядка 4-5 минут...

[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'ом в момент исполнения скрипта.

[XXXp]

Понял, спасибо за помощь!

[XXXp]

А если в командной строке все летает, может есть возможность сделать подобное на bat файле?

[Iska]

Можно хоть в пакетном файле, хоть непосредственно в командной строке. Например:

Код:

(<nul set /p sValue=Found ini files: & (dir /b /a "%SystemRoot%\System32\*.ini"|find.exe /c /v ""))| msg.exe *"