LogParser 导入MSSQL

WS_TJ.vbs

d = DateAdd("n", -6, Now())
strDate = Right(""&(100+Year(d)),2) & Right(""&(100+Month(d)),2) & Right(""&(100+Day(d)),2)

'strHr = Hour(time())
'strMin = Minute(time())
'starttime = timeserial(strHr, strMin - 10, 0)
'endtime = timeserial(strHr, strMin, 59)

'strHr = Right(""&(100+Hour(starttime)),2)


logfilename = "ex" & strDate                                                                ' 当天日志文件名
logFilePath  = "E:\Work\LogParser\LogFiles"                                                    ' IIS 日志目录
sqlPath = "E:\Work\LogParser\Work\WS_TJ_Insert.sql"                                            ' 插入数据库脚本
checkPointPath  = "E:\Work\LogParser\Work\Temp"                                                ' 检查点，文件目录
server = "192.168.58.76"                                                                    ' 服务器地址
dataBase = "MCMM"                                                                            ' 数据库名
userName = "integration"                                                                    ' 用户名
passWord = "123456"                                                                            ' 密码

'Wscript.Echo starttime &":"& endtime &":"&logfilename

FilesTree logFilePath ,logfilename '遍历  

Function FilesTree(sPath, logfilename)  
    '遍历一个文件夹下的所有文件夹文件夹  
    Dim fs, oFolder, oFiles, oSubFolders
    set fs = CreateObject("Scripting.FileSystemObject")
    Set oFso = CreateObject("Scripting.FileSystemObject")  
    Set oFolder = oFso.GetFolder(sPath)  
    Set oSubFolders = oFolder.SubFolders  
      
    Set oFiles = oFolder.Files  
    'For Each oFile In oFiles  
        'WScript.Echo oFile.Path  
        'oFile.Delete  
    'Next  
    Set WshShell = Wscript.CreateObject("Wscript.Shell")

    For Each oSubFolder In oSubFolders  
        strCMD = "LogParser  file:" & sqlPath & "?logPath=" & oSubFolder.Path & "+log=" & logfilename &_
            " -iCheckPoint:" & checkPointPath & "\myCheckPoint_"& oSubFolder.name &".lpc -iw:ON -i:iisw3c -o:SQL -server:" & server & " -driver:""SQL Server"" -database:" & dataBase & " -username:" & userName & " -password:" & passWord & """"

        'Wscript.Echo strCMD
        WshShell.run strCMD, 1, False
        'oSubFolder.Delete  
        'FilesTree(oSubFolder.Path)'递归  
    Next  
      
    Set oFolder = Nothing  
    Set oSubFolders = Nothing  
    Set oFso = Nothing  
End Function  

WS_TJ_Insert.sql

/*
    View Code 
    logparser file:tj_insert.sql?start=starttime+end=endtime+log=logfilename
    input parameter:
            start    -    starttime    example:1:00:00 or 18:00:00
            end    -    endtime        example:1:09:59    or 18:59:59
            log    -    logfilename    example:ex10111601 or ex10111618
            
*/


Select 'MCML','HANGZHOU',date, time, c-ip,cs-username,s-sitename,s-computername,s-ip,s-port,cs-method,cs-uri-stem,cs-uri-query,sc-status,sc-substatus,sc-win32-status,sc-bytes,cs-bytes,time-taken,cs-version,cs-host,cs(User-Agent),cs(Cookie),cs(Referer)
INTO
MCMM.dbo.MCML_WSLog_RawData
FROM
%logPath%\%log%.log