WindowsPCのライセンスキーを調べるスクリプト

WindowsPCのライセンスキーをGUIで調べるのが億劫だったため、コマンドを調べた。
しかし、書かれているコマンドでは結果が出力されない。さらに調べたところ、ライセンスキーを出力してくれる便利なスクリプトをGitHubで公開している方がいたので拝借。

ローカルで実行したところ無事にライセンスキーを確認できた。

ところがここでつまづく。
ついでにテキストファイルに書き出そうとして「はい」をクリックしたら以下のエラーが出た。

スクリプトのソースを読んだら、fNameという変数を格納する行の変数が、自分の環境に適合しなかったため実行できなかった旨のエラーであることが判明。
不細工だなと思いつつ、fNameの行を自分のフルパスにハードコードして再実行したところ無事に取得完了。

備忘録として差分のエビデンスを記載。

変更前

    fName = "C:\Users\" & UserName & "\Desktop\WindowsKeyInfo.txt"

変更後

    fName = "自分がファイルを生成したいファイルのフルパス名”