IIS管理脚本

1. 列出IIS站点ID、名称、物理路径

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")
   ListAllWeb = ListAllWeb & obj3w.Name & String(16-Len(obj3w.Name)," ") & obj3w.ServerComment & vbCrLf
   REM & vbCrLf & String(16," ") & "(" & webSite.Path & ")" & vbCrLf

   End If
 Next
 WScript.Echo ListAllWeb
 Set ObjService=Nothing
WScript.Quit

2. 修改IIS站点ID

Dim WebService
Dim oldstr
Dim newstr
Dim args
Set args = WScript.Arguments
If args.Count < 1 Then
    Wscript.Echo "Must have original instance id and new instance id" &     chr(10) & chr(13) & _
    "usage:  editsiteid.vbs 1 5"  & chr(10) & chr(13) & _
"Moves instance 1 to instance 5"
    WScript.Quit()
End If
Set WebService = GetObject("IIS://LocalHost/W3SVC")
oldstr = args(0) 'old instance
newstr = args(1) 'new instance
WebService.MoveHere oldstr,newstr
WebService.SetInfo
Set WebService = nothing
Set args=nothing
WScript.echo "DONE"