Excel/VBAでユーザー名とコンピュータ名を取得する方法

2019/06/26

Excel/VBAでパソコンのユーザー名とコンピュータ名を取得する方法です。

Sub Sample()
  Dim obj As Object
  Set obj = CreateObject("WScript.Network")

  MsgBox "ユーザー名： " & obj.UserName & vbCrLf _
          & "コンピュータ名： " & obj.ComputerName

  Set obj = Nothing
End Sub

このコードを実行するとこんな風にMessageBoxでユーザー名とコンピュータ名が表示されます。

- Excel, VBA