服务器的匿名帐户密码问题
我不小心把服务器的匿名帐户密码给改了,现在访问服务器上任何一个站都需要登录,都提示无权访问,请教如何解决,急急急急!!!!!!!!!
[解决办法]
site = Trim(InputBox("输入站点名","查看某个站点的匿名登录密码"))
Set rex = new RegExp'判断输入中是否有特殊字符
rex.Pattern = "[^a-zA-Z0-9]"
If rex.test(site) Then
MsgBox "输入内容有特殊字符"
Wscript.Quit
End If
Set rex = Nothing
Set objIIsService = GetObject("winmgmts:\\.\root\microsoftiisv2")
Set colWebsites = objIIsService.ExecQuery("SELECT * FROM IIsWebServerSetting WHERE ServerComment='"&site&"'")'判断系统账户是否为正常的已存在
For Each objWebsite In colWebsites
'password = objWebsite.AnonymousUserPass
Set IIsObject = GetObject("IIS://localhost/"&objWebsite.Name&"/root")
password = CStr(IIsObject.Get("anonymoususerpass"))
Set IIsObject = Nothing
Next
Set colWebsites = Nothing
InputBox site & " 的匿名登录密码在下面","结果",password
---------------------------------------------------
新建文档,把以上内容写入,然后把文件后缀改名为.vbs
双击运行这个文件.查看得到的匿名密码.
这个密码就是你设置之前的IUSR密码,再把系统中的IUSR密码改回成这个.
然后试试看能不能正常打开