'/*=========================================================================

'*Intro查看或修改Windows系列系统的序列号（包括：2000,xp,2003），支持命令行“GetChangeWindowsSN.vbsWindows系统序列号”或直接运行输入Windows系统序列号。

'*FileNameGetChangeWindowsSN.vbs

'*Authoryongfa365

'*Versionv1.0

'*Emailyongfa365[at]qq.com

'*MadeTime2007-10-1321:40:09

'*LastModify2007-10-1321:40:09

'*==========================================================================*/

OnErrorResumeNext

SN_XP_1="MRX3F-47B9T-2487J-KWKMF-RPWBY"'good

SN_XP_2="QC986-27D34-6M3TY-JJXP9-TBGMD"

SN_XP_3="K2CXT-C6TPX-WCXDP-RMHWT-V4TDT"

SN_XP_4="22DVC-GWQW7-7G228-D72Y7-QK8Q3"

SN_XP_5="DG8FV-B9TKY-FRT9J-6CRCC-XPQ4G"

SN_XP_6="T44H2-BM3G7-J4CQR-MPDRM-BWFWM"

SN_XP_7="XW6Q2-MP4HK-GXFK3-KPGG4-GM36T"

SN_2000_1="PQHKR-G4JFW-VTY3P-G4WQ2-88CTW"

SN_2000_Server_1="H6TWQ-TQQM8-HXJYG-D69F7-R84VM"

SN_2000_Advanced_Server_1="H6TWQ-TQQM8-HXJYG-D69F7-R84VM"

SN_2003_1="JCGMJ-TC669-KCBG7-HB8X2-FXG7M"'good

SN_2003_2="DF74D-TWR86-D3F4V-M8D8J-WTT7M"'good

SN_2003_2="KQF2H-284RW-GHXM6-Y3W2B-QWGBB"

DimVOL_PROD_KEY

IfWScript.arguments.Count<1Then

VOL_PROD_KEY=InputBox("您当前的Windows系统序列号为："&GetWindowsSN&String(5,vbCrLf)&"请输入新的Windows序列号：","Windows序列号更换器",SN_2003_1)

IfVOL_PROD_KEY=""OrLen(VOL_PROD_KEY)<>29Then

WScript.echo"您选择了取消或Windows序列号为空或Windows序列号位数有误——》退出"

WScript.Quit

EndIf

Else

VOL_PROD_KEY=WScript.arguments.Item(0)

EndIf

VOL_PROD_KEY=Replace(VOL_PROD_KEY,"-","")'removehyphensifany

ForEachObjinGetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("win32_WindowsProductActivation")

result=Obj.SetProductKey(VOL_PROD_KEY)

IfErr=0Then

WScript.echo"Windows序列号替换成功。"

Else

WScript.echo"Windows序列号替换失败！您输入的序列号有误。"

Err.Clear

EndIf

Next

'取得当前Windows序列号函数

FunctionGetWindowsSN()

ConstHKEY_LOCAL_MACHINE=&H80000002

strKeyPath="SOFTWAREMicrosoftWindowsNTCurrentVersion"

strValueName="DigitalProductId"

strComputer="."

DimiValues()

SetoReg=GetObject("winmgmts:{impersonationLevel=impersonate}!"&strComputer&"rootdefault:StdRegProv")

oReg.GetBinaryValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,iValues

DimarrDPID

arrDPID=Array()

Fori=52To66

ReDimPreservearrDPID(UBound(arrDPID)+1)

arrDPID(UBound(arrDPID))=iValues(i)

Next

'<---------------CreateanarraytoholdthevalidcharactersforamicrosoftProductKey-------------------------->

DimarrChars

arrChars=Array("B","C","D","F","G","H","J","K","M","P","Q","R","T","V","W","X","Y","2","3","4","6","7","8","9")

'<---------------Thecleverbit!!!(Decryptthebase24encodedbinarydata)-------------------------->

Fori=24To0Step-1

k=0

Forj=14To0Step-1

k=k*256XorarrDPID(j)

arrDPID(j)=Int(k/24)

k=kMod24

Next

strProductKey=arrChars(k)&strProductKey

'<-------addthe"-"betweenthegroupsof5Char-------->

IfiMod5=0Andi<>0ThenstrProductKey="-"&strProductKey

Next

GetWindowsSN=strProductKey

EndFunction