コーディングメモ

忘れっぽい自分に

【VBA】VBAでホスト名をとログインユーザー名取得する方法

1. サンプルソースコード

    Dim UserName As String
    Dim HostName As String
    
    Dim WshNetworkObject As Object
    Set WshNetworkObject = CreateObject("WScript.Network")
    
    UserName = WshNetworkObject.UserName
    HostName = WshNetworkObject.ComputerName
    
    MsgBox UserName
    MsgBox HostName

2.解説

2-1 WScript.Network"オブジェクトを使用します。

    Dim WshNetworkObject As Object
    Set WshNetworkObject = CreateObject("WScript.Network")

2-2 このオブジェクトのUserNameプロパティからログインユーザー名を取得します。

    UserName = WshNetworkObject.UserName

2-3 このオブジェクトのComputerNameプロパティからホスト名を取得します。

    HostName = WshNetworkObject.ComputerName

3. MSDN

https://msdn.microsoft.com/ja-jp/library/cc364454.aspx