vbscript: Implemented Time