ネットワークのユーザー名取得

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

概　要

　ネットワークのユーザー名を得る方法です。

手　順　

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

Declare Function zx_WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" _
    (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long

Function NetworkUserID () As String
 Dim szUser As String
 Dim szUserName As String
 Dim lpnBufferSize As Long
 Dim status As Long

 lpnBufferSize = 255
 szUserName = Space(lpnBufferSize + 1)
 status = zx_WNetGetUser(szUser, szUserName, lpnBufferSize)
 If status = 0 Then
     NetworkUserID = Left(szUserName, InStrB(szUserName, vbNullChar) - 1)
 Else
     NetworkUserID = "Failed !"
 End If
 End Function

補　足

 2000 で InStr 関数で正しく動作しない場合があるため、InStr から InStrB 関数に変更。

改訂履歴

• 1999/02/03 誤り訂正
• 1996/01/21 誤り訂正
• 1999/09/05 2.0 以前の記述を削除。
  　　　　　　　　2000 での Instr 関数の不具合により InstrB 関数に変更。
  　　　　　　　　Chr(0) から組み込み定数 vbNullChar に変更。
• 2001/06/10 2000 でも、インストール環境によっては InStr 関数が正しく動作する場合あり。
  

目次へ戻る