Sunday, February 21, 2010

Modified iisweb.vbs to just list web applications

  1. find iisweb.vbs
  2. make a copy of iisweb.vbs
  3. rename
  4. modify

From:
bFirstIteration = True

To:
bFirstIteration = False

From:
line = Server.ServerComment & " (" & Server.Name & ")" & _
Space(firstLen) & strState & _
Space(secLen) & strIP & Space(thirdLen) & strPort & _
Space(fourthLen) & strHost

To:
line = strHost&":"&strPort

5. Save file

No comments:

Post a Comment