UC知道电脑高手帮忙~~如何找本机COA（Windows 产品密钥）
来源：百度知道 编辑：UC知道 时间：2024/05/21 10:19:22
Windows 产品密钥更新需要本机Windows 产品密钥
如何能找到啊
（预装在 PC 机上的 Windows： 在您的 PC 机箱上查找正版证书 (COA)。
预装在笔记本电脑的 Windows： 在笔记本电脑的下部查找 COA。
预装在 Tablet PC 或其它小型装置上的 Windows： 在电池下面查找 COA。
从零售店购买的、而不是与 PC同时获得的Windows： 在安装 CD 盒上查找橙色产品密钥标签。）
这些我没有啊，还有什么办法找到
如何能找到啊
（预装在 PC 机上的 Windows： 在您的 PC 机箱上查找正版证书 (COA)。
预装在笔记本电脑的 Windows： 在笔记本电脑的下部查找 COA。
预装在 Tablet PC 或其它小型装置上的 Windows： 在电池下面查找 COA。
从零售店购买的、而不是与 PC同时获得的Windows： 在安装 CD 盒上查找橙色产品密钥标签。）
这些我没有啊，还有什么办法找到
不要这么麻烦了，直接换Windows 产品密钥就好了！
首先，新建个文本文件，输入下面这些：（直接复制到记事本就行）
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("Powered By www.cnbeta.com"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)：","Windows XP序列号自动更换器","MRX3F-47B9T-2487J-KWKMF-RPWBY")
if VOL_PROD_KEY="" then
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 &