FilesExpand file tree

 master

/

iis_sites.vbs

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

38 lines (33 loc) · 942 Bytes

 master

/

iis_sites.vbs

Top

File metadata and controls

• Code
• Blame

38 lines (33 loc) · 942 Bytes

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

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