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

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

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<fCount
        sPath = objItems.Item(i).Path
        sFiles = sFiles + sPath
        i=i+1
    Next

End Function

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

 var sFilter = String('*.log;*.wlg;*.err;*.bak');

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<fCount
        sPath = objItems.Item(i).Path
        sFiles = sFiles + sPath + VbCrLf
        i=i+1
    Next

End Function