ユーザ名、ドメイン名、コンピュータ名を取得する。

VBAでユーザ名、ドメイン名、コンピュータ名を取得するには、WshNetworkオブジェクトを利用して取得することができます。
各情報はWshNetworkオブジェクトのプロパティから取得します。

Sub getUserEtc()

    'WshNetworkオブジェクト
    Dim oNW As Object
    Set oNW = CreateObject("WScript.Network")
     
    'ログインユーザ名の取得
    Debug.Print "UserName : " & oNW.UserName
    
    'ドメイン名
    Debug.Print "UserDomain : " & oNW.UserDomain
    
    'コンピュータ名
    Debug.Print "ComputerName : " & oNW.ComputerName

End Sub