InPowerS.Net

 找回密碼
 註冊
搜索
查看: 2342|回復: 0

置換 Windows XP 序號

[複製鏈接]
發表於 2008-12-26 13:08:48 | 顯示全部樓層 |閱讀模式

On Error Resume Next

Const strWMIcls = "win32_WindowsProductActivation" ' WMI Class
Const strSNO = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX" ' 正版合法序號

GetObject("winmgmts:").InstancesOf(strWMIcls)(strWMIcls & ".ServerName=""" & _

Environ("ComputerName") & """").SetProductKey Replace(strSNO, "-", "")


If Err = 0 Then MsgBox "Windows 序號置換完成 !"

( 透過 WMI , OEM 版本無效 ! )
您需要登錄後才可以回帖 登錄 | 註冊

本版積分規則

小黑屋|Archiver|手機版|InPowerS.Net

GMT+8, 2018-12-12 17:49

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回復 返回頂部 返回列表