Серый форум — VBS & WMI: асинхронный поиск файлов

Re: VBS & WMI: асинхронный поиск файлов

null@example.com (Patrik) — Thu, 12 May 2011 09:54:17 +0000

Вот что у меня вышло, но этот код не работает

Dim sFilter, fCount, objItems, sFiles, sPath
Dim objShell, objWMI, objSink, f
sFilter = "*.log;*.bak"
sFiles = Array()

Set objShell = CreateObject("Shell.Application")
Set objWMI = GetObject("winmgmts:\\.\Root\CIMV2")
Set objSink = WScript.CreateObject("WbemScripting.SWbemSink", "Sink_")

'[Выполнение асинхронного запроса] 
objWMI.ExecQueryAsync objSink, "SELECT * FROM Win32_Directory"

'цикл ожидания, пока выполнится запрос
f = false
While Not bdone
    WScript.Sleep 100
Wend

WScript.Echo "Finished"
objSink.Cancel
Set objSink = Nothing
Set objWMI = Nothing
Set objShell = Nothing
WScript.Quit

'[Обнаружение экземпляра объекта (каталога)]
'------------------------------------------------------------------------
Function Sink_OnObjectReady(objWbemObject, objWbemAsyncContext)
    
    On Error resume Next
    objItems = objShell.NameSpace(objWbemObject.Name).Items()
    If Err.Number <> 0 Then  'Exit Function
    WScript.Echo Err.Number
    End If

    '[Фильтрация элементов каталога по маске]
    '----------------------------------------------------------------
    fCount = objItems.Count
    If fCount = 0 Then
    Exit Function 
    End If
    
    objItems.Filter 192, sFilter
    
    fCount = objItems.Count
    If fCount = 0 Then  
    Exit Function 
    End If    
    '[Формирование строки путей найденных файлов]
    '----------------------------------------------------------------
    For i = 0 to fCount -1
        sPath = objItems.Item(i).Path
        sFiles = sFiles + sPath
    Next

End Function

'[Завершение запроса]
'------------------------------------------------------------------------
Function Sink_OnCompleted(iHResult, objWbemErrorObject, objWbemAsyncContext)
    f = true  'флаг завершения запроса
    If UBound(sFiles) = -1 Then
        WScript.Echo "--Ничего не найдено--"
    Else
        WScript.Echo "Найденные файлы: " & VbCrLf & sFiles
    End If
End Function

Re: VBS & WMI: асинхронный поиск файлов

null@example.com (Rumata) — Mon, 25 Apr 2011 09:33:06 +0000


    If fCount = 0 Then  'Exit Function 
    End If
    Exit Function
    
    objItems.Filter 64+128, sFilter
    
    fCount = objItems.Count
    If fCount = 0 Then  'Exit Function 
    End If
    Exit Function

Исправьте на


    If fCount = 0 Then
        Exit Function 
    End If
    
    objItems.Filter 64+128, sFilter
    
    fCount = objItems.Count
    If fCount = 0 Then
        Exit Function 
    End If

Re: VBS & WMI: асинхронный поиск файлов

null@example.com (Patrik) — Mon, 25 Apr 2011 09:21:21 +0000

Еще не понятно с функцией function Sink_OnObjectReady(objWbemObject, objWbemAsyncContext).
Вот что у меня получилось:

Function Sink_OnObjectReady(objWbemObject, objWbemAsyncContext)
     On Error resume Next
     objItems = objShell.NameSpace(objWbemObject.Name).Items()
    
    '[Фильтрация элементов каталога по маске]
    '----------------------------------------------------------------
    fCount = objItems.Count
    If fCount = 0 Then  'Exit Function 
    End If
    Exit Function
    
    objItems.Filter 64+128, sFilter
    
    fCount = objItems.Count
    If fCount = 0 Then  'Exit Function 
    End If
    Exit Function    
    '[Формирование строки путей найденных файлов]
    '----------------------------------------------------------------
    For i=0 To i

Где у меня ошибка?



Re: VBS & WMI: асинхронный поиск файлов
null@example.com (Rumata) — Sun, 24 Apr 2011 18:49:32 +0000
Вышеприведенная строка на js избыточна, достаточно было бы написать var sFilter = '*.log;*.wlg;*.err;*.bak';
Вот перевод:

Dim sFilter
sFilter = "*.log;*.wlg;*.err;*.bak"


Re: VBS & WMI: асинхронный поиск файлов
null@example.com (Patrik) — Sun, 24 Apr 2011 18:42:13 +0000
Совершенно верно.
Как преобразовать строку:
 var sFilter = String('*.log;*.wlg;*.err;*.bak');
на VBS ?


Re: VBS & WMI: асинхронный поиск файлов
null@example.com (JSmаn) — Sat, 23 Apr 2011 05:23:43 +0000
alexii, я так понял, что Patrik хочет перевести код от Poltergeyst с JS на VBS. 
Patrik, Вы можете вызывать JSкод из VBS. И где вызывают трудности в переводе?


Re: VBS & WMI: асинхронный поиск файлов
null@example.com (alexii) — Fri, 22 Apr 2011 21:04:18 +0000
Patrik, всё равно не понятно. Вот же оно: Серый форум / JScript & WMI: асинхронный поиск файлов, всё доступно.
P.S. Если опять не то, и Вы пришли сюда по ссылке с поисковика, то приведите эту ссылку, дабы можно было установить её происхождение и куда она попала.


Re: VBS & WMI: асинхронный поиск файлов
null@example.com (Patrik) — Fri, 22 Apr 2011 08:46:54 +0000
Можно выложить этот скрипт на VBS  ?
Пытаюсь сам переконвертировать, но не получается...


Re: VBS & WMI: асинхронный поиск файлов
null@example.com (alexii) — Thu, 21 Apr 2011 16:16:16 +0000
Patrik пишет:Можно выложить на VBS асинхронный поиск файлов созданный пользователем Poltergeyst  ?
Перефразируйте. Не очень понятно, что Вы хотите.


VBS & WMI: асинхронный поиск файлов
null@example.com (Patrik) — Thu, 21 Apr 2011 15:46:39 +0000
Можно выложить на VBS асинхронный поиск файлов созданный пользователем Poltergeyst  ?
Конвертирую сам, но чтото у меня не получается с функцией 
function Sink_OnCompleted(iHResult, objWbemErrorObject, objWbemAsyncContext)
Выдает ошибку 
Function Sink_OnObjectReady(objWbemObject, objWbemAsyncContext)
    
    On Error resume Next
    Set objItems = objShell.NameSpace(String(objWbemObject.Name)).Items()
    If Err.Number <> 0 Then
    WScript.Echo Err.Number
    End If
    
    
    '[Фильтрация элементов каталога по маске]
    '----------------------------------------------------------------
    Set fCount = objItems.Count
    If fCount = 0 Then  WScript.Echo "Выход 1" 
    'Exit Function
    End If
    
    objItems.Filter(64+128, sFilter)
    Set fCount = objItems.Count
    If fCount = 0 Then  WScript.Echo "Выход 2" 
    'Exit Function
    End If    
    '[Формирование строки путей найденных файлов]
    '----------------------------------------------------------------
    For i=0 To i