<%@ Page %>
Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim Entry As System.DirectoryServices.DirectoryEntry
Try
Entry = New System.DirectoryServices.DirectoryEntry("WinNT://DomainName")
Catch
'Error message
Finally
Entry.Close()
End Try
End Sub