Option Compare Database
Option Explicit
Function Userlist() As Boolean
Dim cn As Connection
Dim rs As New Recordset
Set cn = CurrentProject.Connection
Set rs = cn.OpenSchema(adSchemaProviderSpecific, , „{947bb102-5d43-11d1-bdbf-00c04fb92675}“)
Debug.Print ‚Leerzeile
While Not rs.EOF ‚Feldinhalte ausgeben
Debug.Print „Rechner: “ & rs.Fields(0).Value
Debug.Print „User: “ & rs.Fields(1).Value
Debug.Print String$(50, „-„)
rs.MoveNext
Wend
End Function
Function UserListAsString() As String
Dim cnn As ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strListe As String
Set cnn = CurrentProject.Connection
Set rs = cnn.OpenSchema(adSchemaProviderSpecific, , _
„{947BB102-5D43-11D1-BDBF-00C04FB92675}“)
strListe = „“
While Not rs.EOF ‚Feldinhalte ausgeben
strListe = strListe & _
VBAStr(rs.Fields(1).Value) & _
“ (“ & _
VBAStr(rs.Fields(0).Value) & „);“
rs.MoveNext
Wend
UserListAsString = Left$(strListe, Len(strListe) – 1)
End Function
Function VBAStr(aStr As String) As String
VBAStr = Left$(aStr, InStr(aStr, Chr$(0)) – 1)
End Function