- '/*=========================================================================
- ' * Intro 查看或修改Windows系列系统的序列号(包括:2000,xp,2003),支持命令行“GetChangeWindowsSN.vbs Windows系统序列号” 或 直接运行输入Windows系统序列号。
- ' * 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("您当前的Windows系统序列号为:" & GetWindowsSN & String(5, vbCrLf) & "请输入新的Windows序列号:", "Windows序列号更换器", SN_2003_1)
- If VOL_PROD_KEY = "" Or Len(VOL_PROD_KEY)<>29 Then
- WScript.echo "您选择了取消 或 Windows序列号为空 或 Windows序列号位数有误 ——》退出"
- 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序列号替换成功。"
- Else
- WScript.echo "Windows序列号替换失败!您输入的序列号有误。"
- Err.Clear
- End If
- Next
- '取得当前Windows序列号函数
- 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
查看或修改Windows系列系统的序列号的vbs
2020-07-23 11:11VBS代码大全 VBS
查看或修改Windows系列系统的序列号(包括:2000,xp,2003),支持命令行
延伸 · 阅读
- 2022-06-21微软严管Windows商店软件:山寨的、高价的统统不
- 2022-06-07为MongoDB数据库注册windows服务
- 2022-05-16清理软件CCleaner优化神了:Windows性能跑分大涨2
- 2022-04-25VBS 批量Ping的项目实现
- 2022-04-21教你用vbs实现微信自动发送消息功能
- 2022-04-20抖音很火的vbs表白代码(简单实用!)
- VBS
灵活实用VBS入门教程应用篇
上一篇文章我们了解了VBS编程的一些基础知识,要更深入地学习还要学习选择结构和循环结构。 ...
- VBS
VBS教程:正则表达式简介 -正则表达式语法
正则表达式语法 一个正则表达式就是由普通字符(例如字符 a 到 z)以及特殊字符(称为元字符)组成的文字模式。该模式描述在查找文字主体时待匹配的...
- VBS
Adsutil.vbs 在脚本攻击中的妙用[我非我原创]
adsutil.vbs是什么?相信用过IIS的网管员不会不知道。这是IIS自带的提供于命令行下管理IIS的一个脚本。位于%SystemDrive%\Inetpub\AdminScripts目录下。...
- VBS
VBS编程教程 (第1篇)
VBScript的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版). 正如其字面所透露的信息, VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言....
- VBS
WINDOWS脚本实践:为SAP补丁制作的VBS脚本代码
本文主要分享WINDOWS脚本实践:为SAP补丁制作的VBS脚本代码,有需要的童鞋可以参考下...
- VBS
雷客图ASP站长安全助手vbs测试版代码
雷客图ASP站长安全助手是一个基于ASP的帮助站长维护网站安全的程序。这个版本(vbs测试版)主要用于服务器本地运行以查找ASP木马。此版本为测试版,希...
- VBS
VBS文本文件操作实现代码
这篇文章主要介绍了VBS文本文件操作实现代码,需要的朋友可以参考下...
- VBS
VBS数组深入浅出
VBS数组在应用中没有像其他语句那么广泛,VBS数组存在不少功能上的局限性(如二维数组的定义、赋值),在使用上也没有java等语言那么便捷...