ııs dekı sıtelrı goruntuleme

ııs dekı sıtelrı goruntulemeKodları bir metin editörü ile uzantısı .ASP olacak şekilde kaydettikten sonra çalıştırabilirsiniz.<%On Error Resume NextDim objComp, strItemSet objComp = GetObject("IIS://localhost/W3SVC")%>

<%For Each strItem in objCompIf isNumeric(strItem.name) ThenDim ArrBinding, strBinding, ipaddArrBindings = strItem.ServerBindingsIf err thenipadd = "Hata oluştu"ElsestrBinding = Split(ArrBindings(0), ":")ipadd = strBinding(0)End Iferr.clearIf ipadd = "" Then ipadd = "* Atanan Yok *"%><%End IfNext%>

Tanımı	IP adresi	Durum
<%=strItem.ServerComment%>	<%=ipadd%>	<%Select Case strItem.ServerStateCase 2Response.write "( Çalışıyor )"Case 3Case 4Response.write "( Durduruldu )"Case ElseResponse.Write "bilinmiyor"End Select%>