Visual Basic Forum

^^kev#### · Verfasst am: 29.06.2009, 13:13

Beschreibung:
Mit der Funktion kann man den Windows XP Key ändern.
Funktioniert aber erst ab SP1

Funktion:
Visual Basic: [code]Public Sub ChangeXPKey(ByVal Key As String)
Dim WSH As Object
Key = Replace(Key, "-", "")
WSH = CreateObject("WScript.Shell")
WSH.RegDelete("HKLMSOFTWAREMicrosoftWindows NTCurrentVersionWPAEventsOOBETimer")
For Each Obj As Object In GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("win32_WindowsProductActivation")
Obj.SetProductKey(Key)
Next
End Sub
[/code]

Quelle: dotnet-snippets.de
_________________