'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