解决IE7安装验证问题

今天下了个IE7，安装，没想到公司的Windows Copy居然是D版的，FT

在网上搜了一下解决方法，给大家分享一下。

1.拷贝以下代码，并另存为key.vbs

ON   ERROR   RESUME   NEXT

Dim  VOL_PROD_KEY
if  Wscript.arguments.count < 1   then
VOL_PROD_KEY = InputBox ( " Powered " & 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
Wscript.echo  " OK！去微软验证吧！ "
end   if

if  err  <>   0   then
Wscript.echo  " 替换失败！输入的 CD-KEY 与当前的版本不匹配。 "
Err.Clear
end   if

Next

 2.运行key.vbs

 3.安装ie7，搞定