IT貓撲網(wǎng)：您身邊最放心的安全下載站！ 最新更新|軟件分類|軟件專題|手機(jī)版|論壇轉(zhuǎn)貼|軟件發(fā)布

您當(dāng)前所在位置：首頁 → 操作系統(tǒng) → windows → windows事件日志寫入sqlserver

windows事件日志寫入sqlserver

時間：2015/6/28來源：IT貓撲網(wǎng)作者：網(wǎng)管聯(lián)盟我要評論(0)

　　Set objConn = CreateObject("ADODB.Connection")

　　Set objRS = CreateObject("ADODB.Recordset")

　　objConn.Open "Provider=SQLOLEDB.1;Password=****;Persist Security Info=True;User ID=zhang;Initial Catalog=IPOPJ;Data Source=SV3\SQLEXPRESS"

　　objRS.CursorLocation = 3

　　objRS.Open "SELECT * FROM EventTable" , objConn, 3, 3

　　Set dtmStartDate = CreateObject("WbemScripting.SWbemDateTime")

　　Set dtmEndDate = CreateObject("WbemScripting.SWbemDateTime")

　　DateToCheck = Date - 1

　　dtmEndDate.SetVarDate Date, True

　　dtmStartDate.SetVarDate DateToCheck, True

　　strComputer = "."

　　Set objWMIService = GetObject("winmgmts:" _

　　& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

　　Set colEvents = objWMIService.ExecQuery _

　　("Select * from Win32_NTLogEvent Where Logfile = 'Security' "_

　　& " And TimeWritten >= '"  & dtmStartDate & "' and TimeWritten < '" & dtmEndDate & "'")

　　For each objEvent in colEvents

　　objRS.AddNew

　　objRS("Category") = objEvent.Category

　　objRS("ComputerName") = objEvent.ComputerName

　　objRS("EventCode") = objEvent.EventCode

　　objRS("Message") = objEvent.Message

　　objRS("RecordNumber") = objEvent.RecordNumber

　　objRS("SourceName") = objEvent.SourceName

　　objRS("TimeWritten") = objEvent.TimeWritten

　　objRS("Type") = objEvent.Type

　　objRS("UserName") = objEvent.User

　　objRS.Update

　　Next

　　objRS.Close

　　objConn.Close

關(guān)鍵詞標(biāo)簽：windows,事件日志,sql

相關(guān)閱讀

文章評論
發(fā)表評論

熱門文章 windows7虛擬光驅(qū)安裝和使用方法windows7虛擬光驅(qū)安裝和使用方法解決應(yīng)用程序正常初始化(0xc0000135)失敗解決應(yīng)用程序正常初始化(0xc0000135)失敗hosts文件位置以及如何修改hosts文件hosts文件位置以及如何修改hosts文件［聲音故障］XP沒有聲音，丟失Windows Audi［聲音故障］XP沒有聲音，丟失Windows Audi

相關(guān)下載

人氣排行 ［聲音故障］XP沒有聲音，丟失Windows Audio服務(wù)（AudioSrv）［警解決Windows 7黑屏的有效方法windows2003中關(guān)于軟路由設(shè)置方法的具體介紹Windows不能在本地計算機(jī)啟動OracleDBConsoleorcl一個空文件夾刪不掉的解決辦法Windows 7加XP的局域網(wǎng)搭建與文件共享用Windows命令行實現(xiàn)自動SSH代理Windows提示錯誤應(yīng)用程序update.exe