ACCESSへのログインUserNameの取得

Question

ACCESS＿DBとテーブルリンクをとり、ネットワークを介して複数人でシステム運用をしております。

以前は、ACCESS２００３（OSはXP)で運用しておりましたが、Windows７導入とともに、ACCESS２０１０、シンクライアント化への運用変更を随時実施しております。

以前は、以下のモジュールを実行し、イミディエイト ウィンドウでUserNameを取得できましたが、シンクライアント化に伴いComputerNameになり、UserNameが取得できなくなりました。

UseｒNameを取得する方法をご教授ください。

宜しくお願い致します。

【モジュール】

Sub ShowUserRosterMultipleUsers()

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim i, j As Long

Set cn = CurrentProject.Connection

' The user roster is exposed as a provider-specific schema rowset

' in the Jet 4.0 OLE DB provider. You have to use a GUID to

' reference the schema, as provider-specific schemas are not

' listed in ADO's type library for schema rowsets

Set rs = cn.OpenSchema(adSchemaProviderSpecific, _

, "{947bb102-5d43-11d1-bdbf-00c04fb92675}")

'Output the list of all users in the current database.

Debug.Print rs.Fields(0).name, "", rs.Fields(1).name, _

"", rs.Fields(2).name, rs.Fields(3).name

While Not rs.EOF

Debug.Print rs.Fields(0), rs.Fields(1), _

rs.Fields(2), rs.Fields(3)

rs.MoveNext

Wend

End Sub

【イミディエイト ウィンドウの表示】

ShowUserRosterMultipleUsers

COMPUTER_NAME LOGIN_NAME CONNECTED SUSPECT_STATE

KM13A09TKC00304 Admin True Null  →シンクライアントAccess2010  

KM13A13TKC00101 Admin True Null　→シンクライアントAccess2010

KM13A16TKC00202 Admin True Null　→シンクライアントAccess2010

MI-IWASAKI Admin True Null　　　　　　→Access2003のPC

＊＊モデレーター注

この投稿は「ディスカッション」に投稿されましたが、内容から判断して「質問」に変更させていただきました。

Answer 1

MukkuMukuです。

ユーザーレベル セキュリティについて

まず、2007-2013形式の Access ファイルではサポートされません

そして、Access 2010 では、既定で %appdata%\Microsoft\Access\System.mdw を使用してしまうから、コマンドラインスイッチで指定することが必要になりますが、ワークグループ情報ファイルで管理されるユーザ情報は取得できます。

Answer 2

ACCESS_DBにログインしている全てのLOGIN＿NAMEをAdminではなくユーザ名で知る方法を教えてほしいです。

よろしくお願いいたします。

Answer 3

MukkuMukuです。

ユーザー レベル セキュリティ の ログイン名ということですか？

Environ("USERNAME")？ UserNameとは何を指しています？

Microsoft Office 2000/Visual Basic プログラマーズ ガイド：ユーザーの認識

ちょっと古い情報ですが以前からある方法なので何かが変わったという感じはしませんが。

• シンクライアントだからという話
• JET から ACE に変わったからという話

どっちの問題とするべきなのでしょう。