Windows のログイン名を得る

対象バージョン : 97, 2000, 2002, 2003, 2007
最終更新日 : 2007/02/12 ( オリジナル作成日：1996/12/08 )

概　要

　Windows を開く時に入力するログイン名を得る方法です。

手　順　

　次のユーザー定義関数を作成します。

●宣言
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
    (ByVal lpBuffer As String, nSize As Long) As Long


●プロシージャ
Public Function GetLoginName()
Dim strLoginName As String * 255
Dim lngLen As Long
Dim lngRet As Long
strLoginName = String(255, vbNullChar)
lngLen = 255
lngRet = GetUserName(strLoginName, lngLen)
If lngRet Then
    GetLoginName = Left(strLoginName, InStr(1, strLoginName, vbNullChar, vbBinaryCompare) - 1)
Else
    MsgBox "ログイン名取得に失敗しました"
End If
End Function

●改訂履歴

• 1999/11/23 ulen には、vbNullChar を含めたバイト数が返されるので、1 を引くように修正。
  Windows NT4 での動作を確認。
• 2001/06/10 Windows のバージョン表記を削除。変数名変更。ログイン名の切り出しに vbNullChar で InStr する方法に変更。
• 2003/05/22 strLoginName の綴りを訂正。

目次へ戻る