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

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

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

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

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

   オプション明示。 Dim objshell、path、DigitalID、Result。 objshell = CreateObject（ "WScriptを設定します。 Shell "） 'レジストリキーパスを設定しますPath =" 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 = "Installed Key："＆ConvertToKey（DigitalID）ProductData = ProductName＆vbNewLine＆ProductID＆vbNewLine＆ProductKey 'ファイルに保存する場合はmessboxを表示します。 vbYes = MsgBox（ProductData＆vblf＆vblf＆ "ファイルに保存しますか？"、vbYesNo + vbQuestion、 "Windowsキー情報のバックアップ"）の場合、ProductDataを保存します。 終了する場合。 'バイナリを文字に変換するFunctionConvertToKey（Key）Const KeyOffset = 52 Dim isWin8、Maps、i、j、Current、KeyOutput、Last、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電流=キー（j + KeyOffset） +現在のキー（j + KeyOffset）=（現在\ 24）現在=現在のMod 24 j = j-1ループWhilej> = 0 i = i -1 KeyOutput = Mid（Maps、Current + 1、1）＆KeyOutput Last = 現在のループWhilei> = 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 = 挿入＆KeyOutput EndIf。 ConvertToKey = Mid（KeyOutput、1、5）＆ "-"＆Mid（KeyOutput、6、5）＆ "-"＆Mid（KeyOutput、11、5）＆ "-"＆Mid（KeyOutput、16、5）＆ 「-」＆ミッド （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 \ WindowsKeyInfo.txt" Set fso = CreateObject（ "Scripting。 FileSystemObject "）txt = fsoを設定します。 CreateTextFile（fName）txt。 書き込みラインデータtxt。 クローズエンド機能 
   

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

BackupWindowsKey.vbsファイルをダウンロードするには、ここをクリックしてください

このトリックをWindows7、Windows 8、Windows10でテストしました。 上記のすべてのオペレーティングシステムで問題なく動作します。 クレジット： ノンオンセンス@MDL.