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

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