[Creat0R]

На работе использую это:

Код:

$objWMIService = ObjGet('winmgmts:\\' & @ComputerName & '\root\CIMV2')
$colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_UserAccount WHERE Name = "' & @UserName & '"', 'WQL', 0x10 + 0x20)

If IsObj($colItems) Then
    For $objItem In $colItems
        $sFullName = $objItem.FullName

        If $sFullName <> '' Then
            MsgBox(64, 'Title', $sFullName & ' (' & @UserName & ')')
        EndIf
    Next
EndIf

А вообще для AD есть библиотека: Active Directory UDF