VBA‎ > ‎

VBA code to detect windows user id

Here's the code:
Public Function GetLDAPUserName() As String
Dim SI, colItems As Variant
Dim pos As Integer

On Error GoTo tryalternate
Set SI = CreateObject("ADSystemInfo")
pos = InStr(SI.UserName, ",")
GetLDAPUserName = Mid(SI.UserName, 4, pos - 4)
On Error GoTo 0
Exit Function
Set SI = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = SI.ExecQuery("Select * From Win32_ComputerSystem")
For Each objItem In colItems
    GetLDAPUserName = objItem.UserName
On Error GoTo 0
End Function