TopPicLogo TopPicText

Имя пользователя вошедшего в систему

Public Function SystemUserName() As String
'возвращает имя пользователя вошедшего в систему
'--------------------------------------------------------------------------
Dim wsnet As Object
On Error GoTo SystemUserName_Err
     Set wsnet = CreateObject("wscript.network")
    SystemUserName = wsnet.UserName

SystemUserName_Bye:
    Exit Function

SystemUserName_Err:
    MsgBox "Ошибка " & Err.Number & vbCrLf & Err.Description & vbCrLf & "в процедуре: SystemUserName", vbCritical, "Error in module mod00Test"
    Resume SystemUserName_Bye
End Function

Назад ToTop
L.E. 02.08.2016
Рейтинг@Mail.ru