ワンクリックバックアップwin7、win8、win10のアクティベーションコード

 誰もがシステムをアクティブにすることができますが一般的には、アップグレードがアクティブになる前にシステムが、一般的にマイクロソフトが一般的に記述することができますが何も気にしなかった、Win10の活性化状態を与えた。ただし、新規インストールを使用してからプロダクトキーを入力する方が、正当なユーザー、または正当なキーを持っているユーザー（少なくともそのキーはブロックされていない）に適している場合があります。手元の鍵に問題がないことを確認できたら、ITホームの方法を試してください。操作は非常に簡単です、Win7 /Win8.1 /Win10システムに適した、実行するためにダブルクリックして、.vbsフォーマット（ファイル名は自明です）でメモ帳などを使って以下のコードを保存するだけです。

上記のように、次のコードをテキストファイルに保存し、拡張子を.vbsに変更してダブルクリックします。

========================

ます。Option Explicit

薄暗いobjshell、パス、DigitalID

「に設定したレジストリキーのパス

パス="、

に設定objshell =のCreateObject（;; WScript.Shell""）;
結果HKLM \\ SOFTWARE \\マイクロソフト\\ Windowsの
NT \\ CurrentVersionの\\"

「レジストリキーの値

DigitalID = objshell.RegRead（パス&＃038;"は、DigitalProductID"）

薄暗い商品名、商品コード、のProductKey、ProductData

「のGet商品名、商品コード、ProductKeyを

商品名="システム名："&＃038; objshell.RegRead（パス&＃038;"商品名"）

商品コード="プロダクトID："&＃038; objshell.RegRead（パス&＃038;" [商品"）

のProductKey ="キーがインストールされている："&＃038; ConvertToKey（DigitalID）

ProductData =商品名&＃038; vbNewLine&＃038;のProductID&＃038; vbNewLine&＃038;のProductKey

「表示messboxを保存する場合、ファイル
に

vbYes = MsgBoxに（ProductData&＃038の場合、vblf&＃038; Vblf&"キーをファイルに保存しますか？&quoトン;、vbYesNo + vbQuestion、"のWindowsキー情報"もし

「バイナリは
を文字に変換します。

）、その後

保存ProductData

終了OSがある場合、関数ConvertToKeyは（キー）

のConst KeyOffset = 52

薄暗いisWin10、地図、I、J、現在、KeyOutput、最終、keypart1、

挿入[チェックWindowsの10

isWin10 =（キー（66）\\ 6）そして、1

キー（66）=（キー（66）と&＃038; HF7）または（（isWin10そして2）* 4 ）

I = 24

地図=" BCDFGHJKMPQRTVWXY2346789"

ドゥ

現在= 0

J = 14

Do

Current = Current * 256

Current = Key（j + KeyOffset）+ Current

Key（j + KeyOffset）=（Current \\ 24）< Br>

Current = Current Mod 24

j = j -1

jがループする間> = 0

i = i -1

KeyOutput =ミッド（地図、1 +現在、1）&＃038; KeyOutput

最後の現在の

WhileループI> =; = 0

（isWin10 = 1）場合は、

keypart1 =ミッド

インサート="（KeyOutput、2、最終）; N"

KeyOutput =置き換え（KeyOutput、keypart1、keypart1&＃038;インサート、2、1 、0）

もし0 =最終そしてKeyOutput =インサート&＃038; KeyOutputが

END IF
は、

ConvertToKey =ミッド（KeyOutput、1、5）&＃038;" - "&＃038;ミッド（KeyOutput、6、 5）&＃038;" - "&＃038;ミッド（KeyOutput、11、5）&＃038;" - "&＃038;ミッド（KeyOutput、16、5）&＃038;" - "&＃038;ミッド（KeyOutput、21 、5）

End Function

'データをファイルに保存する

機能Save（Data）

Dim fso、fName、txt、objshell、UserName

Set objshell = CreateObject（" wscript.shell"）

'現在のユーザー名を取得します。

UserName = objshell.ExpandEnvironmentStrings（"％UserName％"）< BR>

のデスクトップ
上のテキストファイルを作成します。

fNameを=" C：\\ Users \\ユーザー"&＃038;ユーザー名&＃038;" \\デスクトップ\\ Windowsのキーのバックアップの.txt"

= CreateObjectのFSO設定（" Scripting.FileSystemObjectオブジェクト"）

設定TXT = fso.CreateTextFile（fNameを）

txt.Writelineデータ

txt.Close

終了関数

===========================================コード、現在のシステムアクティベーションコードをバックアップすることができます