查询/设置Windows系统安装日期[PECMD源码]

Bluebells

看到此版区某"原创" 重置系统安装日期为当前时间 的帖子, 发现有不少人感兴趣, 故尝试用 PECMD 调用 winapi 编写了一个

1. _SUB GetWindowsInstallDate
   
2.     TEAM ENVI-ret %~1=Unknow| ENVI &samDesired=0x20019| ENVI-ptr &phKey=0
   
3.     FIND $%&bX64%=1,CALC #&samDesired = %&samDesired% | 0x0100
   
4.     CALL $--qd --ret:&ret Advapi32.dll,RegOpenKeyExW,#0x80000002,$SOFTWARE\Microsoft\Windows NT\CurrentVersion,#0,#%&samDesired%,*&phKey
   
5.     IFEX $%&ret%=0,
   
6.     {
   
7.         ENVI?ptr &phKey=&hKey
   
8.         TEAM ENVI-int &pType=0| ENVI-int &pSize=0
   
9.         CALL $--qd --ret:&ret Advapi32.dll,RegQueryValueExW,#%&hKey%,$InstallDate,#0,*&pType,#0,*&pSize
   
10.         IFEX $%&ret%=0,
    
11.         {
    
12.             ENVI?int &pType=&Type
    
13.             IFEX $%&Type%=4,
    
14.             {
    
15.                 ENVI-int &pData=0
    
16.                 CALL $--qd --ret:&ret Advapi32.dll,RegQueryValueExW,#%&hKey%,$InstallDate,#0,*&pType,*&pData,*&pSize
    
17.                 IFEX $%&ret%=0,
    
18.                 {
    
19.                     ENVI?int &pData=&Data
    
20.                     ENVI$# &pSystemTime=*8 0
    
21.                     CALL $--qd --ret:&ret ntdll.dll,RtlSecondsSince1970ToTime,#%&Data%,*&pSystemTime
    
22.                     IFEX $%&ret%<>0,
    
23.                     {
    
24.                         ENVI$# &pLocalTime=*8 0
    
25.                         CALL $--qd --ret:&ret ntdll.dll,RtlSystemTimeToLocalTime,*&pSystemTime,*&pLocalTime
    
26.                         IFEX $%&ret%=0,
    
27.                         {
    
28.                             ENVI$# &pTimeFields=*16 0
    
29.                             CALL $--qd ntdll.dll,RtlTimeToTimeFields,*&pLocalTime,*&pTimeFields
    
30.                             TEAM ENVI?short &pTimeFields=&Year:0| ENVI?short &pTimeFields=&Month:2| ENVI?short &pTimeFields=&Day:4
    
31.                             TEAM CALC -base=10 #&Year = %&&Year%| CALC -base=10 #&Month = %&&Month%| CALC -base=10 #&Day = %&&Day%
    
32.                             TEAM ENVI?short &pTimeFields=&Hour:6| ENVI?short &pTimeFields=&Minute:8| ENVI?short &pTimeFields=&Second:10
    
33.                             TEAM CALC -base=10 #&Hour = %&&Hour%| CALC -base=10 #&Minute = %&&Minute%| CALC -base=10 #&Second = %&&Second%
    
34.                             ENVI-ret %~1=%&Year%/%&Month%/%&Day%, %&Hour%:%&Minute%:%&Second%
    
35.                         }
    
36.                     }
    
37.                 }
    
38.             }
    
39.         }
    
40.         CALL $--qd --ret:&ret Advapi32.dll,RegCloseKey,#%&hKey%
    
41.     }
    
42. _END
    
43. 
    
44. _SUB SetWindowsInstallDate
    
45.     TEAM ENVI-ret %~1=0| ENVI$# &pSystemTime=*8 0
    
46.     CALL $--qd --ret:&ret ntdll.dll,NtQuerySystemTime,*&pSystemTime
    
47.     IFEX $%&ret%=0,
    
48.     {
    
49.         ENVI-int &pElapsedSeconds=0
    
50.         CALL $--qd --ret:&ret ntdll.dll,RtlTimeToSecondsSince1970,*&pSystemTime,*&pElapsedSeconds
    
51.         IFEX $%&ret%<>0,
    
52.         {
    
53.             TEAM ENVI &samDesired=0x20006| ENVI-ptr &phKey=0
    
54.             FIND $%&bX64%=1,CALC #&samDesired = %&samDesired% | 0x0100
    
55.             CALL $--qd --ret:&ret Advapi32.dll,RegCreateKeyExW,#0x80000002,$SOFTWARE\Microsoft\Windows NT\CurrentVersion,#0,#0,#0,#%&samDesired%,#0,*&phKey,#0
    
56.             IFEX $%&ret%=0,
    
57.             {
    
58.                 ENVI?ptr &phKey=&hKey
    
59.                 CALL $--qd --ret:&ret Advapi32.dll,RegSetValueExW,#%&hKey%,$InstallDate,#0,#0x4,*&pElapsedSeconds,#4
    
60.                 IFEX $%&ret%=0,ENVI-ret %~1=1
    
61.                 CALL $--qd --ret:&ret Advapi32.dll,RegCloseKey,#%&hKey%
    
62.             }
    
63.         }
    
64.     }
    
65. _END
    
66. 
    
67. ;示例
    
68. GetWindowsInstallDate &RetVal
    
69. MESS 系统初始安装日期: %&RetVal%
    
70. 
    
71. SetWindowsInstallDate &RetVal
    
72. FIND $%&RetVal%=1,MESS 成功设置系统安装日期为当前时间！! MESS 设置系统安装日期为当前时间失败！
    

复制代码

备注:
1. 使用 PECMD 自带的注册表读写命令 REGI 可以节省很多代码, 但我不清楚 PECMD 自带命令有没有执行返回值, 因此没有采用 REGI 命令
2. 上述 PECMD 代码好像很复杂, 如果将它转译成其它编程语言代码会发现其实代码异常简单
3. 在测试"设置Windows安装日期(SetWindowsInstallDate)"前, 建议先备份注册表项 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion] 的值 InstallDate 的数据

piis

测试测试

lm0006

感谢分享了 学习学习

cdlw333

学习了解下。。。

摇滚妖孽

感谢分享,辛苦了楼主，谢谢！

a66

方法多种多样

ZMLoveLH

看看这款脚本性能如何啊，下载试用了

Herofmd

这些代码或者脚本怎么使用呢？

ying976312

学习了

2010yaochangfu

感谢分享了 学习学习

2012yiqiudxv

感觉应该没那么复杂吧，查询的话一行命令就行了

1. systeminfo | find "初始安装日期"

复制代码

设置的话就是改个注册表的事情

temptemp

是有个命令行就能查，11楼正解

bj6688

感谢分享

bj6688

感谢分享

nttwqz

改安装日期有什么用途？

左岸麦田

查询安装日期，好像属性是可以直接查询的。

zhtony99

谢谢分享。

fnycc

楼主辛苦了。向楼主致敬！

150154906

这段代码是 PECMD 脚本，直接保存成 .wcs 文本文件，在 PE 环境里用 PECMD.EXE 加载执行就行，不需要编译。平时在正式系统里查安装日期更省事，看注册表 HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion 下的 InstallDate，或者运行 systeminfo 都行。这段代码真正的价值是演示了 PECMD 里直接调用 WinAPI 的写法，在 PE 下没有 systeminfo 时非常实用。

guanyijian

谢谢分享

2011chenrongbo

感谢分享

tonan115

学习

amway0451

谢谢分享

amway0451

谢谢分享

lzfwyqd

谢谢分享

yyz219195888

很有意思

yyz2191958

有一点意思

破楼听风

这个有什么用途么？改了时间又能如何呀？

依生13

感谢分享

忧忧忧

感谢分享