管庄首页 | 管庄资讯 | 房屋租售 | 活动聚会 | 求职招聘 | 常营商铺 | 常营论坛 | 联系站长
返回列表 发帖

修改Windows 2003序列号

修改Windows 2003序列号

如果WIN2003升级SP1的时候 因为序列号无法升级的时候 可以用简便的方法修改序列号
( Z2 [& m& w/ W/ T6 _: s$ a3 G/ r# P6 w( V/ T* n5 l
新建立一个文本内容如下修改扩展名:Windows序列号修改.VBS
+ i6 A" C. H* p4 ?+ W
" y4 K% w5 e) u) Y! x; o+ t主要功能可以修改安装时的序列号.
7 ?: _) [) P( M& k2 ^6 [4 K. B" J+ r4 b: I5 t4 S& l1 k. P
'  
7 K; Y* ?& t4 B0 {: b9 Q4 n' WMI Script - ChangeVLKey.vbs ( p0 ]5 S8 i; y8 X) X
' ' |2 J* c: _+ p7 c9 |/ U
' This script changes the product key on the computer (XP SP1 SP2 2003)
. k6 \$ z: o3 Q2 ]'
) U1 Q5 s) i! o7 f# S: S! V0 g6 q5 P! ]' Made by zyling. 8 S& G7 g# k: n# a: D9 ~
'*************************************************************************** 8 [* ]- ^- U0 J1 b+ G% w

( d- P7 p# d% `9 e6 b' FON ERROR RESUME NEXT 7 J; a& y, `- ^
7 G9 {4 ~" ?7 I
Dim VOL_PROD_KEY 9 R. j/ C7 u1 j* v! \4 Z
if Wscript.arguments.count<1 then
$ m7 D& G2 q! `; q: {VOL_PROD_KEY=InputBox("使用说明(OEM版无效):"&vbCr&vbCr&"本脚本程序将修改当前 Windows 的序列号。请先使用算号器算出匹配当前 Windows的序列号,复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK):","WindowsXP/2003 序列号更换工具","PJVCV-XCPPF-6GTKK-QXRPY-FBKGJ")
- l- E  V( X8 g5 v, O1 zif VOL_PROD_KEY="" then
  B! D( D0 M$ @2 x1 V4 yWscript.quit
( f5 l0 Y8 B0 |) W* D( W" zend if
' }. Z- j" N$ Z% k# _, `' Lelse
* Y. y0 l1 A5 W2 PVOL_PROD_KEY = Wscript.arguments.Item(0) : y2 J8 I6 g5 E! n1 L( \
end if 4 V7 J4 L$ X& A

! Q, v! z5 Q0 qVOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any ; I1 {  _! A, I. `5 d  U
* y9 Y" `. i* L$ j" a' F7 [  h
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation") . t& Q5 o- I& e# Q, r: c& H5 ~" Z

  h9 B% _; Y* ^& k9 ?& s' dresult = Obj.SetProductKey (VOL_PROD_KEY) # E2 Z9 ~/ `4 e

+ a% K3 q7 ~7 A, h/ }3 Gif err = 0 then
& A+ o7 M7 L0 a5 V3 JWscript.echo "您的 Windows CD-KEY 修改成功。请检查系统属性。"
% I; ~9 a- j% I. t) N1 mend if 9 B) C. p& {0 ^; v, i( F
: L! E/ M, s- ?
if err <> 0 then
: m$ n/ j7 {! \Wscript.echo "修改失败!请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。"
8 n1 |8 d& Z' p* m( |1 uErr.Clear
+ @8 ]# L3 \4 c4 _end if
  S) t1 G0 k' ]
1 t9 B5 [8 X3 n/ eNext

注意:Windows 2003 企业推荐号码:JCGMJ-TC669-KCBG7-HB8X2-FXG7M

TOP

返回列表