鸿蒙系统和XP系统比,到底正版XP SP3系统好还是D版的好?

将序列号替换为你的序列号

===================================

ON ERROR RESUME NEXT

Dim VOL_PROD_KEY

Dim index

Dim keyArray(7)

Dim ProductKey

Dim Required

Dim MyVar

keyArray(0)=CM3HY-26VYW-6JRYC-X66GX-JVY2D

keyArray(1)=DDQXW-THQ8M-79V6K-2YFGH-R793Q

keyArray(2)=DP7CM-PD6MC-6BKXT-M8JJ6-RPXGJ

keyArray(3)=F4297-RCWJP-P482C-YY23Y-XH8W3

keyArray(4)=HH7VV-6P3G9-82TWK-QKJJ3-MXR96

for each Obj in GetObject(winmgmts:{impersonationLevel=impersonate}).InstancesOf (win32_WindowsProductActivation)

'WScript.Echo

ProductKey = Obj.ProductID

'Obj.ServerName

Required = Obj.ActivationRequired

'Obj.RemainingGracePeriod

'Obj.RemainingEvaluationPeriod

next

Randomize()

index = int(rnd() * 5) + 0

if Wscript.arguments.count1 then

VOL_PROD_KEY = InputBox(欢迎使用[SHENDS]！&vbCr&vbCr&系统当前的序列号为：&vbCr&& ProductKey &&vbCr&vbCr&本程序可以替换您当前的WINDOWS XP序列号,使之通过微软正版验证。&vbCr&vbCr&我所能提供的序列号为(您可以在下面文本框中填入你从微软获得的正版序列号)：,WINDOWS XP序列号更换器,& keyArray(index) &)

if VOL_PROD_KEY= then

Wscript.quit

end if

else

VOL_PROD_KEY = Wscript.arguments.Item(0)

end if

VOL_PROD_KEY = Replace(VOL_PROD_KEY,-,) 'remove hyphens if any

for each Obj in GetObject(winmgmts:{impersonationLevel=impersonate}).InstancesOf (win32_WindowsProductActivation)

result = Obj.SetProductKey (VOL_PROD_KEY)

if err = 0 then

Wscript.echo 替换成功!您可以不再受提示系统盗版的烦恼了！

end if

if err 0 then

Wscript.echo 抱歉：替换失败！输入的 CD-KEY 与当前的版本不匹配。请再次尝试运行此程序！

Err.Clear

end if

next

将以上代码保存为VBS文件，运行后即可解决。

取消

评论