"C:\Program Files\Log Parser 2.2\LogParser.exe" -i:FS -Recurse:-1 -o:SQL -server:192.168.1.10,1433 -database:ScanIndex -driver:"SQL Server" -createTable:ON -username:ScanUsr -password:"123456789" file:C:\Robots\ScanIndexer\ScanIndexer.sql

SELECT 
    OUT_ROW_NUMBER()   as CSNum,
    COMPUTER_NAME()    as CompName,
	SYSTEM_TIMESTAMP() as CheckedDT,
    HASHMD5_FILE(Path) as Hash,
	EXTRACT_PREFIX(Path,0,':\\') as Drive,
    EXTRACT_PATH(Path) as Dir, 
	Name,
	EXTRACT_EXTENSION(Path) as Ext,
	Size,
	Attributes,CreationTime,LastAccessTime,LastWriteTime
INTO Scans
FROM C:\*.jpg, C:\*.bmp, C:\*.pdf
where 
    size>0 

dim strAction, 	EDT, msg
strAction ="?" 
strComputer = "."
Set dateTime = CreateObject("WbemScripting.SWbemDateTime")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMv2") 
  Set objEvents = objWMIService.ExecNotificationQuery ("SELECT * FROM __InstanceOperationEvent WITHIN 5 WHERE TargetInstance ISA 'CIM_DataFile' AND TargetInstance.Drive='" & control_disk &"' AND TargetInstance.Path='" & control_dir & "'")
Do While(True)
    Set objReceivedEvent = objEvents.NextEvent
	strAction =objReceivedEvent.Path_.Class  
	
	dateTime.SetFileTime objReceivedEvent.TIME_CREATED, false
    EDT=dateTime.GetVarDate()
	
	Select Case objReceivedEvent.Path_.Class
        Case "__InstanceCreationEvent": strAction = "Создан:" 
        Case "__InstanceDeletionEvent": strAction = "Удален:" 
        Case "__InstanceModificationEvent": strAction = "Изменен:" 
    End Select
	msg = """" & EDT &""",""" & strAction & """,""" & objReceivedEvent.TargetInstance.Name & """"
   Log msg
  'Здесь вызываем батник для пересканирования'
Loop