Sub ログインユーザー名を取得する()

    ログインユーザー名 = CreateObject("WScript.Network").UserName

    MsgBox ログインユーザー名

End Sub