1
2
3
4
5
6
7
8
9
|
Public Sub ChangeXPKey(ByVal Key As String)
Dim WSH As Object
Key = Replace(Key, "-", "")
WSH = CreateObject("WScript.Shell")
WSH.RegDelete("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\WPAEvents\OOBETimer")
For Each Obj As Object In GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("win32_WindowsProductActivation")
Obj.SetProductKey(Key)
Next
End Sub
|