Dim wshnet As Object
Dim UserName As String
Dim UserDomain1 As String
Dim objUser As Object
    Set wshnet = CreateObject("WScript.Network")
    UserName = wshnet.UserName
    UserDomain1 = wshnet.UserDomain
    Set objUser = GetObject("WinNT://" & UserDomain1 & "/" & UserName & ",user")
    
    GetUserFullName2 = objUser.FullName