Windows 10、Windows 8、およびWindows7でプロダクトキーを表示する方法

Windowsのプロダクトキーを保存した場所を紛失したり忘れたりした場合は、解決策があります。今日は、単純なVBSスクリプトを使用して、Windows 10、Windows 8、またはWindows 7のインストール済みコピーのプロダクトキーを表示する方法を説明します。これは、PCにインストールされているOSからプロダクトキーを抽出する簡単なソリューションです。サードパーティのソフトウェアを使用する。さあ行こう。

実際、以前に投稿しました同様の解決策 PowerShellを使用しました。しかし、多くのユーザーはそれが彼らのために失敗すると不平を言った。 PowerShellでは、署名されていないコマンドレットを実行するために、追加のユーザースキルと追加の調整が必要になる場合があります。

vizio テレビの電源がオフになったりオンになったりする

PowerShellと比較すると、このVBScriptソリューションはほぼ完璧です。あなたがする必要があるのはただファイルをクリックすることです。に Windows10のプロダクトキーを表示する

メモ帳を開きます。

次のテキストをコピーしてメモ帳ウィンドウに貼り付けます

Option Explicit Dim objshell、path、DigitalID、Result Set objshell = CreateObject（ 'WScript.Shell'） 'レジストリキーパスを設定パス=' HKLM  SOFTWARE  Microsoft  Windows NT  CurrentVersion  ''レジストリキー値DigitalID = objshell.RegRead （Path＆ 'DigitalProductId'）Dim ProductName、ProductID、ProductKey、ProductData'Get ProductName、ProductID、ProductKey ProductName = 'Product Name：'＆objshell.RegRead（Path＆ 'ProductName'）ProductID = 'Product ID：'＆objshell。 RegRead（Path＆ 'ProductID'）ProductKey = 'インストールされたキー：'＆ConvertToKey（DigitalID）ProductData = ProductName＆vbNewLine＆ProductID＆vbNewLine＆ProductKey 'ファイルに保存する場合はmessboxを表示するIfvbYes = MsgBox（ProductData＆vblf＆vblf＆ 'ファイルに保存しますか？'、vbYesNo + vbQuestion、 'Windowsキー情報のバックアップ'）then Save ProductData End If 'バイナリをcharsに変換しますFunctionConvertToKey（Key）Const KeyOffset = 52 Dim isWin8、Maps、i、j、Current、KeyOutput 、最後に、keypart1、insert'OSがWindows8であるかどうかを確認します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 If（isWin8 = 1）Then keypart1 = Mid（KeyOutput、2、Last）insert = 'N' KeyOutput = Replace（KeyOutput、keypart1、keypart1＆insert、2、1、0）If Last = 0 Then KeyOutput = insert＆KeyOutput End If ConvertToKey = Mid（KeyOutput、1、5）＆ '-'＆Mid（KeyOutput、6、5）＆ '-'＆Mid（KeyOutput、11、5）＆ '-'＆Mid（ KeyOutput、16、5）＆ '-'＆Mid（KeyOutput、21、5）End Function 'データをファイルに保存するFunctionSave（Data）Dim fso、fName、txt、objshell、UserName Set objshell = CreateObject（' wscript。 shell '）'現在のユーザー名を取得UserName = objshell.ExpandEnvironmentStrings（ '％UserName％'） 'デスクトップにテキストファイルを作成fName =' C： Users  '＆UserName＆'  Desktop  WindowsKeyI nfo.txt'Set fso = CreateObject（ 'Scripting.FileSystemObject'）Set txt = fso.CreateTextFile（fName）txt.Writeline Data txt.Close End Function

上記のテキストをデスクトップの「.vbs」拡張子の付いたファイルに保存します。
ボーナスのヒント：ファイルを「.vbs」拡張子で正しく保存するために、「BackupWindowsKey.vbs」のように、二重引用符で囲んだ名前を入力できます。
次に、BackupWindowsKey.vbsファイルを開きます
出来上がり、あなたのプロダクトキーが画面に表示されます！