UC知道关于XP 的WINDOWS和OFFICE验证
来源：百度知道 编辑：UC知道 时间：2024/06/19 23:28:00
我的WINDOWS使用下面很简单的办法，就通过了验证，那么OFFICE呢？还有10来天的期限，到期后会怎样？如何通过验证？通过后能从2003升级成2007吗？谢谢大家乐
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY =InputBox("Powered By http://blog.csdn.com/cnzll"&vbCr&vbCr&" 本程序将自动替换你当 前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)：","Windows XP序列号自动更换器","MRX3F-47B9T-2487J-KWKMF-RPWBY")
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
Wscr
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY =InputBox("Powered By http://blog.csdn.com/cnzll"&vbCr&vbCr&" 本程序将自动替换你当 前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)：","Windows XP序列号自动更换器","MRX3F-47B9T-2487J-KWKMF-RPWBY")
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
Wscr
ftp://ribbitar.3322.org/Soft/MicrosoftOfficeProfessionalPlus2007.iso
这个是微软官方的office2007 安装序列号:CTKXX-M97FT-89PW2-DHKD3-74MYJ
你下载了直接升级安装。。我就是这样的，这个是通过正版验证的，希望你满意
我空间有相关的office验证的文章
为什么要用需要验证版本的呢，换一个系统装上不就行了，现在是实用主义，能用就行。想要验证版本的，那你就直接来个正版的就行了