imho.ws |
|
04.01.2011, 09:17 | # 1 |
::VIP::
Регистрация: 24.01.2002
Адрес: UF0 =)
Сообщения: 4 097
|
программа для изменения даты установки ОС ?
давеча разговаривал с одним знакомым, тот похвастался что нарыл какую-то программу, которая умеет изменять дату установки ОСи.
но он не помнит как она называется ( гугление ничего внятного не дало, поэтому решил спросить здесь - хотя бы название проги, если есть такая на самом деле?
__________________
The sum of the intelligence on the planet is a constаnt; the population is growing! |
04.01.2011, 12:51 | # 2 |
Newbie
Регистрация: 03.12.2002
Сообщения: 16
|
Не очень понятно для чего это нужно на регулярной основе и соответсвенно писать программу для этого. Дата установки ос прописана в реестре в ветке 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 |