mirror of
https://github.com/sstent/Scripts.git
synced 2026-01-26 15:12:27 +00:00
14 lines
496 B
Plaintext
14 lines
496 B
Plaintext
strComputer = "pnyweb02"
|
|
|
|
Set objWMIService = GetObject _
|
|
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
|
|
& strComputer & "\root\microsoftiisv2")
|
|
|
|
Set colItems = objWMIService.ExecQuery _
|
|
("Select * from IIsWebServerSetting")
|
|
|
|
For Each objItem in colItems
|
|
For i = 0 to Ubound(objItem.ServerBindings)
|
|
Wscript.Echo "" & objItem.ServerBindings(i).IP & " " & objItem.ServerBindings(i).Port & " " & objItem.ServerBindings(i).Hostname
|
|
Next
|
|
Next |