Установка даты и времени в VBScript для объекта Date без изменения системной даты / времени

Question

У меня возникла проблема в VBScript, когда Дата (включая Сейчас) всегда вызывается из системной даты / времени Windows.

Как установить дату / время для VBScipt без настройки системной даты / времени в Windows.

например,

При вызове Date в VBS, Date вернет текущую системную дату (если сегодняшняя дата 01.01.2001)

Dim settingDate
settingDate = Date
//settingDate = 1/1/2001

Я бы хотел что-топодключить код VBS для получения установленной даты без изменения системной даты / времени Windows из кода

//Implement something to tell VBS that current date is 12/12/2000
Dim settingDate
settingDate = Date
//settingDate = 12/12/2000

Спасибо

Answer 1

Просто переопределите дату (), время (), сейчас (). POC скрипт:

  WScript.Echo "Date()", Date()
  WScript.Echo "Time()", Time()
  WScript.Echo "Now()" , Now()
  ExecuteGlobal Join( Array( _
      "Function Date()" _
    , "  Date = #1/1/2012#" _
    , "End Function" _
    , "Function Time()" _
    , "  Time = TimeSerial( 1, 2, 3 )" _
    , "End Function" _
    , "Function Now()" _
    , "  Now = CDate( 4711.1147 )" _
    , "End Function" _
  ), vbCrLf )
  WScript.Echo "Date()", Date()
  WScript.Echo "Time()", Time()
  WScript.Echo "Now()" , Now()

выход:

Date() 26.08.2011
Time() 14:19:41
Now() 26.08.2011 14:19:41
Date() 01.01.2012
Time() 01:02:03
Now() 23.11.1912 02:45:10