bat'ник для вывода информации ключа активации Win 7

Вариант через VBS:
Код:
Const HKEY_LOCAL_MACHINE = &H80000002

 

Wscript.Echo sGetXPCDKey(InputBox("Введите имя компьютера: "))

 

Public Function sGetXPCDKey(strComputer)

On Error Resume Next

    Dim bDigitalProductID

    Dim bProductKey()

    Dim bKeyChars(24)

    Dim ilByte

    Dim nCur

    Dim sCDKey

    Dim ilKeyByte

    Dim ilBit

   

    ReDim Preserve bProductKey(14)   

 

    Set oReg=GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

 

    If(Err = 0) Then

    '====================================================================================

    ' Connect to computer Registry and retreve the Parent value

    '====================================================================================

 

    strKeyPath = "SOFTWARE\MICROSOFT\Windows NT\CurrentVersion"

    strValueName = "DigitalProductId"

 

    oReg.GetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

     bDigitalProductID = strValue

 

     For ilByte = 52 To 66

       bProductKey(ilByte - 52) = bDigitalProductID(ilByte)

     Next

 

     'Possible characters in the CD Key:

     bKeyChars(0) = Asc("B")

     bKeyChars(1) = Asc("C")

     bKeyChars(2) = Asc("D")

     bKeyChars(3) = Asc("F")

     bKeyChars(4) = Asc("G")

     bKeyChars(5) = Asc("H")

     bKeyChars(6) = Asc("J")

     bKeyChars(7) = Asc("K")

     bKeyChars(8) = Asc("M")

     bKeyChars(9) = Asc("P")

     bKeyChars(10) = Asc("Q")

     bKeyChars(11) = Asc("R")

     bKeyChars(12) = Asc("T")

     bKeyChars(13) = Asc("V")

     bKeyChars(14) = Asc("W")

     bKeyChars(15) = Asc("X")

     bKeyChars(16) = Asc("Y")

     bKeyChars(17) = Asc("2")

     bKeyChars(18) = Asc("3")

     bKeyChars(19) = Asc("4")

     bKeyChars(20) = Asc("6")

     bKeyChars(21) = Asc("7")

     bKeyChars(22) = Asc("8")

     bKeyChars(23) = Asc("9")

 

     For ilByte = 24 To 0 Step -1

       nCur = 0

       For ilKeyByte = 14 To 0 Step -1

         'Step through each byte in the Product Key

         nCur = nCur * 256 Xor bProductKey(ilKeyByte)

         bProductKey(ilKeyByte) = Int(nCur / 24)

         nCur = nCur Mod 24

       Next

 

       sCDKey = Chr(bKeyChars(nCur)) & sCDKey

       If ilByte Mod 5 = 0 And ilByte <> 0 Then sCDKey = "-" & sCDKey

     Next    

 

     sGetXPCDKey = sCDKey

 

 Else

 

     If(Err.Number = 70) Then

 

         sGetXPCDKey = "Access is Denied"

 

     ElseIf(Err.Number = 462) Then

 

         sGetXPCDKey = "Unavialable"

 

     ElseIf(Err.Number = 429) Then

 

         sGetXPCDKey = "ActiveX component Error"

 

     Else

 

         sGetXPCDKey = "Unknown(" & Err.Number & ")"

 

     End If

 

 End If      

 

End Function