Bruger info fra AD users

Hey,

Jeg skal hente brugerinfo på alle de brugere som er på min DC(MS Windows 2003 server).

Men jeg kan kun hente displayName, Description og logonName. Det jeg godt vil have ud er også:
1.LastName
2.FirstName
3.Email
4.Alias

--------------------------------
<%
strNTgroup = "testGruppe"
strServerName = "localhost"

Function ShowUsers(NtGroup, ServerName)
  Set Group = GetObject("WinNT://" & ServerName & "/" & NtGroup)

  For Each Member in Group.Members
      On Error Resume Next
      If Member.Class = "User" Then
        writeUsers = writeUsers &"Logon navn: <b>"& Member.Name &"</b><br>"
        writeUsers = writeUsers &"Navn: "& Member.FullName &"<br>"
        writeUsers = writeUsers &"Beskrivelse: "& Member.Description &"<br>"
        writeUsers = writeUsers &"<p>"
      End If
  Next

  If Len(writeUsers) = 0 Then
      writeUsers = "<p>Der er ingen brugere i denne group</p>"
  End If

  ShowUsers = writeUsers
End Function

Response.Write(ShowUsers(strNTgroup, StrServerName))
%>
--------------------------------

På forhånd tak.