・ ログオンユーザー名を取得する（WIN32 APIを利用）

Windowsの ＡＰＩ を使ってログオンユーザー名を取得するには、

'*************************************************************************
'ログオンユーザー名の取得
'*************************************************************************
'宣言セクションへの記述
Declare Function getusername Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpbuffer As String, nSize As Long) As Long

'プロシージャーの記述
Sub get_u_name()

  Dim U_N_Buff As String
  Dim U_N_Size As Long
  U_N_Buff = Space(255)
  U_N_Size = 255
  U_name = "不明"

  On Error Resume Next
  getusername U_N_Buff, U_N_Size
  U_N_Buff = Trim(U_N_Buff)
  U_name = Left$(U_N_Buff, Len(U_N_Buff) - 1)
  On Error GoTo 0

  MsgBox "ログオンユーザー名：" & U_name

End Sub