winxp系统激活备份的解决方法

winxp系统激活备份的解决方法?
　　我们在使用winxp系统的过程中,经常需要对winxp系统激活备份进行设置。对于winxp系统激活备份有什么好的办法可以进行设置呢？其实winxp系统激活备份的操作方法，我们只需要1)首先，在桌面新建一个文本，然后将下方的代码复制粘贴到文本中；就可以解决了，针对此问题小编给大家收集整理winxp系统激活备份具体的操作方法：

1)首先，在桌面新建一个文本，然后将下方的代码复制粘贴到文本中

option Explicit

dim objshell,path,digitalid, Result

set objshell = Createobject(“wscript.shell”)

‘set registry key path

path = “HKLM\soFTwARE\Microsoft\windows nT\CurrentVersion\”

‘Registry key value

digitalid = objshell.RegRead(path & “digitalproductid”)

dim productname,productid,productKey,productdata

‘Get productname, productid, productKey

productname = “系统名称：” & objshell.RegRead(path & “productname”)

productid = “产品id：” & objshell.RegRead(path & “productid”)

productKey = “已安装密钥：” & ConvertToKey(digitalid)

productdata = productname & vbnewLine & productid & vbnewLine & productKey

‘show messbox if save to a file

if vbYes = MsgBox(productdata & vblf & vblf & “要将密钥保存到文件吗?”, vbYesno + vbQuestion, “软媒魔方备份windows密钥信息”) then

save productdata

End if

‘Convert binary to chars

Function ConvertToKey(Key)

Const Keyoffset = 52

dim iswinxp, Maps, i, j, Current, Keyoutput, Last, keypart1, insert

‘Check if os is windows 10

iswinxp = (Key(66) \ 6) And 1

Key(66) = (Key(66) And &HF7) or ((iswinxp And 2) * 4)

i = 24

Maps = “BCdFGHJKMpQRTVwxY2346789”

do

Current= 0

j = 14

do

Current = Current* 256

Current = Key(j + Keyoffset) + Current

Key(j + Keyoffset) = (Current \ 24)

Current=Current Mod 24

j = j -1

Loop while j >= 0

i = i -1

Keyoutput = Mid(Maps,Current+ 1, 1) & Keyoutput

Last = Current

Loop while i >= 0

if (iswinxp = 1) Then

keypart1 = Mid(Keyoutput, 2, Last)

insert = “n”

Keyoutput = Replace(Keyoutput, keypart1, keypart1 & insert, 2, 1, 0)

if Last = 0 Then Keyoutput = insert & Keyoutput

End if

ConvertToKey = Mid(Keyoutput, 1, 5) & “-” & Mid(Keyoutput, 6, 5) & “-” & Mid(Keyoutput, 11, 5) & “-” & Mid(Keyoutput, 16, 5) & “-” & Mid(Keyoutput, 21, 5)

End Function

‘save data to a file

Function save(data)

dim fso, fname, txt,objshell,Username

set objshell = Createobject(“wscript.shell”)

‘Get current user name

Username = objshell.ExpandEnvironmentstrings(“%Username%”)

‘Create a text file on desktop

fname = “C:\Users\” & Username & “\desktop\windows密钥备份.txt”

set fso = Createobject(“scripting.Filesystemobject”)

set txt = fso.CreateTextFile(fname)

txt.writeline data

txt.Close

End Function

2)粘贴完成之后我们点击“文件”，然后再来点击“另存为”

3)此时我们选择保存的路径为桌面，然后在下方的命名处将其文本命名为“密钥查询和备份.vbs”，然后点击确定 4)此时我们双击刚刚新建的那个文本，此时会弹出一个窗口，我们点击“是”即可备份激活信息 5)点击“是”之后桌面会出现一个新的文本，我们点击进去即可查看到我们的系统激活信息，也就是秘钥 以上便是winxp激活备份的简单操作方法啦
上述给大家介绍的就是winxp系统激活备份的解决方法了，老铁们都学会了吗？