Skip to content

Instantly share code, notes, and snippets.

@davegreen

davegreen/CollectionUpdateTime.vbs

Last active October 25, 2015 12:55
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save davegreen/c4e4b2e7039475e058b4 to your computer and use it in GitHub Desktop.
Save davegreen/c4e4b2e7039475e058b4 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
CollectionUpdateTime.vbs
Set objArgs = Wscript.Arguments
Set oAPI = CreateObject("MOM.ScriptAPI")
Set oBag = oAPI.CreatePropertyBag()
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")
Dim ConnString
ConnString = "DRIVER={SQL Server};Server=" & objArgs(0) & ";Database=" & objArgs(1) & ";"
objConnection.Open ConnString
objRecordSet.Open "SELECT TOP(1) CC.CollectionID, CN.CollectionName, CC.TimeUpdated FROM Collection_MemberChg_Notif CC JOIN Collections CN ON CC.CollectionID = CN.SiteID WHERE CN.CollectionName = 'Test Collection' AND CC.TimeUpdated < DATEADD(mi, -20, GETDATE())", objConnection, 3, 3
oBag.AddValue "Records", objRecordSet.RecordCount
If objRecordSet.RecordCount > 0 Then
oBag.AddValue "LastUpdated", CStr(objRecordSet.Fields("TimeUpdated"))
Call oAPI.LogScriptEvent(objArgs(1), 101, 0, "Last Updated: " & objRecordSet.Fields("TimeUpdated"))
Else
Call oAPI.LogScriptEvent(objArgs(1), 0, 0, "Up to date")
End If
oAPI.Return(oBag)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment