mirror of
https://github.com/sstent/Scripts.git
synced 2026-01-26 15:12:27 +00:00
38 lines
942 B
Plaintext
38 lines
942 B
Plaintext
MachineName = "pnjmvp01"
|
|
IIsObjectPath = "IIS://" & MachineName & "/w3svc"
|
|
|
|
|
|
Set IISObject = GetObject(IIsObjectPath)
|
|
for each obj in IISObject
|
|
if (Obj.Class = "IIsWebServer") then
|
|
BindingPath = IIsObjectPath & "/" & Obj.Name
|
|
|
|
Set IIsObjectIP = GetObject(BindingPath)
|
|
wScript.Echo IISObjectIP.ServerComment & " ( W3SVC" & obj.Name & " ) "
|
|
|
|
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 |