home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / wh / zz / key.vbs < prev    next >
Text File  |  2008-07-09  |  826b  |  30 lines
  1. ON ERROR RESUME NEXT
  2.  
  3. Dim VOL_PROD_KEY
  4. if Wscript.arguments.count<1 then
  5. VOL_PROD_KEY=InputBox("Powered By www.pcpxp.com"&vbCr&vbCr&" ▒╛│╠╨≥╜½╫╘╢»╠µ╗╗─π╡▒╟░ Windows ╡─╨≥┴╨║┼,═¿╣²╬ó╚φ╤Θ╓ñ═Ω╚½╒²░µíú"&vbCr&vbCr&"╨≥┴╨║┼(OEM░µ╬▐╨º,─¼╚╧░µ▒╛╬¬ XP VLK)ú║","Windows XP╨≥┴╨║┼╫╘╢»╕ⁿ╗╗╞≈","MRX3F-47B9T-2487J-KWKMF-RPWBY")
  6. if VOL_PROD_KEY="" then
  7. Wscript.quit
  8. end if
  9. else
  10. VOL_PROD_KEY = Wscript.arguments.Item(0)
  11. end if
  12.  
  13. VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
  14.  
  15. for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
  16.  
  17. result = Obj.SetProductKey (VOL_PROD_KEY)
  18.  
  19. if err = 0 then
  20. Wscript.echo "OKúí╚Ñ╬ó╚φ╤Θ╓ñ░╔úí"
  21. end if
  22.  
  23. if err <> 0 then
  24. Wscript.echo "╠µ╗╗╩º░▄úí╩Σ╚δ╡─ CD-KEY ╙δ╡▒╟░╡─░µ▒╛▓╗╞Ñ┼Σíú"
  25. Err.Clear
  26. end if
  27.  
  28. Next
  29.  
  30.