当然,得先把YOURSERVERNAME替换成需要获取匿名账号密码的服务器的名称,然后直接保存成vbs文件,直接点击或者在命令行中运行都可以。
******************************************************************
On Error Resume Next
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = Array("YOURSERVERNAME")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="
Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/MicrosoftIISv2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM IIsWebServerSetting", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
WScript.Echo "AnonymousPasswordSync: " & objItem.AnonymousPasswordSync
WScript.Echo "AnonymousUserName: " & objItem.AnonymousUserName
WScript.Echo "AnonymousUserPass: " & objItem.AnonymousUserPass
WScript.Echo
Next
Next

本文提供了一个VBScript脚本示例,用于从指定的IIS服务器获取匿名用户的账号密码等信息。通过简单的VBS脚本,可以实现对IIS匿名用户设置的快速查询。
1446

被折叠的 条评论
为什么被折叠?



