First, create a text file and enter the following information:
Copy Code code as follows:
On ERROR RESUME NEXT
Dim Vol_prod_key
If Wscript.arguments.count<1 Then
Vol_prod_key=inputbox ("Powered by Www.jb51.net" &vbCr&vbCr& "This program will automatically replace your current serial number of Windows, verified by Microsoft completely genuine." "&vbCr&vbCr&" Serial Number (invalid OEM version, default version is XP VLK): "," Windows XP serial number automatic changer, "Mrx3f-47b9t-2487j-kwkmf-rpwby")
If vol_prod_key= "" Then
Wscript.Quit
End If
Else
Vol_prod_key = Wscript.arguments.Item (0)
End If
Vol_prod_key = Replace (Vol_prod_key, "-", "") ' remove hyphens if any
For each Obj in GetObject ("Winmgmts:{impersonationlevel=impersonate}"). InstancesOf ("win32_WindowsProductActivation")
result = Obj.SetProductKey (Vol_prod_key)
If Err = 0 Then
WScript.Echo "ok! Go to Microsoft to verify it! "
End If
If Err <> 0 Then
WScript.Echo "Replace failed! The input Cd-key does not match the current version. "
Err.Clear
End If
Next
Save File
Turn on the tools on the left side of the screen--"Folder Options"--"view"
Remove the hook in front of the "hide the known file type of the Kuang Zhan name"
And then modify the name of the text file just now.
Change the name to "Key.vbs" double click to run OK ~ ~
Note: The default format for text files is "XXXX." TXT "When we modify the name of the back of the" TXT "removed
Just enter "Key.vbs" and it's OK.
