[AndyKZ]

Dim User
Dim UserName
Dim UserDomain
UserDomain = "IUBT"
UserName = "kazakovc"
Set User = GetObject ("WinNT://" & UserDomain & "/" & UserName & ",user"
MsgBox User.FullName