非IT企業に勤める中年サラリーマンのIT日記

非IT企業でしかもITとは全く関係ない部署にいる中年エンジニア。唯一の趣味がプログラミングという”自称”プログラマー。

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