本文作者:不许人间见白头

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

不许人间见白头 2个月前 ( 12-14 ) 75

'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

文章版权及转载声明

作者:不许人间见白头本文地址:https://www.ahaoyw.com/article/155.html发布于 2个月前 ( 12-14 )
文章转载或复制请以超链接形式并注明出处阿豪运维笔记

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏