xp kulcs csere

[Gyulai László]

Szerintem a vbs scriptre gondolt, nem tudom hogy működik-e a listán a 
csatolás, a microsoft scriptet annyiban módosítottam, hogy beleírtam a 
listára felkerült xp kulcsot direktben, csak el kell indítani 
duplakatt-al, aztán máris visszajön a háttérkép a fekete helyett :)
Ha nem megy a csatolás akkor ezt kell bemásolni mondjuk egy 
ChangeVLKeySP1_tisztasz.vbs szövegfile-ba:
------- kód eleje ----------
'
' 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 = "KKH78JFTCMWK27P72XMMJHYWB"

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
-------- kód vége --------

Gyulai László
rendszergizda

2014.02.12. 6:43 keltezéssel, Zoltán Kurucz írta:
> igen, erre jött elő a leírt jelenség
>
>
> 2014. február 11. 15:13 Gondos Levente írta, <golebri at gmail.com 
> <mailto:golebri at gmail.com>>:
>
>     szia!
>     ezt próbáltad?
>     http://support.microsoft.com/kb/328874/hu
>     levente
>     2014.02.11. 10 <tel:2014.02.11.%2010>:33:38 dátumon Zoltán Kurucz
>     <zoltan.kurucz at gmail.com <mailto:zoltan.kurucz at gmail.com>> írta:
>
>         Sziasztok!
>
>         Tudom, hogy volt téma, azonban az alábbi hibát nem tárgyaltuk
>         ki. Egy könyvelő gépén jött elő, a probléma, hogy
>         szoftverhamisítás áldozata lett. Természetesen megvette az
>         xp-t és a hozzá tartozó kulccsal aktiválva is volt. Ha
>         módosítani akarom a kulcsot, akkor azt írja, hogy az xp
>         aktiválva van és nem engedi újból beírni. Registryben az
>         OOBETimer értékénél változtatok valamit, ismét próba eredmény
>         ua, az xp aktiválva, de bejelentkezésnél ismét áldozat.
>
>         Mit kellene megnéznem?
>
>         -- 
>         Kurucz Zoltán
>         *rendszergazda*
>         /constantinum.hu/ <http://constantinum.hu>
>
>
>
>
>     -- 
>     Az Opera levelezőjét használva: http://www.opera.com/mail/
>
>     _______________________________________________
>     Techinfo mailing list
>     Techinfo at lista.sulinet.hu <mailto:Techinfo at lista.sulinet.hu>
>     Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo
>     Illemtan: http://www.szag.hu/illemtan.html
>     Ügyfélszolgálat FAQ: http://sulinet.niif.hu/
>
>
>
>
> -- 
> Kurucz Zoltán
> *rendszergazda*
> /constantinum.hu/ <http://constantinum.hu>
>
>
> _______________________________________________
> Techinfo mailing list
> Techinfo at lista.sulinet.hu
> Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo
> Illemtan: http://www.szag.hu/illemtan.html
> Ügyfélszolgálat FAQ: http://sulinet.niif.hu/

--------- következő rész ---------
Egy csatolt HTML állomány át lett konvertálva...
URL: <http://lista.sulinet.hu/pipermail/techinfo/attachments/20140212/3499b3a1/attachment.html>
--------- következő rész ---------
' 
' 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 = "KKH78JFTCMWK27P72XMMJHYWB"
'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