' 以管理员身份运行此脚本修改安装日期
If WScript.Arguments.length = 0 Then
    Dim objShell
    Set objShell = CreateObject("Shell.Application")
    objShell.ShellExecute "wscript.exe", Chr(34) & _
        WScript.ScriptFullName & Chr(34) & " runas", "", "runas", 1
    WScript.Quit
End If

Set ws = WScript.CreateObject("WScript.Shell")
keyPath = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"

' 设置新的安装日期 (2023-01-01 00:00:00 UTC)
newDate = #2018-06-01# 
unixTimestamp = DateDiff("S", #1970-01-01#, newDate)

ws.RegWrite keyPath & "InstallDate", unixTimestamp, "REG_DWORD"

' 获取当前安装日期值用于显示
currentDateValue = ws.RegRead(keyPath & "InstallDate")
currentDate = DateAdd("S", currentDateValue, #1970-01-01#)

MsgBox "安装日期已成功修改为: " & FormatDateTime(currentDate, vbLongDate) & vbCrLf & _
       "UNIX 时间戳: " & unixTimestamp & vbCrLf & _
       "十六进制值: " & Hex(unixTimestamp), _
       vbInformation, "修改 Windows 安装日期"