WIN hitelesites mentese

Zilahy Andra's picard at hdsnet.hu
2006. Jan. 11., Sze, 20:19:48 CET


Hi!

Kiss Zsolt írta:

> [. . .]
>
> Tud valaki olyan progit, amivel el lehet menteni a hitelesítést, hogy ne
> kelljen a syspreppel vacakolni, hanem vissza lehessen tölteni? Valahogy
> nincs kedvem még1x ezt eljátszani. Igaz erről már lesz jó image.
>

A Microsoft Update tudomásom szerint azt figyeli, hogy a telepítéskor 
megadott sorozatszám jogtiszta-e.
Ha van jogtiszta licenszed, aminek a termékkulcsát megadhatnád 
telepítéskor, csak a mostani image-hez nem ilyen volt megadva, akkor 
létezik egy módszer, amivel futó XP (SP2 is!) alatt ki lehet cserélni a 
termékkulcsot.

Nekem erre akkor volt szükségem, amikor egy olyan gépet klónoztam, amire 
nem jogtiszta kódú XP SP2-t tettem fel, csak azért, mert abba már 
integrálva volt az SP2 és a Tisztaszoftveres éppen nem volt elérhető, 
csak a hozzá tartozó mennyiségi telepítőkód. Mivel amúgy sem akartam nem 
jogtiszta cuccost használni, ráadásul még a WinUpd és az MS Upd is 
jelezték, hogy gond van, rákerestem a neten, hogy milen lehetőségem van, 
hogy tejlesen legális termékkulcsot tegyek a rendszer alá.

Ezeket találtam:

keychng.vbs volt a neve, bár a commentezése mást mond
----------------------------------------------------------

'
' 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

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

-----------------

ez meg a batch file, ami futtatta:

keychange.bat -nak neveztem el
--------------------------------

@echo off
keychng.vbs xxxxx-xxxxx-xxxxx-xxxxx-xxxxx


Remélem, tudtam segíteni.

Bye,

Zilahy András
rendszergazda
Vörösmarty Mihály Ének-zenei Nyelvi Általános Iskola és Gimnázium
Budapest - azagy at freemail.hu



További információk a(z) Techinfo levelezőlistáról