回文章列表
作者dreamrider@kkcity.com.tw ( ) 看板: hacker
標題Re: XP怎改序號?
時間KKCITY (2007/05/13 Sun 23:57:45)
※ 引述《uspaul ( )》之銘言:
> 我用keyfinder去修改xp序號 但是都無法修改
> 於是我進入安全模式發現到 有2個選項
> 一個是 adminstror(有點拼錯的話 多包含)
> 另一個是user
> 進入adminstor 後修改
> 怎只能修改 window reg info
> 都無法修改windows cd key?

請將以下的內容存成副檔名是VBS的檔,再按執行就好了^^"


'
' WMI Script - ChangeVLKey.vbs
'
' This script changes the product key on the computer
'
'***************************************************************************

ON ERROR RESUME NEXT

if Wscript.arguments.count<1 then
   Wscript.echo "Script can't run without VolumeProductKey argument"
   Wscript.echo "Correct usage: Cscript ChangeVLKey.vbs ABCDE-FGHIJ-KLMNO-PRSTU-WYQZX"
   Wscript.quit
end if

Dim VOL_PROD_KEY
VOL_PROD_KEY = Wscript.arguments.Item(0)
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\WPAEvents\OOBETimer" 'delete OOBETimer registry value
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

   result = Obj.SetProductKey (VOL_PROD_KEY)

   if err <> 0 then
      WScript.Echo Err.Description, "0x" & Hex(Err.Number)
      Err.Clear
   end if

Next

abcde-fghij那裡請打你自己的序號就ok了!!
--
┌─────KKCITY─────┐─┐KKADSL六星級優質連線服務
         bbs.kkcity.com.tw          └─ 馬上申請帶你上網環遊全世界!
└──From:122.127.44.106     ──┘ KKADSL http://adsl.kkcity.com.tw 
--
文章選讀←離開[主題上]主題下(k)上篇(j)下篇S/a搜尋 G串列 TAB精華 ↑↓捲 Pg/Space翻