<HTML>
<BODY>

<% 'List all machines visible from the local server with all properties. %>
<% Set AU = Server.CreateObject("Persits.AspUser") %>

<h1>Server List</h1>

<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=2>
<TH>Server</TH>
<TH>IsSQLServer</TH>
<TH>IsPDC</TH>
<TH>IsBDC</TH>
<TH>IsTimeSource</TH>
<TH>IsAFP</TH>
<TH>IsNovell</TH>
<TH>IsDomainMember</TH>
<TH>IsLocalListOnly</TH>
<TH>IsPrint</TH>
<TH>IsDialin</TH>
<TH>IsXenix</TH>
<TH>IsMFPN</TH>
<TH>IsNT</TH>
<TH>IsWFW</TH>
<TH>IsNTServer</TH>
<TH>IsPotentialBrowser</TH>
<TH>IsBackupBrowser</TH>
<TH>IsMasterBrowser</TH>
<TH>IsDomainMasterBrowser</TH>
<TH>IsDomainEnum</TH>
<TH>IsWindows</TH><TR>
<% For Each Srv in AU.Servers %>
<TD><% = Srv %></TD>
<TD><% If Srv.IsSQLServer Then Response.Write "X"%> </TD>
<TD><% If Srv.IsPDC Then Response.Write "X"%> </TD>
<TD><% If Srv.IsBDC Then Response.Write "X"%> </TD>
<TD><% If Srv.IsTimeSource Then Response.Write "X"%> </TD>
<TD><% If Srv.IsAFP Then Response.Write "X"%> </TD>
<TD><% If Srv.IsNovell Then Response.Write "X"%> </TD>
<TD><% If Srv.IsDomainMember Then Response.Write "X"%> </TD>
<TD><% If Srv.IsLocalListOnly Then Response.Write "X"%> </TD>
<TD><% If Srv.IsPrint Then Response.Write "X"%> </TD>
<TD><% If Srv.IsDialin Then Response.Write "X"%> </TD>
<TD><% If Srv.IsXenix Then Response.Write "X"%> </TD>
<TD><% If Srv.IsMFPN Then Response.Write "X"%> </TD>
<TD><% If Srv.IsNT Then Response.Write "X"%> </TD>
<TD><% If Srv.IsWFW Then Response.Write "X"%> </TD>
<TD><% If Srv.IsNTServer Then Response.Write "X"%> </TD>
<TD><% If Srv.IsPotentialBrowser Then Response.Write "X"%> </TD>
<TD><% If Srv.IsBackupBrowser Then Response.Write "X"%> </TD>
<TD><% If Srv.IsMasterBrowser Then Response.Write "X"%> </TD>
<TD><% If Srv.IsDomainMasterBrowser Then Response.Write "X"%> </TD>
<TD><% If Srv.IsDomainEnum Then Response.Write "X"%> </TD>
<TD><% If Srv.IsWindows Then Response.Write "X"%> </TD>
<TR>
<% Next %>
</TABLE>

</BODY>
</HTML>