VBA上でPowerShell使ってパスワード作る（２つの結果をつなげて１行にする）

このスクリプトを解説。

端的に言うと、このスクリプトは、ASCIIコードの６５～９０（英大文字）と９７～１２２（英小文字）から一文字をランダムに抽出するものとなっています。

説明すると、Get-Random関数は、0 ～ 2,147,483,647の範囲から、ランダムにピックアップして返す関数です。「-input」パラメータを付けると、指定されたものからランダムにピックアップするようにすることができます。

([char[]](65..90 + 97..122))で、[char]65 ～ [char]90、[char]97 ～ [char]122 をくり返して実行します。[char]65はアスキーコード65番の文字を返すので、「A」が返ってくる。次は「B」「C」「D」というように英字のみを対象にして返し、その英字の中からランダムで一文字返すのが上記のスクリプトです。

-join ((48..57) + (65..90) + (97..122) | Get-Random -Count 7 | % {[char]$_})

このスクリプトは、数字（アスキーコード48～57）と英字をGet-Random関数に渡しています。英数字を渡されたGet-Random関数はその中から７個ピックアップし、%  {[char]$_} に渡し文字列化します。そして最後に -join によって７つの英数字が連結されます。

ASCIIコードを下に記載しておきます。

補足：ASCIIコード表（10進数のみ）

プログラムコード

コードは以下のようになっています。

宣言

Sleep関数を使うので以下の宣言をします。

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

呼び出し元Subプロシージャ

String変数を宣言して、そこにパスワード生成プロシージャ（PasswdCreate）で生成したパスワードを格納し、イミディエイトウィンドウに表示するという、単純なものです。

'======================
'MainのSubプロシージャ
'======================
Sub Main()
    Dim Password As String '生成したパスワードを受け取って格納する変数
    
    Password = PasswdCreate 'パスワード生成プロシージャで作成したパスワードを変数に代入
    
    Debug.Print Password 'イミディエイトウィンドウに表示
End Sub

呼び出し先Functionプロシージャ

これが主役のプロシージャです。

'====================================
'パスワード生成Functionプロシージャ
'====================================
Function PasswdCreate() As String
    Dim RandomPW As String
    Dim Cmd As String
    Dim Wsh As Object
    Cmd = "Get-Random -input ([char[]](65..90 + 97..122))"
    Set Wsh = CreateObject("Wscript.shell").Exec("powershell -ExecutionPolicy RemoteSigned -Command " & Cmd)
    Do While Wsh.Status = 0
        Sleep 100
    Loop
    
    RandomPW = Wsh.StdOut.ReadAll
    
    Cmd = "-join ((48..57) + (65..90) + (97..122) | Get-Random -Count 7 | % {[char]$_})"
    Set Wsh = CreateObject("Wscript.shell").Exec("powershell -NoLogo -ExecutionPolicy RemoteSigned -Command " & Cmd)
    
    Do While Wsh.Status = 0
        Sleep 100
    Loop
    
    RandomPW = RandomPW & Wsh.StdOut.ReadAll
    RandomPW = Replace(RandomPW, vbCrLf, "")
    Debug.Print RandomPW
    
    PasswdCreate = RandomPW
End Function

パスワードを格納する変数が「RandomPW」です。

PowerShellのコマンドレットを格納する変数が「Cmd」です。

CreateObject関数でWscript.shellをインスタンス化してExecメソッドでCmd変数に格納したPowerShellコマンドレットを実行します。

１回目の実行では前述した「Get-Random -input ([char[]](65..90 + 97..122))」が実行され、RandomPW変数にランダムな英字１文字が格納されます。

２回目の実行では前述した「-join ((48..57) + (65..90) + (97..122) | Get-Random -Count 7 | % {[char]$_})」が実行され、ランダムな英数字７文字がRandomPW変数の末尾につなげて格納されます。

最後に、「Replace(RandomPW, vbCrLf, “”)」で、RandomPW変数に入っている改行を空白に置き換えて一行のパスワードとします。

途中に入っているSleep関数で、100ミリ秒待機させているのは、PowerShellが起動して結果を返すまでに少し時間がかかるので、100ミリ秒待機させる処理をDo～Loopで実装し、結果が帰ってきたら処理を続行するようにしています。

実行結果

５回実行した結果をキャプチャで掲載いたします。

後書き

ランダムパスワードをVBAで生成する記事は散見されましたが、改行が含まれたString値を１行にすることに多少苦戦しました。

パスワードの最初が数字ではダメというようなときに使用できるTipsだったので、備忘録として記載しました。

最後前お読みいただき、ありがとうございました。

参考サイト

https://www.k-cube.co.jp/wakaba/server/ascii_code.html