Архив форумов ЦИТФорума

[Stan]

Добрый день, уважаемые господа!

Подскажите пожалуйста, как средствами VB for Application (например из Access'а) получить из системы сетевое имя пользователя...

Буду очень благодарен за кусок кода

[Leha]

Ispolzuy funkziyu API GetUserName

Znayesh kak uzat" ?

[Stan]

Уважаемый Leha, спасибо за отклик...
Но хотелось бы получит кусок кода на VBA,
как эту API-функцию вызвать из Access'а

Заранее благодарю...

[Leha]

Soobshi o rezultatax
krolik7@rambler.ru

Option Explicit

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long

Private Function GetUName() As String

Dim lngRetVal As Long
Dim lpBuffer As String
Dim nSize As Long

lpBuffer = Space(255)
nSize = 254
lngRetVal = GetUserName(lpBuffer, nSize)

GetUName = "User Name = " + StripNullTerminator(lpBuffer)

End Function

Private Function StripNullTerminator(lpBuffer As String) As String

Dim idx As Integer

For idx = 1 To 255
If Asc(Mid(lpBuffer, idx, 1)) = Then
lpBuffer = Left(lpBuffer, idx - 1)
Exit For
End If
Next idx

StripNullTerminator = lpBuffer

End Function

Private Sub Form_Load()
Me.Caption = GetUName
End Sub

[Stan]

Уважаемый, Leha!
Огромное спасибо за помощь.
Stan