'On Error Resume NextSet ObjService=GetObject("IIS://LocalHost/W3SVC")For Each obj3w In objserviceIf IsNumeric(obj3w.Name) ThensServerComment=obj3w.ServerCommentSet webSite = GetObject("IIS://Localhost/W3SVC/" & obj3w.Name & "/Root")sScriptMaps=Join(webSite.ScriptMaps)'wscript.echo sServerComment & vbtab & sScriptMaps & vbcrlf'If InStr(sScriptMaps,"v2.0.50727")>0 Then'        WSCript.echo sServerComment & vbtab & "v2.0.50727"'End IfIf InStr(sScriptMaps,"v4.0.30319")>0 ThenWSCript.echo sServerComment & vbtab & "v4.0.30319"End IfEnd IfNextSet ObjService=NothingWScript.Quit