More than 5 years have passed since last update.

windows OS の各プロダクト ID 取得

Last updated at 2016-12-06Posted at 2016-12-06

OS 自体のプロダクトID

自作する場合

拡張子を.vbsで保存
ダブルクリック

Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))

Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = "-" & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
End Function

windows 標準機能を利用する場合

> slmgr /dlv all

プロダクトキー取得アプリ

ProduKey

参考

You get articles that match your needs
You can efficiently read back useful information
You can use dark theme

What you can do with signing up