VBScript Get Windows OS installation date

GetSysInstDate.vbs

Option Explicit
 
Const HKEY_LOCAL_MACHINE = &H80000002
Const REG_DWORD = 4
 
Function VBMain()
 
  Dim strComputer, strKeyPath, lngValue, Registry
  strComputer = "."
  strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"
  Set Registry = GetObject(_
      "winmgmts:{impersonationLevel=impersonate}!\\" &_
      strComputer & "\root\default:StdRegProv")
 
    Registry.GetDWORDValue HKEY_LOCAL_MACHINE,_
              strKeyPath,_
              "InstallDate",_
              lngValue
 
    WScript.Echo "Unix timestamp : " & lngValue
    WScript.Echo "Normal DateTime : " &_
      DateAdd("s", lngValue, "01/01/1970 00:00:00")
  Set Registry = Nothing
End Function
 
WScript.Quit(VBMain())