View or modify the vbs of the serial number of Windows systems

Source: Internet
Author: User

'/* =================================================== ==========================================
'* Intro views or modifies the serial numbers of Windows systems (including 2000, XP, and 2003), supports the command line "getchangewindowssn. vbs Windows system serial number", or directly runs and enters the Windows system serial number.
'* Filename getchangewindowssn. vbs
'* Author yongfa365
'* Version V1.0
'* Email yongfa365 [at] QQ.com
'* Madetime 2007-10-13 21:40:09
'* Lastmodify 2007-10-13 21:40:09
'* ===================================================== ============================================= */
On Error resume next
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"

Dim vol_prod_key
If wscript. Arguments. Count <1 then
Vol_prod_key = inputbox ("your current Windows system serial number is:" & getwindowssn & string (5, vbcrlf) & "Enter the new Windows serial number :", "Windows serial number changer", sn_2003_1)
If vol_prod_key = "" or Len (vol_prod_key) <> 29 then
Wscript. Echo "you have chosen to cancel or the Windows serial number is empty or the Windows serial number is incorrect. -- exit"
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 "Windows serial number is replaced successfully. "
Else
Failed to replace wscript. Echo "Windows serial number! The serial number you entered is incorrect. "
Err. Clear
End if
Next

'Get the current Windows serial number Function
Function getwindowssn ()
Const HKEY_LOCAL_MACHINE = & h80000002
Strkeypath = "SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion"
Strvaluename = "digitalproductid"
Strcomputer = "."
Dim ivalues ()
Set oreg = GetObject ("winmgmts: {impersonationlevel = impersonate }! \ "& Strcomputer &" \ Root \ default: stdregprov ")
Oreg. getbinaryvalue HKEY_LOCAL_MACHINE, strkeypath, strvaluename, ivalues
Dim arrdpid
Arrdpid = array ()
For I = 52 to 66
Redim preserve arrdpid (ubound (arrdpid) + 1)
Arrdpid (ubound (arrdpid) = ivalues (I)
Next
'<------------- Create an array to hold the valid characters for a Microsoft Product Key -------------------------->
Dim arrchars
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 ")
'<------------- The clever bit !!! (Decrypt the base24 encoded binary data) ------------------------>
For I = 24 to 0 step-1
K = 0
For J = 14 to 0 step-1
K = K * 256 XOR arrdpid (j)
Arrdpid (j) = int (K/24)
K = K mod 24
Next
Strproductkey = arrchars (k) & strproductkey
'<------- Add the "-" between the groups of 5 char -------->
If I mod 5 = 0 and I <> 0 then strproductkey = "-" & strproductkey
Next
Getwindowssn = strproductkey
End Function

Related Article

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.