List of Windows User in a Network Server

See more:

VB

Dim de As New DirectoryEntry()
            Dim lboolUserExists As Boolean = False
            de.Path = "WinNT://" + paramComputerName
            For Each d As DirectoryEntry In de.Children()
                'If d.SchemaClassName = "Computer" Then MsgBox(d.Name)
                If d.SchemaClassName = "User" Then
                    If d.Name = USER_NAME Then
                        lboolUserExists = True
                        Exit For
                    End If
                End If
            Next
            Return lboolUserExists

The above function does not always work for a Network Server and hence I am unable to get a list of Windows users. Please suggest me some solution.

Madhu