''Скрипт определяет полное имя пользователя по логину 
set nw = WScript.CreateObject("WScript.Network")
username=nw.Username
set objuser = GetObject("WinNT://DomainName/" & username)
wscript.Echo(objuser.fullname)

''Где DomainName - имя домена

'Purpose:           To get locally or remotely Windows 2000 server
'           Active Directory users's account information
'           then write into a local text file
'Keywords:         WSH 5.5 or up, ADSI 2.5 installed on Win9x if you run it remotely
'Reviewed:         04/04/2002
'Comment:         This functions with a particular Active Directory Structure.  You
'           may need to modify the code to bind your Directory Object depending
'               on your organization Directory structure
'***********************************************************************************************

dim oContainer, objRoot, oOU, oGroup
dim strDomainCtl, strOU, strConnect, strtest
dim strMes, strFile,strLine
dim filesys, Writingfile

'Every LDAP server must have a root entry called the root DSE
set objRoot = GetObject("LDAP: //RootDSE")
strDomainCtl = objRoot.Get("defaultNamingContext")

strMes = "Please modify the location and the text file name that you want: "
strFile =  InputBox(strMes,"Folder and file name","C:\UserInfo.txt")
if strFile = "" then
  wscript.echo "You changed your mind - won't to run the program ?!"
  wscript.quit
else
  'wscript.echo strFile
  set filesys = WScript.CreateObject("Scripting.FileSystemObject")
  set Writingfile = filesys.OpenTextFile(strFile, 2 ,true)
  Writingfile.WriteLine(" CN " & "     Display Name     ")
  Writingfile.WriteBlankLines( 1 )

  'Get An Organization Unit Name that you want to get information
  strMes = "Please entry an Organization Unit Name: "
  strOU = InputBox(strMes,"Organization Unit Name","Legal")
  if strOU = "" then
    wscript.echo "You changed your mind - won't to run the program ?!"
    wscript.quit
  else
    strOU = "OU=" & strOU
    'wscript.echo strOU & " in " & strDomainCtl

    'for local or remote LDAP accessing
    strConnect = "LDAP://" & strOU & ", " & strDomainCtl
    'wscript.echo strConnect

    on error resume next
    set oContainer = GetObject(strConnect)
    if err <>  0  Then
     wscript.echo "Directory Object is not correctly bound for users !" & " Please check your Active Directory Structure."
     escript.quit
    else
      'find each object one by one in oContainer and put in the array
      For Each oOU In oContainer

        for each oUser In oOU
          if oUser.class = "user" then

           'wscript.echo oUser.samAccountName & ", " & oUser.displayName
           strLine = " " & oUser.samAccountName & "      " & oUser.displayName
           Writingfile.WriteLine(strLine)
           Writingfile.WriteBlankLines( 1 )

          end if
        next

       Next
      end if
  end if
end if
Writingfile.close
wscript.echo "Done"