pknaz,
As long as your server has ADSI (WinNT 4 with DSClient or Win2000) then try the code below.
Function getFullName()
dim oUser
UserNTLogon = Request.ServerVariables("LOGON_USER")
UserNTLogon = replace(UserNTLogon, "\", "/")
Set oUser=GetObject("WinNT://"+UserNTLogon)
UserNTLogon = oUser.FullName
getFullName = Trim(UserNTLogon)
End Function
It's not quite the same as Snitz (it from my own ADSI libary) but it does the job well enough 
.
This code does the same job with the NTID passed as a parameter.
Function getFullName1(UserNTLogon)
dim oUser
UserNTLogon = replace(UserNTLogon, "\", "/")
Set oUser=GetObject("WinNT://"+UserNTLogon)
UserNTLogon = oUser.FullName
getFullName1 = Trim(UserNTLogon)
End Function
Topic Locked
Posted - 07 August 2002 : 18:24:59
