Windows にログインする際のアカウントを取得する

Option Compare Database

Declare Function GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal strBuffer As String, lngSize As Long) As Long

Public Function GetLogg() As String
    Dim strName As String * 255
    Dim lngL As Long
    lngL = 255
    strName = String(lngL, vbNullChar)
    If GetUserName(strName, lngL) Then
        GetLogg = Left(strName, InStr(1, strName, vbNullChar, vbBinaryCompare) - 1)
    Else
        GetLogg = "失敗"
    End If
End Function