【VBA×WScript.Shell】VBAで一発取得！ユーザー名・PC名・ドメイン名を自動で表示する方法

WScript.Shell を使った 環境変数の取得テクニックです。

この記事では、VBAでローカルユーザー名／PC名／ドメイン名を一括取得するシンプルなマクロをご紹介します。

■　参照設定なしで使える！

CreateObjectでWScript.Shellを呼び出す

Dim wsh As Object
Set wsh = CreateObject("WScript.Shell")

■　参照設定ありで使える！

WScript.Shellを呼び出す

参照設定 → 「Windows Script Host Object Model」 を追加します。

Dim wsh As WshShell
Set wsh = New WshShell

例：ローカルユーザー名／PC名／ドメイン名をメッセージで表示

    Dim userName As String
    Dim pcName As String
    Dim domain As String
    
    userName = wsh.ExpandEnvironmentStrings("%USERNAME%")
    pcName = wsh.ExpandEnvironmentStrings("%COMPUTERNAME%")
    domain = wsh.ExpandEnvironmentStrings("%USERDOMAIN%")
    
    MsgBox "ユーザー名：" & userName & vbCrLf & _
           "PC名：" & pcName & vbCrLf & _
           "ドメイン名：" & domain, vbInformation, "システム情報"