PDA

Показать полную графическую версию : [решено] Можно ли этот (.vbs) скрипт интегрировать в (.bat) скрипт?


ufooo000
30-12-2016, 21:12
Set WshShell = CreateObject("WScript.Shell")
regKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
DigitalProductId = WshShell.RegRead(regKey & "DigitalProductId")
WinProductName = "Windows Product Name: " & WshShell.RegRead(regKey & "ProductName") & vbNewLine
WinProductID = "Windows Product ID: " & WshShell.RegRead(regKey & "ProductID") & vbNewLine
WinProductKey = ConvertToKey(DigitalProductId)
strProductKey ="Windows Key: " & WinProductKey
WinProductID = Win8ProductName & WinProductID & strProductKey
MsgBox(WinProductKey)
MsgBox(WinProductID)
Function ConvertToKey(regKey)
Const KeyOffset = 52
isWin8 = (regKey(66) \ 6) And 1
regKey(66) = (regKey(66) And &HF7) Or ((isWin8 And 2) * 4)
j = 24
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
y = 14
Do
Cur = Cur * 256
Cur = regKey(y + KeyOffset) + Cur
regKey(y + KeyOffset) = (Cur \ 24)
Cur = Cur Mod 24
y = y -1
Loop While y >= 0
j = j -1
winKeyOutput = Mid(Chars, Cur + 1, 1) & winKeyOutput
Last = Cur
Loop While j >= 0
If (isWin = 1) Then
keypart1 = Mid(winKeyOutput, 2, Last)
insert = "N"
winKeyOutput = Replace(winKeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then winKeyOutput = insert & winKeyOutput
End If
a = Mid(winKeyOutput, 1, 5)
b = Mid(winKeyOutput, 6, 5)
c = Mid(winKeyOutput, 11, 5)
d = Mid(winKeyOutput, 16, 5)
e = Mid(winKeyOutput, 21, 5)
ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e
End Function

Iska
31-12-2016, 08:05
Какой «bat», и зачем «интегрировать»?

ufooo000
31-12-2016, 18:54
( ProductKey.bat ) - вот какой!
зачем «интегрировать »
Ради интереса.

greg zakharov
31-12-2016, 20:57
Ради интереса.Конечно можно, вот только смысл это делать, когда можно на одном командном языке написать декодор ProductKey.

ufooo000
31-12-2016, 23:11
когда можно на одном командном языке написать декодор ProductKey »
Можно и так- но я сам на бат не напишу.

Iska
01-01-2017, 09:32
ufooo000, всё сделано уже до нас.

CMD/BAT: получение ProductKey установленной Windows — CMD/BAT — Коллекция скриптов и идей — Серый форум (http://forum.script-coding.com/viewtopic.php?id=5197)
CMD/BAT - [решено] как узнать и сменить серийник XP из cmd ? (http://forum.oszone.net/post-1475745.html#post1475745)

ufooo000
01-01-2017, 10:23
Годится!




© OSzone.net 2001-2012