Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.
intDate = 20081014 Function GetLog() Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colLoggedEvents = objWMIService.ExecQuery ("Select * from Win32_NTLogEvent Where Logfile = 'System'") for each LogEvent in colLoggedEvents intTempDate = Left(LogEvent.TimeWritten,8) If intTempDate > intDate Then 'WSHShell.Popup, 100, "Script Processing Message", 64 If LogEvent.EventCode = "1111" then 'WSHShell.Popup intTempDate - intDate & " is less than " & intNumDays & vbCrLf & intTempDate & " is greater than " & (intDate - 1) , 10, "Script Processing Message", 64 ' Do Stuff End if End If Next set smessage = Nothing End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.