置換 Windows XP 序號

肥龍

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 版本無效 ! )