Public Shared Function GetAccountNameFromSid(ByVal data As Byte()) As String Dim si As New SecurityIdentifier(data, 0) Dim szAccountName As String = si.Translate(GetType(NTAccount)).Value Return szAccountName End Function