Tài liệu 1001 thủ thuật máy tính P43 docx

421. Thay đổi số serial trong XP khi cập nhật Windows XP SP1

Bạn đặt tên của đoạn code này là : ChangeVLKeysp1.vbs , chạy đoạn code

này .

Sau đó vào Start - Run gỏ

C:\changevlkeysp1.vbs ab123-123ab-ab123-123ab-ab123

Nhấn nút OK .

Trong đó : ab123-123ab-ab123-123ab-ab123 là số serial mới .

C là ổ đĩa bạn cài hệ điều hành

Mở Notepad và chép đọan mã sau vào :

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-PRSTUWYQZX"

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)

Welcome To VNECHIP http://www.vnechip.com - Where People Go To

Know

VNECHIP – Advanced Technologies , 24/7 Support , Free Fastest Online

Err.Clear

end if

Next

Lưu tập tin này lại và đặt tên là changeVLKeysp1.vbs