2008-10-28 5 views

답변

2

이 스크립트를 시도 할 수 있습니다 :

MachineName = "localhost" 
IIsObjectPath = "IIS://" & MachineName & "/w3svc" 

WScript.Echo "Checking : " & IISObjectPath 

Set IIsObject = GetObject(IIsObjectPath) 
for each obj in IISObject 
    if (Obj.Class = "IIsWebServer") then 
     BindingPath = IIsObjectPath & "/" & Obj.Name 

     Set IIsObjectIP = GetObject(BindingPath) 
     wScript.Echo BindingPath & " - " & IISObjectIP.ServerComment 

     ValueList = IISObjectIP.Get("ServerBindings") 
       ValueString = "" 
     For ValueIndex = 0 To UBound(ValueList) 
      value = ValueList(ValueIndex) 
      Values = split(value, ":") 
      IP = values(0) 
      if (IP = "") then 
       IP = "(All Unassigned)" 
      end if 
      TCP = values(1) 
      if (TCP = "") then 
       TCP = "80" 
      end if 
      HostHeader = values(2) 

      if (HostHeader <> "") then 
        wScript.Echo " IP = " & IP & " TCP/IP Port = " & TCP & ", HostHeader = " & HostHeader 
      else 
        wScript.Echo " IP = " & IP & " TCP/IP Port = " & TCP 
      end if 
       Next          
     wScript.Echo "" 
     set IISObjectIP = Nothing 
    end if 
next 
set IISObject = Nothing 

(소스 www.iisfaq.com)

6

APPCMD에서 봐입니다.

%systemroot%\system32\inetsrv\APPCMD list sites 
:

예를 들어, 사용이 명령 줄을 시스템의 모든 사이트를 나열하려면

관련 문제