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

[Tota]

Нужен bat-file или команда (скрипт) для вывода информации про ключ активации а также его код (ХХХХХ-ХХХХХ-ХХХХХ-ХХХХХ-ХХХХХ).

[Iska]

Tota, воспользуйтесь поиском по разделу.

[Dragokas]

Вариант через 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