Получить текущее имя пользователя рабочей станции, зарегистрированное на главном компьютере

Вопрос:

У меня есть хост-машина, работающая под управлением Windows 7, и пользователи из входа в домашнюю сеть, используя подключение к удаленному рабочему столу Windows, и запускают некоторые приложения, я могу визуально видеть журнал, который вошел в систему под

Event Viewer->Windows Logs->Security->Audit Success->Details->Workstation name

Поскольку для подключения к удаленному рабочему столу разрешено только одно соединение, я хочу отобразить в базе данных доступа, кто является текущим пользователем, из контрольного журнала, чтобы пользователи знали, использует ли кто-нибудь в настоящее время хост-компьютер

Таким образом, в основном код VBA, чтобы захватить самую последнюю рабочую станцию, которая вошла в систему, особенно меня интересует ID события-4624

Я открыт для других предложений!

что я пробовал до сих пор?

Function Reachable(strComputer) As String  'Test Connectivty to computer
'On Error Resume Next
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objSWbemLocator.ConnectServer(strComputer, "root\cimv2", "username", "password")

Set colItems = objWMIService.ExecQuery _
("Select * from Win32_NetworkLoginProfile")

For Each objItem In colItems
Reachable = "Full Name: " & objItem.FullName

Next
End Function

Лучший ответ:

Будет ли это работать?

Dim sHostName As String

sHostName = Environ$("computername")