Option Explicit
Dim time, strMon, strDay, strHour, strMin, strSec
Dim tempTimer, strMilli
time = Now()
tempTimer = Timer
strMon = Right("0" & Month(time), 2)
strDay = Right("0" & Day(time), 2)
strHour = Right("0" & Hour(time), 2)
strMin = Right("0" & Minute(time), 2)
strSec = Right("0" & Second(time), 2)
strMilli = Right("000" & Int((tempTimer - Int(tempTimer)) * 1000), 3)

WScript.Echo Year(time) & "/" & strMon & "/" & strDay & " " & _
  strHour & ":" & strMin & ":" & strSec & "." & strMilli