肥龍 發表於 2008-12-26 13:08:48

置換 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 版本無效 ! )
頁: [1]
查看完整版本: 置換 Windows XP 序號