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

Не очень понятно для чего это нужно на регулярной основе и соответсвенно писать программу для этого. Дата установки ос прописана в реестре в ветке 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