如何置換 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 版本無效 ! )