・2018/06/08
Windows 7、Windows 8、Windows 8.1、Windows 10、Office等のプロダクトキーを調べる方法
(Windows 7、Windows 8、Windows 8.1、Windows 10、Office等のプロダクトキーを調べる方法)
Tags: [Windows], [無人インストール]
● Windows 7、Windows 8、Windows 8.1、Windows 10等のプロダクトキーを調べる方法
● ProduKeyアプリ(個人的にオススメのアプリ)
ProduKey - Recover lost product key (CD-Key) of Windows ... - NirSoft
※ ShowKeyPlusと一致。
● ShowKeyPlusアプリ
Superfly-Inc / ShowKeyPlus
ShowKeyPlus.zip
※ ProduKeyと一致。
●下 5桁のみ
slmgr.vbs /dlv
※ ProduKeyや ShowKeyPlusの 下 5桁と一致。
●マザーボードに埋め込まれている OEMキー
wmic path SoftwareLicensingService get OA3xOriginalProductKey
※ ProduKeyや ShowKeyPlusの BIOS OEM KEYと一致。
● Windows 10 Activation error 0x8007007B
Windows 10 Activation error 0x8007007B
GetWindowsProductKey.vbsのファイル名で保存してダブルクリック。
※ ProduKeyや ShowKeyPlusと一致。
GetWindowsProductKey.vbs
Option Explicit
Dim objshell,path,DigitalID, Result
Set objshell = CreateObject("WScript.Shell")
'Set registry key path
Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
'Registry key value
DigitalID = objshell.RegRead(Path & "DigitalProductId")
'Get ProductName, ProductID, ProductKey
Dim ProductName,ProductID,ProductKey,ProductData
ProductName = "Product Name: " & objshell.RegRead(Path & "ProductName")
ProductID = "Product ID: " & objshell.RegRead(Path & "ProductID")
ProductKey = "Installed Key: " & ConvertToKey(DigitalID)
ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey
'Show messbox if save to a file
If vbYes = MsgBox(ProductData & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "BackUp Windows Key Information") then
Save ProductData
End If
'Convert binary to chars
Function ConvertToKey(Key)
Const KeyOffset = 52
Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert
'Check if OS is Windows 8
isWin8 = (Key(66) \ 6) And 1
Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)
i = 24
Maps = "BCDFGHJKMPQRTVWXY2346789"
Do
Current= 0
j = 14
Do
Current = Current * 256
Current = Key(j + KeyOffset) + Current
Key(j + KeyOffset) = (Current \ 24)
Current = Current Mod 24
j = j -1
Loop While j >= 0
i = i -1
KeyOutput = Mid(Maps, Current+ 1, 1) & KeyOutput
Last = Current
Loop While i >= 0
keypart1 = Mid(KeyOutput, 2, Last)
insert = "N"
KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then KeyOutput = insert & KeyOutput
ConvertToKey = Mid(KeyOutput, 1, 5) & "-" & Mid(KeyOutput, 6, 5) & "-" & Mid(KeyOutput, 11, 5) & "-" & Mid(KeyOutput, 16, 5) & "-" & Mid(KeyOutput, 21, 5)
End Function
'Save data to a file
Function Save(Data)
Dim fso, fName, txt,objshell,UserName
Set objshell = CreateObject("wscript.shell")
'Get current user name
UserName = objshell.ExpandEnvironmentStrings("%UserName%")
'Create a text file on desktop
fName = "C:\Users\" & UserName & "\Desktop\WindowsKeyInfo.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.CreateTextFile(fName)
txt.Writeline Data
txt.Close
End Function
● retrieve product key - Microsoft
retrieve product key - Microsoft
DigitalProductId.vbsのファイル名で保存してダブルクリック。
※ GetWindowsProductKey.vbsとも異なる結果になった。(ProduKeyとも ShowKeyPlusとも一致しない)
DigitalProductId.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
Tags: [Windows], [無人インストール]
●関連するコンテンツ(この記事を読んだ人は、次の記事も読んでいます)
2020年 現行機種のほとんど全てのインテル製パソコンのグラフィックス ドライバーに脆弱性が有ります
Intel HD Graphics device driverをアップデートして脆弱性 INTEL-SA-00314に対応する、各 CPU毎のバージョンまとめ
【更新終了】Windows 10 November 2019 Update 1909 19H2 18363の Windowsアップデート情報まとめ
Windows 10 November 2019 1909の Windows Updateのまとめ
Intel NUC Kit NUC8I5BEH BOXNUC8I5BEHを買ってみた、Coffee Lake Core i5-8259U搭載、テレワークに最適な小型筐体
Intel NUC NUC8I5BEH Coffee Lake Core i5-8259U搭載、HDD、M2 SSD搭載可能で超高速 CPU
Panasonic レッツノート CF-NX4に Windows 10をクリーンインストールする&不明なデバイスのデバイスドライバ
Panasonic Let's note CF-NX4 CF-NX4EDHCSに Windows 10をインストールした時のデバイスドライバ一覧
hp Probook 430に Windows 10をクリーンインストールする&不明なデバイスのデバイスドライバ
hp Probook 430 G3 N6P79AVに Windows 10をインストールした時のデバイスドライバ一覧
hp Probook 450に Windows 10をクリーンインストールする&不明なデバイスのデバイスドライバ
hp Probook 450 G3 T9R66PTに Windows 10をインストールした時のデバイスドライバ一覧
hp Elitebook 840に Windows 10をクリーンインストールする&不明なデバイスのデバイスドライバ
hp Elitebook 840 G1 G4Z43ECに Windows 10をインストールした時のデバイスドライバ一覧
NEC VersaPro PC-VK25LCに Windows 10をクリーンインストールする&不明なデバイスのデバイスドライバ
NEC VersaPro VK25LC-K PC-VK25LCZDKに Windows 10をインストールした時のデバイスドライバ一覧
HYSTOU FMP03 中華ベアボーンに Win10をクリーンインストールする&不明なデバイスのデバイスドライバ
HYSTOU FMP03 Intel Skylake Core i3-6100U 中華ベアボーンに Windows 10のデバイスドライバ一覧
MoreFine M1s 中華スティック PCに Win10をクリーンインストールする&不明なデバイスのデバイスドライバ
MoreFine M1s Intel X5 Z8350 スティック PCに Windows 10をインストールした時のデバイスドライバ一覧
Cenovo KingKong V6W 中華 PCに Win10をクリーンインストールする&不明なデバイスのデバイスドライバ
Cenovo King Kong V6W Atom X5 Z8300 CAN PCに Windows 10をインストールした時のデバイスドライバ一覧
VOYO V1 N4200 中華 PCに Win10をクリーンインストールする&不明なデバイスのデバイスドライバ
VOYO V1 Apollo Lake N4200 VMAC mini PCに Windows 10をインストールした時のデバイスドライバ一覧
2020年対応 Windows 7や 8.1から Windows 10 April 2018 Updateへ無償で公式アップグレードする方法
2020年現在も Windows 7から Win10への無料アップグレードが可能です、Windows10Upgrade24074.exe
2020年 1月 14日 Windows 7のサポートが終了したので Windows 10 1709から更に 1909へ無償で公式アップグレードする方法
2020年現在も Windows 7から Win10 1909への無料アップグレードが可能です、Windows10Upgrade24074.exe
Windows 10を全自動で最後まで手間要らずでインストールする方法
autounattend.xmlの応答ファイルを使用して Windows 10を無人インストールする。大量展開時に便利
ここが変だよ Windows 10!Windows 10の不可解な挙動やバグの解決方法
Windows 10の変な挙動のまとめとその解決方法、不具合やバグを「仕様」と言い張るマイクソソフト
Windows 10の ISOを無料でダウンロードする方法、インストール DVD・USBを作成する方法
マイクロソフトの公式サイトから最新版の Windows 10のインストール ISOイメージをダウンロード
Windows 10 April 2018 Update Build 1803にマイナーバージョンの存在
MediaCreationToolでダウンロードした Windows.isoは微妙に更新されています
Windows 10をインストールする時にできる 500MBの「回復パーティション」を削除する方法
500MBの領域が勿体無いので Windows 10の回復パーティションを削除する手順(再インストール必要)
Windows Insider Programに参加して最新の Windows 10を入手する方法、17763.107が欲しい!!
Windows 10 October 2018 Update 1809 RS5の最新パッチを入手する為に Windows Insider Programに参加
Windows 10用の Spectre脆弱性対応の CPUマイクロコード更新プログラム KB4465065
Intel CPUの Spectreの脆弱性を修正するマイクロソフト Windows用 更新プログラム KB4465065
Intel CPUで有名な Meltdownと Spectreの脆弱性を InSpectreアプリでチェックする
Windows OS上で CPUのスペクターとメルトダウンの脆弱性をチェックできるアプリ InSpectre
【2023年対応】 Microsoft Visual C++ ランタイムライブラリ 再頒布可能パッケージのまとめ 2005~2022まで
Microsoft Visual C++ 2005、2008、2010、2012、2013、2015、2017、2019、2022の各バージョンの最新版 MSVC Runtime librariesのまとめ
Visual Studioの各バージョンと開発できる .NET Frameworkの各バージョンのまとめ
.Microsoft.NET Framework Developer Packの各バージョンのダウンロードまとめ。言語パック等
Microsoft Office 2019を無人インストール(自動インストール)する方法
インストールするコンポーネントを事前に設定する事で同一環境の構築が楽にできます MSオフィス 2019
[HOME]
|
[BACK]
リンクフリー(連絡不要、ただしトップページ以外は Web構成の変更で移動する場合があります)
Copyright (c)
2018 FREE WING,Y.Sakamoto
Powered by 猫屋敷工房 & HTML Generator
http://www.neko.ne.jp/~freewing/software/windows_office_product_key/