Need to edge out the competition for your dream job? Train for certifications today.
Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Public Sub QueryRecentUpdates()
Dim nUpdates As Long
Dim UPD As UpdateSession
Dim oSearch As IUpdateSearcher
Dim Col As IUpdateHistoryEntryCollection
Dim Query As IUpdateHistoryEntry
Set UPD = New UpdateSession '// Setup our session object
Set oSearch = UPD.CreateUpdateSearcher '// Get pointer to searcher
nUpdates = oSearch.GetTotalHistoryCount '// Get total history count
Set Col = oSearch.QueryHistory(0, nUpdates) '// Get pointer to collection
For Each Query In Col '// Display the data in the collection
Set UPD = Nothing
Set oSearch = Nothing
Set Col = Nothing
Set Query = Nothing
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.