On szoftverhamisitas aldozata lett

[Zilahy Andra's]

Hi!

Horváth Péter írta:
> [. . .]
>
> de ha le kéne cserélni mind a 200 gépen évközben az elég kellemetlen 
> lenne :(

Van egy kis VBScript-em, ami pont erre jó. Alapból egy -bat-tal hívom 
meg kb így:

xy.vbs ABCDE-FGHIJ-KLMNO-PRSTU-WYQZX

Ahogy most nézegettem a scriptet, szerintem át lehet úgy írni, hogy ne 
paraméterként kelljen a kódot megadni, hanem benne legyen a scriptben - 
aztán, ha domainben vannak a gépek, beállítani login scriptként, hogy 
csak egyszer fusson le, és kész.

Az eredeti script:

'
' 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 kellene a login scriptbe - még nem próbáltam ki, hogy müxik-e:

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

ON ERROR RESUME NEXT

Dim VOL_PROD_KEY
VOL_PROD_KEY = "ABCDE-FGHIJ-KLMNO-PRSTU-WYQZX" 'Ide kellene beirni a kodot
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

=================

Remélem, tudtam segíteni.

Bye,

Zilahy András
rendszergazda
Vörösmarty Mihály Ének-zenei Nyelvi Általános Iskola és Gimnázium
az ELTE Gyakorlóhelye - Budapest | zilahy.andras at vmzene.hu | www.vmzene.hu