用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