Visualizzare i siti presenti su un server con ADSI

di Daniele Bochicchio, in Classic ASP, ADSI, Admin,

ADSI permette di impostare e visualizzare molte proprietà relative ad IIS.
Una delle caratteristiche più utili è la possibilità di utilizzare uno script che mostra tutti i siti presenti su un particolare server.
Una funzionalità del genere può essere molto utile ad un amministratore, per avere via web una lista dei siti con il relativo stato ed eventualmente intervenire nel caso in cui uno di questi siti non fosse attivo.
Lo script seguente dunque non fa altro che mostrare una lista di siti attivi sul server corrente:

<%

Set objADSI = GetObject("IIS://localhost/W3SVC")

Response.Write ("Siti attivi sul server<UL>")

For Each Item in objADSI
  If isNumeric(Item.name) Then

    ' nome del sito
    Response.Write ("<li>" & Item.Name)
    ' descrizione
    Response.Write (" (" & Item.serverComment & ") Stato:")

    ' stato
    stato = Item.ServerState
    If stato = &H00000002 then
      Response.Write " Attivo"
    Elseif stato = &H00000004 then
      Response.Write " Fermo"
    Elseif stato = &H00000006 then
      Response.Write " In pausa"
    Else
      Response.Write (Item.ServerState)
    End if

  End If
    Next

Response.Write("</UL>")

%>

L'unica controindicazione è che questo script deve girare come Administrator, per il resto è davvero tutto molto semplice.

Commenti

Visualizza/aggiungi commenti

| Condividi su: Twitter, Facebook, LinkedIn

Per inserire un commento, devi avere un account.

Fai il login e torna a questa pagina, oppure registrati alla nostra community.

Approfondimenti

Nessuna risorsa collegata

I più letti di oggi