Access数据库要获取以后用户衔接数

Access数据库要获取以后用户衔接数

　　Access数据库要获取以后用户衔接数，可能有以下几种思绪：
　　
　　第一：间接看ldb文件，有几行就有几个衔接
　　
　　格式根本上是
　　
　　hostname workgroupUserId
　　
　　第二：用vbscript
　　
　　有两段代码可能参考：
　　
　　Microsoft:
　　
　　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 Jet4.0OLE 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,_
　　
　　While Not rs.EOF
　　
　　Debug.Print rs.Fields(0),rs.Fields(1),_
　　
　　rs.Fields(2),rs.Fields(3)
　　
　　rs.MoveNext
　　
　　Wend
　　
　　End Sub
　　
　　Access Web:
　　
　　' This code was originally written by Dev Ashish.
　　
　　' It is not to be altered or distributed,
　　
　　' except as part of an application.
　　
　　' You are free to use it in any application,
　　
　　' provided the copyright notice is left unchanged.
　　
　　'
　　
　　' Code Courtesy of
　　
　　' Dev Ashish
　　
　　'
　　
　　Private Declare Function apiGetUserName Lib"advapi32.dll" Alias_
　　
　　Function fOSUserName()As String
　　
　　' Returns the network login name
　　
　　Dim lngLen As Long,lngX As Long
　　
　　Dim strUserName As String
　　
　　strUserName=String$(254,0)
　　
　　lngLen=255
　　
　　lngX=apiGetUserName(strUserName,lngLen)
　　
　　If(lngX>0)Then
　　
　　fOSUserName=Left$(strUserName,lngLen-1)
　　
　　Else
　　
　　fOSUserName=vbNullString
　　
　　End If
　　
　　End Function
　　
　　'********************Code End**************************
　　
　　' This code was originally written by Dev Ashish.
　　
　　' It is not to be altered or distributed,
　　
　　' except as part of an application.
　　
　　' You are free to use it in any application,
　　
　　' provided the copyright notice is left unchanged.
　　
　　'
　　
　　' Code Courtesy of
　　
　　' Dev Ashish
　　
　　'
　　
　　Private Declare Function apiGetUserName Lib"advapi32.dll" Alias_
　　
　　Function fOSUserName()As String
　　
　　' Returns the network login name
　　
　　Dim lngLen As Long,lngX As Long
　　
　　Dim strUserName As String
　　
　　strUserName=String$(254,0)
　　
　　lngLen=255
　　
　　lngX=apiGetUserName(strUserName,lngLen)
　　
　　If(lngX>0)Then
　　
　　fOSUserName=Left$(strUserName,lngLen-1)
　　
　　Else
　　
　　fOSUserName=vbNullString
　　
　　End If
　　
　　End Function