Implement the code to replace the Windows XP serial number with the VBS script _vbs

On ERROR RESUME NEXT

Dim Vol_prod_key
If Wscript.arguments.count<1 Then
Vol_prod_key =inputbox ("Use instructions:" &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): "& vbcr&vbcr&" Enter serial number (default is XP VLK): "," Windows xp/2003 Serial Number Replacement Tool "," dg8fv-b9tky-frt9j-6crcc-xpq4g ")
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 "Your Windows Cd-key has been modified successfully. Please check the System properties. "
End If

If Err <> 0 Then
WScript.Echo "Modification failed!" Please check that the cd-key you entered matches the current version of Windows. "
Err.Clear
End If

Next