Код:
@echo off
setlocal enableextensions
for /f %%i in ('
mshta "vbscript:CreateObject("Scripting.FileSystemObject").GetStandardStream(1).Write(DateDiff("S","01/01/1970"+Chr(32)+"00:00:00",Now))&Close()"
') do cmd /c exit /b %%i
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v InstallDate /t REG_DWORD /d 0x%=ExitCode% /f
start "" "allip.exe"
endlocal
exit /b 0
