用AU3修改系统Windows XP序列号

$key = GUICtrlRead($Input)
If $key = "" Then
  MsgBox(16, "Error", "请输入正确的CDKEY", 3)
  GUICtrlSetState($Input, $GUI_ENABLE)
  GUICtrlSetState($BtnChange, $GUI_ENABLE)
EndIf
$key = StringReplace($key, "-", "")
$objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}")
$colComputers = $objWMIService.InstancesOf("win32_WindowsProductActivation")
For $obj In $colComputers
  $obj.SetProductKey($key)
  If @error = 0 Then
   MsgBox(64, "成功", "CDKEY修改成功！", 3)
  Else
   MsgBox(16, "失败", "CDKEY修改失败！请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。", 3)
  EndIf
Next

Exit

用AU3修改系统Windows XP序列号相关推荐

经典系统windows xp sp3官方原版下载（附XP序列号）
经典系统windows xp sp3官方原版下载(附XP序列号) 在过几日,微软最新的操作系统windows 7就将像外发售了!虽然Vista操作系统已经问世多年,但XP系统仍然占据着王位,在市 ...
更换Windows XP序列号的简明方法
更换Windows XP序列号的简明方法 2005年8月6日09:09星期六 [软件应用] 如因特殊情况需更改 Windows XP 的序列号可按下程序执行在[开始]→[执行]→[Regedit]→ ...
更换windows xp序列号
ON ERROR RESUME NEXT Dim VOL_PROD_KEY if Wscript.arguments.count<1 then VOL_PROD_KEY=InputBox(&qu ...
仍在王位:经典系统windows xp sp3官方原版下载（附XP序列号）
微软最新的操作系统windows 7就将像外发售了!虽然Vista操作系统已经问世多年,但XP系统仍然占据着王位,在市场占有率上遥遥领先,windows 7问世后,究竟能不能撼动着XP的王位?需要时间 ...
windows7系统windows XP系统ps2针孔老式键盘开机不能使用驱动出现感叹号--亲自测试可以解决问题
症状表现:前一天晚上正常关机,第二天来,开机键盘输入密码没反应,整个键盘没反应:换别人的usb键盘可以使用,然后自己的针孔键盘还是不好用:电脑管理--设备管理器,键盘"PS/2标准键盘&qu ...
微软MSDN原版系统—Windows XP
**************************************************************************************************** ...
安装ms word时需要的正版windows xp序列号
GR9V3-FX3XQ-HJHX2-H46JF-GFHXB WINXP PQMJ7-4B3M3-C4QPQ-QXD23-7PB26 OFFICEXP GWH28-DGCMP-P6RC4 ...
xp系统关闭闲置服务器,Windows XP 共享限制及手工释放会话资源的方法
Windows XP 共享限制及手工释放会话资源的方法 rem 正在进行数据备份,请稍候... @echo off net session /delete /y "C:\Program Fi ...
Windows XP Service Pack 3 修复程序列表
编号文章标题类别274261 (http://support.microsoft.com/kb/274261/)超级终端缓冲区历史可能出现损坏修复297694 (http://support.micr ...

用AU3修改系统Windows XP序列号

用AU3修改系统Windows XP序列号相关推荐

最新文章

热门文章