Dim dtmDate, dbl100NanoSecs
Const MAXIMUM_PASSWORD_AGE_IN_DAYS = 60

dtmDate = DateAdd("d", -MAXIMUM_PASSWORD_AGE_IN_DAYS, Now())
dbl100NanoSecs = 10000000 * (DateDiff("s", "1/1/1601", dtmDate))
dbl100NanoSecs = _
	FormatNumber(dbl100NanoSecs, 0, False, False ,0)

WScript.Echo ("Value for query = " & dbl100NanoSecs)