программа для изменения даты установки ОС ?

[Nymph]

давеча разговаривал с одним знакомым, тот похвастался что нарыл какую-то программу, которая умеет изменять дату установки ОСи.
но он не помнит как она называется (
гугление ничего внятного не дало, поэтому решил спросить здесь - хотя бы название проги, если есть такая на самом деле?

[pasa]

Не очень понятно для чего это нужно на регулярной основе и соответсвенно писать программу для этого. Дата установки ос прописана в реестре в ветке HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\Windows NT\CurrentVersion\InstallDate
в виде числа секунд прошедших от 01.01.1970
Вот кто-то выкладывал скрипт для изменения, можно пользоватся им.
Взято отсюда http://www.bestfilez.net/forums/inde...howtopic=46164

'On Error Resume Next

'Declare variables
Dim strKeyPath, strValueName, strValue
Dim objReg
Dim Return

Const HKEY_LOCAL_MACHINE = &H80000002 

Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv" ) 
strKeyPath = "SOFTWARE\MICROSOFT\Windows NT\CurrentVersion" 
strValueName = "InstallDate" 
Return = objReg.GetDWORDValue(HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue) 

WScript.Echo "InstallDate DWORD = " & strValue

If (Return = 0) And (Err.Number = 0) Then 
  WScript.Echo DateAdd("s", strValue, #1/1/1970#)
End if

args = WScript.Arguments.Count
if args = 0 then
wscript.echo ""
wscript.echo "The syntax of this script is:"
wscript.echo "cscript OS-date-install.vbs """ & Now & """"
else
  dwValue = CLng(DateDiff("s", #1/1/1970#, WScript.Arguments.Item(0)))
  objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
  wscript.echo "Now InstallDate DWORD = " & dwValue
end if