ON

 

ERROR

 

RESUME

 

NEXT

  

Dim

 VOL_PROD_KEY

if

 Wscript.arguments.count

<

1

 

then

VOL_PROD_KEY

=

InputBox

(

"

辰日东起 http://blog.sina.com.cn/livxv

"

&

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