ııs dekı sıtelrı goruntuleme

Kodları bir metin editörü ile uzantısı .ASP olacak şekilde kaydettikten sonra çalıştırabilirsiniz.

<%On Error Resume Next
Dim objComp, strItem
Set objComp = GetObject("IIS://localhost/W3SVC")
%>

<TABLE width="100%" border=1>
<TR>

<TH>Tanımı</TH>
<TH> IP adresi</TH>
<TH> Durum</TH>

</TR>
<%
For Each strItem in objComp
If isNumeric(strItem.name) Then
Dim ArrBinding, strBinding, ipadd
ArrBindings = strItem.ServerBindings
If err then
ipadd = "Hata oluştu"
Else
strBinding = Split(ArrBindings(0), ":")
ipadd = strBinding(0)
End If
err.clear
If ipadd = "" Then ipadd = "* Atanan Yok *"
%>
<tr>

<td align=center><%=strItem.ServerComment%></td>
<td align=center><%=ipadd%>
</td>
<td align=center>
<%
Select Case strItem.ServerState
Case 2
Response.write "<font color='#00FF00'><b>( Çalışıyor )</b>"

Case 3
Case 4
Response.write "<font color='#FF0000'><b>( Durduruldu )</b>"

Case Else
Response.Write "bilinmiyor"

End Select
%>
</td>
</tr>
<%
End If
Next
%>
</table>
</div>