Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- FOR EACH objSite IN objService
- IF objSite.Class = "IIsWebServer" THEN
- SET objVirtualDir = GetObject( "IIS://" & strServer & "/" & strServerMetaType & "/" & objSite.Name & "/ROOT" )
- strBindings = EnumBindings( objSite.ServerBindings ) & EnumBindings ( objSite.SecureBindings )
- IF strBindings = "" THEN strBindings = "(All Unassigned)" END IF
- FOR EACH objVirDir IN objVirtualDir
- objFSOWebText.WriteLine(strDateTime & "+" & strServer & "+" & objSite.ServerComment & "+" & objVirDir.AdsPath & "+" & strBindings)
- NEXT
- END IF
- NEXT
Add Comment
Please, Sign In to add comment