Windows licentie

[Debbie C]

Kan je op je computer opzoeken welke licentie van Windows erop staat? Zou moeten welke licentie op welke computer staat. Bestaat er eventueel een programma waarmee je dat via een computer kan opzoeken van alle computers op een netwerk? Ik vraag niet veel hoor LOL.

 

[crash]

Met Berlac Advisor kun je de licentie code op je eigen pc terug vinden:
http://www.belarc.com/free_download.html

 

[puppie]

key finder het is maar wat je zoekt.

 

[ZipPe]

Of het onderstaande scriptje werkt op alle systemen weet ik niet, denk dat het vanaf WinNT en hoger geen probleem zal zijn, mits je over voldoende rechten beschikt betreffende remote registry en externe toegang.
Maar daar je in de XP afdeling vraagt zal het wel niet zo'n vaart lopen.
Bv. Server 2003 zijn over het algemeen wat strakker in de policies en heb je kans dat je er niet in komt met dit scriptje maar van server naar client of client naar client (werkgroep) mag het geen probleem zijn. Ook moeten alle clients windows script host 5.6 draaien..

Onderstaande script plakken in kladblok en opslaan als GetKeyInfo.vbs script dubbelklikken dan verschijnt de inputbox daar geef je computernaam of IP op en klik OK, gevolgt door een Popup met CD Key Code van opgegeven computer..
:thumb:

(succesvol getest binnen werkgroep, dus als het niet lukt is het een rechten probleem en moet je het local doen of de rechten aanpassen)

Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = Inputbox ("Geef ComputerNaam of IP adres")
 
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
    strComputer & "\root\default:StdRegProv")
 
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"
strValueName = "DigitalProductId"
oReg.GetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath, _
    strValueName,strValue
    
    HexBuf = strValue

    
    For l = lBound(HexBuf) to uBound(HexBuf)
tmp=tmp & " "& Hex (HexBuf(l))
Next
StartOffset = 52
EndOffset =67
Dim Digits (24)

Digits (0) = "B" : Digits (1) = "C": Digits (2) = "D": Digits (3) = "F":
Digits (4) = "G": Digits (5) = "H": Digits (6) = "J": Digits (7) = "K":
Digits (8) = "M": Digits (9) = "P": Digits (10) = "Q": Digits (11) = "R":
Digits (12) = "T": Digits (13) = "V": Digits (14) = "W": Digits (15) = "X":
Digits (16) = "Y": Digits (17) = "2": Digits (18) = "3": Digits (19) = "4":
Digits (20) = "6" : Digits (21) = "7" : Digits (22) = "8": Digits (23) = "9"

dLen = 29
sLen = 15
Dim HexDigitalPID (15)
Dim Des (30)
For i = StartOffset to EndOffset
HexDigitalPID (i-StartOffset) = HexBuf(i)
tmp2=tmp2 & " "& Hex (HexDigitalPID(i-StartOffset))
next

KEYSTRING =""
for i=dLen-1 to 0 step -1
if ((i + 1) mod 6) = 0 then
Des (i) = "-"
KEYSTRING =KEYSTRING & "-"
else
HN = 0
    For N = (sLen -1) to 0 step -1
      Value = ( (HN *2^8 ) Or HexDigitalPID (N))
       HexDigitalPID (N) = Value \ 24
       HN    = (Value mod 24)

    next

Des(i) = Digits(HN)
KEYSTRING =KEYSTRING & Digits(HN)
end if
next
KEYSTRING2 = StrReverse (KEYSTRING)
WScript.Echo "Product Key van/is: " & Chr (10) & Chr (10) & strComputer & Chr (10) & Chr (10) & KEYSTRING2

:thumb: