Guest User

Untitled

a guest
Jul 19th, 2018
74
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.58 KB | None | 0 0
  1. FOR EACH objSite IN objService
  2. IF objSite.Class = "IIsWebServer" THEN
  3. SET objVirtualDir = GetObject( "IIS://" & strServer & "/" & strServerMetaType & "/" & objSite.Name & "/ROOT" )
  4.  
  5. strBindings = EnumBindings( objSite.ServerBindings ) & EnumBindings ( objSite.SecureBindings )
  6. IF strBindings = "" THEN strBindings = "(All Unassigned)" END IF
  7.  
  8. FOR EACH objVirDir IN objVirtualDir
  9. objFSOWebText.WriteLine(strDateTime & "+" & strServer & "+" & objSite.ServerComment & "+" & objVirDir.AdsPath & "+" & strBindings)
  10. NEXT
  11. END IF
  12. NEXT
Add Comment
Please, Sign In to add comment