kode til at hente ens windows licenskode

http://www.magicaljellybean.com/keyfinder.shtml

Generer et VBS script inde bag ved når den skal extracte koden - denne ka' du måske sakse noget fra ?

Det er jo meget godt at det program kan finde den men jeg ønsker selv at kun finde de licens nummer.. og det er det jeg søger lidt kode hjælp til..

Kig i mappen
C:\WINDOWS\Temp\RarSFX0
imens [Keyfinder.exe] bliver brugt.
Der er en *.VBS fil som måske kunne være interessesant:
C:\WINDOWS\Temp\RarSFX0\chgxp.vbs

(Hvad endte denne tråd med?)

undskyld men har haft en del at se til skal nok lige se på det sender i dag.. og komme tilbage til dig.. men prima er du komme med et produkt jeg kan gå ud fra dog kan jeg ikke lige se det du mender. men ser på det sender i dag..!!!

jeg har nu side og rode lidt med den og kan bare ikke finde den fil du omtaler..
så det hjælper mig ikke sådan.. så hvis du har den kan du så ikke smide den op så alle kan se med ?

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

ON ERROR RESUME NEXT


if Wscript.arguments.count<1 then
  Wscript.echo "An error has occurred. Please email jellybean@magicaljellybean.com"
  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 "Your product key has been successfully updated. Please restart the Keyfinder to verify it."
  end if

  if err <> 0 then
      WScript.Echo "An error has occurred. This was probably caused by the keying of an invalid number. Please check it and try again."
      Err.Clear
  end if

Next
   

Hvis jeg IKKE indtaster noget...

Samme kode altid...

Der står også noget om

Software\Microsoft\Office\10.0\Registration\{90190406-6000-11D3-8CFE-0050048383C9}

i en anden *.TXT fil i omtalte mappe.

FØR du lukker Keyfinder kravl ned til mappen
C:\WINDOWS\Temp\RarSFX0\
Der ligger de...

Er lige prøvet på tre putter...

(Hvad endte denne tråd med?)

Ja jeg er desvære ikke fåde det løst sådan at jeg kan overføre data i vb.
men ja jeg børe nok give et par point..

Ping...

(Det var et [svar]...)

Læg selv et [svar] og la' os dele...