Anyone got code for Win XP key Finder

[nals]

Here is the vb file

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

[rexzooly]

rexzooly ,, sorry I have exported and attached again

TimeSurfer , I m using Win XP pro

change the button to :

ChangeXPKey()
/// i don't have the VB files so i can't test,

[nals]

rexzooly ,, sorry I have exported and attached again

TimeSurfer , I m using Win XP pro

[TimeSurfer]

are you using xp home or pro. i believe this script is for build 2600 which is pro. ill look over the apz you provided and get back with you in a moment.

[rexzooly]

TimeSurfer
I did that but not working :(

attached the file

export the file by saving your file then clicking export this will export it as
a APZ thanks :yes

[nals]

TimeSurfer
I did that but not working :(

attached the file

[TimeSurfer]

Here you go nals,
just put the following function in your global functions, and make sure the changeXPProductKey.vbs is located in your projects docs folder. Then just call the function as normal. [feel free to modify it if you need to.]

function ChangeXPKey()
 keyinput = Input.GetText("Input1");
 File.Run("AutoPlay\\Docs\\changeXPProductKey.vbs", keyinput, "", SW_MINIMIZE, false);
end

[nals]

ShadowUK a sample would be good

[ShadowUK]

yes it runs the vbs file but what i meant was how to change the key in vbs file with input object or dialog input ???

Well, Use File.Run with arguments, like Input.GetText or str = Dialog.Input.

[GoOgLe]

yes it runs the vbs file but what i meant was how to change the key in vbs file with input object or dialog input ???

[ShadowUK]

how can i change the key in vbs from ams ? maybe a dialog input or something to change it...

File.Open ?

[GoOgLe]

While were on the subject ...
(vbScript)

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

Usage : save it in a textfile with .VBS extension and then run it like a commandline program.

how can i change the key in vbs from ams ? maybe a dialog input or something to change it...

[Bruce]

I would love to see the same thing for emails (with permission of course)

[clueless]

While were on the subject ...
(vbScript)

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

Usage : save it in a textfile with .VBS extension and then run it like a commandline program.

[RizlaUK]

RizlaUK your a lifesaver, Thank you

no problem nals

They help to all AMS users Always.

yup...if i had a penny for every pice of code iv posted i'd have a full £5 by now......lol