Tips: VBScript: Get Full NT User Name using VBScript

Set oNetwork = CreateObject("WScript.Network")
sDomain = "test"
sUser = "johri"
sADSPath= sDomain & "/" & sUser
Set oUser = GetObject("WinNT://" & sADSPath & ",user")
WScript.Echo oUser.FullName