查看服务器哪些站点开启了什么net版本netver.vbs

胖胖不是两三天

温馨提示:这篇文章已超过684天没有更新,请注意相关的内容是否还可用!

'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

文章版权声明:除非注明,否则均为阿豪运维笔记原创文章,转载或复制请以超链接形式并注明出处。