欢迎进入windows社区论坛，与300万技术人员互动交流 >>进入 set objconn = createobject(adodb.connection) set objrs = createobject(adodb.recordset) objconn.open provider=sqloledb.1;password=****;persist security info=true;user id=zhang;ini
欢迎进入windows社区论坛，与300万技术人员互动交流 >>进入
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
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