ユーザー名を取得する
次のUserName関数を呼び出すことによりユーザー名を取得できる。
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long |
Private
Function UserName()
As String Dim Name As String Name = Space(255) Call GetUserName(Name, Len(Name)) UserName = Left(Name, InStr(1, Name, Chr(0)) - 1) End Function |
Microsoft社公式 API関数 GetUserNameの解説 を見る
VB.NET2002以降ではユーザー名を取得するを参照