ГлавнаяMS ACCESS Имя пользователя, который подключился к серверу
Имя пользователя, который подключился к серверу
Автор Александр Гаман
30.07.2001 г.
Узнаем имя пользователя, который подключился к серверу ...
Option Compare Database
Declare Function intWNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal _
lpname As String, _
ByVal lpUserName As String, _
lpnLength As Long) _
As Long
Public Function WNetGetUser() As String
Dim res&
Dim tbuf As String
Dim BufferSize&
Dim lenName As Integer
tbuf = String$(256, 0)
BufferSize = Len(tbuf)
res = intWNetGetUser(vbNullString, tbuf, BufferSize) 'отсекаем нули от имени
lenName = InStr(tbuf, Chr(0)) - 1
tbuf = Left(tbuf, lenName)
WNetGetUser = tbuf
End Function
Коментарии (1)