CScript
用法：CScript scriptname.extension [option...] [arguments...]
选项：
//B 批模式：不显示脚本错误及提示信息
//D 启用 Active Debugging
//E:engine 使用执行脚本的引擎
Option Explicit
'On Error Resume Next
Dim objShell,objArg,objInStream,objOutStream,intSiteIndex,objW3svc,ObjChildObject,strChildObjectName
Dim objIIs,objIIsWeb,objFso,objBackupFile,arrServerBindings,strServerComment,strMaxConnections
Dim strPath,strBackupFile,strFileLine,arrSiteInfo,intCreateWebStatus,strOldIP,strNewIP,intSiteCount
Dim intBindsIndex,intBindsArrID,intChoice,strSearchMode,strSearchedSite,strSaveToBackup,strResult
Dim strSaveFileName,strOverWrite,objResultFile,strIpString,intSearched,strDomainString,strPathString
Dim strDeleteMode,intDeleteId,arrSiteId(999),strCommentString,intCountDeleteSite
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
If (LCase(Right(Wscript.FullName , 11))="wscript.exe") Then
Set objShell=Wscript.CreateObject("Wscript.Shell")
objShell.Run("cmd.exe /k cscript //nologo "&chr(34)&Wscript.ScriptFullName&chr(34))
Wscript.Quit
End If
Set objOutStream = Wscript.StdOut
Set objInStream = Wscript.StdIn
Set objArg = Wscript.Arguments
If objArg.Count <= 0 Then
HELP()
Wscript.Quit
End If
Select Case UCase(objArg(0))
Case "BACKUP"
HELP()
BackupSite()
Case "RESTORE"
HELP()
RestoreSite()
Case "CHANGEIP"
HELP()
ChangeSiteIP()
Case "CHANGE_APP"
HELP()
Change_AppIsolated()
Case "SEARCH"
HELP()
Search()
Case "DELETESITE"
HELP()
DeleteSite()
End Select
Function BackupSite() '备份站点模块
if objArg.Count <=1 then
objOutStream.Write "请输入用来备份站点信息的文件名:"
strBackupFile = objInStream.ReadLine
end if
if objArg.Count =2 then
strBackupFile = objArg(1)
end if
intSiteIndex = 1 '站点ID的索引
Wscript.Echo vbCrLf & "开始备份站点信息……" & vbCrLf
'*********************************************
Set objW3svc = GetObject("IIS://localhost/w3svc") '建立IIS对象
For Each objChildObject In objW3svc
If (Err.Number <> 0) Then Exit For
If IsNumeric(objChildObject.Name) = True Then '判断ObjChildObject.Name是不是数字
Set objIIs = objW3svc.GetObject("IIsWebServer", objChildObject.Name)
If Err.Number <> 0 Then
Exit For
Wscript.Echo "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear()
Wscript.Quit
End If
arrServerBindings = objIIs.ServerBindings '把IIS虚拟站点绑定的IP、端口、域名的值放入数组ServerBindings
strServerComment = objIIs.ServerComment '把IIS虚拟站点的名称赋值给变量ServerComment
strMaxConnections = objIIs.MaxConnections '把IIS虚拟站点的最大连接数赋值给变量MaxConnections
Set objIIsWeb = objIIs.GetObject("IIsWebVirtualDir","Root")
strPath = objIIsWeb.Path
Set objFso = CreateObject("Scripting.FileSystemObject")
If (objFso.fileexists(strBackupFile)) Then
Set objBackupFile = objFso.OpenTextFile(strBackupFile,ForAppending,True)
objBackupFile.WriteLine(strServerComment &vbTab & Join(arrServerBindings,",") & vbTab & strMaxConnections & vbTab & strPath)
objBackupFile.Close
Wscript.Echo "正在备份站点 " & strServerComment & "!"
Else
Set objBackupFile = objFso.CreateTextFile(strBackupFile,True)
objBackupFile.WriteLine(strServerComment & vbTab & Join(arrServerBindings,",") & vbTab & strMaxConnections & vbTab & strPath)
objBackupFile.Close
Wscript.Echo "正在备份站点 " & strServerComment & "!"
End If
intSiteIndex = intSiteIndex + 1
End If
Next
Wscript.Echo vbCrLf & "一共备份了 " & intSiteIndex - 1 & "个站点信息!" & vbCrLf
Set objW3svc = Nothing
Set objChildObject = Nothing
Set objIIs = Nothing
Set objIIsWeb = Nothing
Set objFso = Nothing
Set objBackupFile = Nothing
End Function
Function RestoreSite() '恢复站点模块
if objArg.Count <=1 then
objOutStream.Write "请输入用来恢复站点信息的文件名:"
strBackupFile = objInStream.ReadLine
end if
if objArg.Count =2 then
strBackupFile = objArg(1)
end if
Wscript.Echo vbCrLf & "开始恢复站点信息……" & vbCrLf
Set objFso = CreateObject("Scripting.FileSystemObject")
If Not (objFso.fileexists(strBackupFile)) Then
Wscrip.Echo "没有找到文件 "&strBackupFile&"!"&vbCrLf&"请确定文件的位置!"
Wscript.Quit
End If
Set objBackupFile = objFso.OpenTextFile(strBackupFile,1)
intSiteCount = 1
Do While objBackupFile.AtEndOfStream <> True
strFileLine = objBackupFile.ReadLine
arrSiteInfo = split(strFileLine,vbTab)
intCreateWebStatus = CreateWebServer(arrSiteInfo(0),split(arrSiteInfo(1),","),arrSiteInfo(2),arrSiteInfo(3))
If intCreateWebStatus = 1 Then
Wscript.Echo "建立站点 " & arrSiteInfo(0) & " 成功"
intSiteCount = intSiteCount + 1
Else
Wscript.Echo "建立站点 " & arrSiteInfo(0) & " 失败"
End If
Loop
objBackupFile.Close
Wscript.Echo vbCrLf & "一共恢复了 " & intSiteCount - 1 & " 个站点信息!" & vbCrLf
Set objBackupFile = Nothing
Set objFso = Nothing
End Function
Function ChangeSiteIP() '修改站点IP模块
'*********************************************
'获取两个IP，一个是原来的，是个是新的
'*********************************************
objOutStream.Write "请输入站点原IP："
strOldIP = objInStream.ReadLine
objOutStream.Write "请输入站点新IP："
strNewIP = objInStream.ReadLine
'*********************************************
Wscript.Echo vbCrLf & "开始修改……" & vbCrLf
Set objW3svc = GetObject("IIS://localhost/w3svc") '建立IIS对象
For Each objChildObject In objW3svc
If (Err.Number <> 0) Then Exit For
If IsNumeric(objChildObject.Name) = True Then '判断objChildObject.Name是不是数字
Set objIIs = objW3svc.GetObject("IIsWebServer", objChildObject.Name) '建立IIS虚拟站点对像
If Err.Number <> 0 Then
Exit For
Wscript.Echo "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear()
Wscript.Quit
End If
arrServerBindings = objIIs.ServerBindings '把IIS虚拟站点绑定的IP、端口、域名的值放入数组ServerBindings
strServerComment = objIIs.ServerComment '把IIS虚拟站点的名称赋值给变量ServerComment
Wscript.Echo "正在修改站点 " & strServerComment & " 的IP" '在命令行打印正在修改IP的站点名称
intBindsIndex = UBound(arrServerBindings) + 1 '由于站点可以绑定多个域名、端口和IP，所以需要判断一共绑定了多少IP
For intBindsArrID = 1 To intBindsIndex
If instr(arrServerBindings(intBindsArrID - 1) , strOldIP) Then
arrServerBindings(intBindsArrID - 1) = Replace(arrServerBindings(intBindsArrID - 1) , strOldIP , strNewIP) '把数组内包含oldip的字符串替换成newip的字符串
End If
Next
objIIs.ServerBindings = arrServerBindings '把iis对象的ServerBindings属性修改为替换过IP的数组
objIIs.setinfo '使替换过的设置生效
End If
Next
'*********************************************
Set objW3svc = Nothing
Set objChildObject = Nothing
Set objIIs = Nothing
Set objIIsWeb = Nothing
Wscript.Echo vbCrLf & "修改完成!"
End Function
Function Change_AppIsolated() '修改应用程序保护模块
objOutStream.Write "选择你需要设置的(0,低_IIS进程 2,中_共用的 3,高_独立的,默认设置为2):"
intChoice = objInStream.ReadLine
If Not IsNumeric(intChoice) Then
Wscript.Echo "错误，你输入的不是数字!"
Wscript.Quit
End If
intSiteIndex = 1 '站点ID的索引
Wscript.Echo vbCrLf & "开始修改……" & vbCrLf
'*********************************************
Set objW3svc = GetObject("IIS://localhost/w3svc") '建立IIS对象
For Each objChildObject In objW3svc
If (Err.Number <> 0) Then Exit For
If IsNumeric(objChildObject.Name) = True Then '判断取出的objChildObject.Name是不是数字
Set objIIs = objW3svc.GetObject("IIsWebServer" , objChildObject.Name)
If Err.Number <> 0 Then
Exit For
Wscript.Echo "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear()
Wscript.Quit
End If
strServerComment = objIIs.ServerComment
set objIIsWeb = objIIs.GetObject("IIsWebVirtualDir","Root")
objIIsWeb.AppIsolated = int(intChoice)
objIIsWeb.SetInfo
Wscript.Echo "设置站点 " & strServerComment & " 完成!"
End If
Next
Set objW3svc = Nothing
Set objChildObject = Nothing
Set objIIs = Nothing
Set objIIsWeb = Nothing
Wscript.Echo vbCrLf & "设置完成!"
End Function
Function Search() '搜索模块
Wscript.Echo "请选择搜索方式：" & vbCrLf
Wscript.Echo "1.根据IP查询站点信息"
Wscript.Echo "2.根据域名查询站点信息"
Wscript.Echo "3.根据站点绝对路径查询站点信息" & vbCrLf
objOutStream.Write "请选择你需要的查询方式（1 2 3）："
strSearchMode = objInStream.ReadLine
Select Case strSearchMode
Case "1"
Use_IP_Search()
Case "2"
Use_Domain_Search()
Case "3"
Use_Path_Search()
Case Else
Wscript.Echo String(30," ") & "输入错误,请重新输入" & vbCrLf
Search()
End Select
End Function
Function Use_IP_Search() '根据IP搜索站点信息
objOutStream.Write "请输入你要搜索的IP(支持模糊搜索)："
strIpString = objInStream.ReadLine
Wscript.Echo "开始搜索……" & vbCrLf
intSiteIndex = 1
'*********************************************
Set objW3svc = GetObject("IIS://localhost/w3svc") '建立IIS对象
For Each objChildObject In objW3svc
If (Err.Number <> 0) Then Exit For
If IsNumeric(objChildObject.Name) = True Then '判断objChildObject.Name是不是数字
Set objIIs = objW3svc.GetObject("IIsWebServer", objChildObject.Name) '建立IIS虚拟站点对像
If Err.Number <> 0 Then
Exit For
Wscript.Echo "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear()
Wscript.Quit
End If
arrServerBindings = objIIs.ServerBindings '把IIS虚拟站点绑定的IP、端口、域名的值放入数组ServerBindings
intBindsIndex = UBound(arrServerBindings) + 1 '由于站点可以绑定多个域名、端口和IP，所以需要判断一共绑定了多少IP
intSearched=0
For intBindsArrID = 1 To intBindsIndex
If InStr(arrServerBindings(intBindsArrID - 1) , strIpString) Then
intSearched=1
Exit For
End If
Next
If intSearched=1 Then
strServerComment = objIIs.ServerComment '把IIS虚拟站点的名称赋值给变量ServerComment
strMaxConnections = objIIs.MaxConnections
Wscript.Echo "站点描述：" & strServerComment
Set objIIsWeb=objIIs.GetObject("IIsWebVirtualDir","Root")
strPath=objIIsWeb.Path
strSearchedSite = strSearchedSite & strServerComment & vbTab & Join(arrServerBindings,",") & vbTab & strMaxConnections & vbTab & strPath & vbCrLf
intSiteIndex = intSiteIndex + 1
End If
End If
Next
'Wscript.Echo strSearchedSite '打印出搜索到的站点信息
If intSiteIndex = 1 Then
Wscript.Echo vbCrLf & "未查找到站点信息!"
Else
Wscript.Echo vbCrLf & "共查找到" & intSiteIndex - 1 & "个站点!"
Wscript.Echo "默认只显示出站点描述，如果您需要详细信息，请把搜索结果存为文件!"
objOutStream.Write "是否将站点信息存为备份文件？（YES，NO）："
strSaveToBackup=objInStream.ReadLine
If UCase(strSaveToBackup)="YES" Then
SaveToFile(strSearchedSite)
End If
End If
'*********************************************
Set objW3svc = Nothing
Set objChildObject = Nothing
Set objIIs = Nothing
Set objIIsWeb = Nothing
End Function
Function Use_Domain_Search() '域名搜索模块
objOutStream.Write "请输入你要搜索的域名支持模糊搜索："
strDomainString = objInStream.ReadLine
Set objW3svc = GetObject("IIS://LocalHost/W3svc")
Wscript.Echo "开始搜索……" & vbCrLf
intSiteIndex = 1
For Each objChildObject In objW3svc
If (Err.Number <> 0) Then Exit For
If IsNumeric(objChildObject.Name) = True Then '判断objChildObject.Name是不是数字
Set objIIs = objW3svc.GetObject("IIsWebServer", objChildObject.Name) '建立IIS虚拟站点对像
If Err.Number <> 0 Then
Exit For
Wscript.Echo "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear()
Wscript.Quit
End If
arrServerBindings = objIIs.ServerBindings '把IIS虚拟站点绑定的IP、端口、域名的值放入数组ServerBindings
intBindsIndex = UBound(arrServerBindings) + 1 '由于站点可以绑定多个域名、端口和IP，所以需要判断一共绑定了多少IP
intSearched=0
For intBindsArrID = 1 To intBindsIndex
If InStr(arrServerBindings(intBindsArrID - 1) , strDomainString) Then
intSearched=1
Exit For
End If
Next
If intSearched=1 Then
strServerComment = objIIs.ServerComment '把IIS虚拟站点的名称赋值给变量ServerComment
strMaxConnections = objIIs.MaxConnections
Wscript.Echo "站点描述：" & strServerComment
Set objIIsWeb=objIIs.GetObject("IIsWebVirtualDir","Root")
strPath=objIIsWeb.Path
strSearchedSite = strSearchedSite & strServerComment & vbTab & Join(arrServerBindings,",") & vbTab & strMaxConnections & vbTab & strPath & vbCrLf
intSiteIndex = intSiteIndex + 1
End If
End If
Next
'Wscript.Echo strSearchedSite '打印出搜索到的站点信息
If intSiteIndex = 1 Then
Wscript.Echo vbCrLf & "未查找到站点信息!"
Else
Wscript.Echo vbCrLf & "共查找到" & intSiteIndex - 1 & "个站点!"
Wscript.Echo "默认只显示出站点描述，如果您需要详细信息，请把搜索结果存为文件!"
objOutStream.Write "是否将站点信息存为备份文件？（YES，NO）："
strSaveToBackup=objInStream.ReadLine
If UCase(strSaveToBackup)="YES" Then
SaveToFile(strSearchedSite)
End If
End If
'*********************************************
Set objW3svc = Nothing
Set objChildObject = Nothing
Set objIIs = Nothing
Set objIIsWeb = Nothing
End Function
Function Use_Path_Search() '域名搜索模块
objOutStream.Write "请输入你要搜索的绝对路径(支持模糊搜索)："
strPathString = objInStream.ReadLine
Set objW3svc = GetObject("IIS://LocalHost/W3svc")
Wscript.Echo "开始搜索……" & vbCrLf
intSiteIndex = 1
For Each objChildObject In objW3svc
If (Err.Number <> 0) Then Exit For
If IsNumeric(objChildObject.Name) = True Then '判断objChildObject.Name是不是数字
Set objIIs = objW3svc.GetObject("IIsWebServer", objChildObject.Name) '建立IIS虚拟站点对像
If Err.Number <> 0 Then
Exit For
Wscript.Echo "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear()
Wscript.Quit
End If
Set objIIsWeb=objIIs.GetObject("IIsWebVirtualDir","Root")
If instr(objIIsWeb.Path , strPathString) Then
strServerComment = objIIs.ServerComment '把IIS虚拟站点的名称赋值给变量ServerComment
arrServerBindings = objIIs.ServerBindings '把IIS虚拟站点绑定的IP、端口、域名的值放入数组ServerBindings
strMaxConnections = objIIs.MaxConnections
strPath=objIIsWeb.Path
Wscript.Echo "站点描述：" & strServerComment
strSearchedSite = strSearchedSite & strServerComment & vbTab & Join(arrServerBindings,",") & vbTab & strMaxConnections & vbTab & strPath & vbCrLf
intSiteIndex = intSiteIndex + 1
End If
End If
Next
'Wscript.Echo strSearchedSite '打印出搜索到的站点信息
If intSiteIndex = 1 Then
Wscript.Echo vbCrLf & "未查找到站点信息!"
Else
Wscript.Echo vbCrLf & "共查找到" & intSiteIndex - 1 & "个站点!"
Wscript.Echo "默认只显示出站点描述，如果您需要详细信息，请把搜索结果存为文件!"
objOutStream.Write "是否将站点信息存为备份文件？（YES，NO）："
strSaveToBackup=objInStream.ReadLine
If UCase(strSaveToBackup)="YES" Then
SaveToFile(strSearchedSite)
End If
End If
'*********************************************
Set objW3svc = Nothing
Set objChildObject = Nothing
Set objIIs = Nothing
Set objIIsWeb = Nothing
End Function
Function DeleteSite()
Wscript.Echo vbCrLf & "请选择批量删除的方式:" & vbCrLf
Wscript.Echo "1.根据IP删除站点" & vbCrLf
Wscript.Echo "2.根据域名删除站点" & vbCrlf
Wscript.Echo "3.根据站点描述删除站点" & vbCrLf
Wscript.Echo "4.删除所有站点信息" & vbCrLf
objOutStream.Write "请选择你需要的删除方式（1 2 3 4）："
strDeleteMode = objInStream.ReadLine
Select Case strDeleteMode
Case "1"
Delete_By_Ip()
Case "2"
Delete_By_Domain()
Case "3"
Delete_By_SiteComment()
Case "4"
Delete_All_Site()
Case Else
Wscript.Echo vbCrLf & String(30," ") & "输入错误,请重新输入!"
DeleteSite()
End Select
End Function
Function Delete_By_Ip()
objOutStream.Write "请输入你要删除的站点的IP(支持模糊查询):"
strIpString = objInStream.ReadLine
Wscript.Echo vbCrLf & "开始搜索……" & vbCrLf
Set objW3svc = GetObject("IIS://LocalHost/W3svc")
intSiteIndex = 0
For Each objChildObject In objW3svc
If (Err.Number <> 0) Then Exit For
If IsNumeric(objChildObject.Name) = True Then
arrSiteId(intSiteIndex) = CLng(objChildObject.Name)
intSiteIndex = intSiteIndex + 1
End If
Next
intCountDeleteSite = 0
For intDeleteId = 0 To intSiteIndex - 1
Set objIIs = objW3svc.GetObject("IIsWebServer", arrSiteId(intDeleteId)) '建立IIS虚拟站点对像
If Err.Number <> 0 Then
Exit For
Wscript.Echo "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear()
Wscript.Quit
End If
arrServerBindings = objIIs.ServerBindings '把IIS虚拟站点绑定的IP、端口、域名的值放入数组ServerBindings
intBindsIndex = UBound(arrServerBindings) + 1 '由于站点可以绑定多个域名、端口和IP，所以需要判断一共绑定了多少IP
intSearched = 0
For intBindsArrID = 1 To intBindsIndex
If InStr(arrServerBindings(intBindsArrID - 1) , strIpString) Then
intSearched=1
Exit For
End If
Next
Set objIIsWeb=objIIs.GetObject("IIsWebVirtualDir","Root")
If intSearched=1 Then
strServerComment = objIIs.ServerComment '把IIS虚拟站点的名称赋值给变量ServerComment
strMaxConnections = objIIs.MaxConnections
Set objIIsWeb=objIIs.GetObject("IIsWebVirtualDir","Root")
strPath=objIIsWeb.Path
objW3svc.Delete "IISWebServer" , arrSiteId(intDeleteId)
Wscript.Echo "删除站点: " & strServerComment & "完成!"
strSearchedSite = strSearchedSite & strServerComment & vbTab & Join(arrServerBindings,",") & vbTab & strMaxConnections & vbTab & strPath & vbCrLf
intSearched = 0
intCountDeleteSite = intCountDeleteSite + 1
End If
Next
If intCountDeleteSite = 0 Then
Wscript.Echo vbCrLf & "未查找到要删除的站点信息!"
Else
Wscript.Echo vbCrLf & "共删除" & intCountDeleteSite & "个站点!"
objOutStream.Write "是否将已删除的站点信息存为备份文件？（YES，NO）："
strSaveToBackup=objInStream.ReadLine
If UCase(strSaveToBackup)="YES" Then
SaveToFile(strSearchedSite)
End If
End If
'*********************************************
Set objW3svc = Nothing
Set objChildObject = Nothing
Set objIIs = Nothing
Set objIIsWeb = Nothing
End Function
Function Delete_By_Domain()
objOutStream.Write "请输入你要删除的站点的域名(支持模糊查询):"
strDomainString = objInStream.ReadLine
Wscript.Echo vbCrLf & "开始搜索……" & vbCrLf
Set objW3svc = GetObject("IIS://LocalHost/W3svc")
intSiteIndex = 0
For Each objChildObject In objW3svc
If (Err.Number <> 0) Then Exit For
If IsNumeric(objChildObject.Name) = True Then
arrSiteId(intSiteIndex) = CLng(objChildObject.Name)
intSiteIndex = intSiteIndex + 1
End If
Next
intCountDeleteSite = 0
For intDeleteId = 0 To intSiteIndex - 1
Set objIIs = objW3svc.GetObject("IIsWebServer", arrSiteId(intDeleteId)) '建立IIS虚拟站点对像
If Err.Number <> 0 Then
Exit For
Wscript.Echo "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear()
Wscript.Quit
End If
arrServerBindings = objIIs.ServerBindings '把IIS虚拟站点绑定的IP、端口、域名的值放入数组ServerBindings
intBindsIndex = UBound(arrServerBindings) + 1 '由于站点可以绑定多个域名、端口和IP，所以需要判断一共绑定了多少IP
intSearched = 0
For intBindsArrID = 1 To intBindsIndex
If InStr(arrServerBindings(intBindsArrID - 1) , strDomainString) Then
intSearched=1
Exit For
End If
Next
Set objIIsWeb=objIIs.GetObject("IIsWebVirtualDir","Root")
If intSearched=1 Then
strServerComment = objIIs.ServerComment '把IIS虚拟站点的名称赋值给变量ServerComment
strMaxConnections = objIIs.MaxConnections
Set objIIsWeb=objIIs.GetObject("IIsWebVirtualDir","Root")
strPath=objIIsWeb.Path
objW3svc.Delete "IISWebServer" , arrSiteId(intDeleteId)
Wscript.Echo "删除站点: " & strServerComment & "完成!"
strSearchedSite = strSearchedSite & strServerComment & vbTab & Join(arrServerBindings,",") & vbTab & strMaxConnections & vbTab & strPath & vbCrLf
intSearched = 0
intCountDeleteSite = intCountDeleteSite + 1
End If
Next
If intCountDeleteSite = 0 Then
Wscript.Echo vbCrLf & "未查找到要删除的站点信息!"
Else
Wscript.Echo vbCrLf & "共删除" & intCountDeleteSite & "个站点!"
objOutStream.Write "是否将已删除的站点信息存为备份文件？（YES，NO）："
strSaveToBackup=objInStream.ReadLine
If UCase(strSaveToBackup)="YES" Then
SaveToFile(strSearchedSite)
End If
End If
'*********************************************
Set objW3svc = Nothing
Set objChildObject = Nothing
Set objIIs = Nothing
Set objIIsWeb = Nothing
End Function
Function Delete_By_SiteComment
objOutStream.Write "请输入你要删除的站点的描述(支持模糊查询):"
strCommentString = objInStream.ReadLine
Wscript.Echo vbCrLf & "开始搜索……" & vbCrLf
Set objW3svc = GetObject("IIS://LocalHost/W3svc")
intSiteIndex = 0
For Each objChildObject In objW3svc
If (Err.Number <> 0) Then Exit For
If IsNumeric(objChildObject.Name) = True Then
arrSiteId(intSiteIndex) = CLng(objChildObject.Name)
intSiteIndex = intSiteIndex + 1
End If
Next
intCountDeleteSite = 0
For intDeleteId = 0 To intSiteIndex - 1
Set objIIs = objW3svc.GetObject("IIsWebServer", arrSiteId(intDeleteId)) '建立IIS虚拟站点对像
If Err.Number <> 0 Then
Exit For
Wscript.Echo "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear()
Wscript.Quit
End If
If Instr(Cstr(objIIs.ServerComment) , strCommentString) or Cstr(objIIs.ServerComment) = strCommentString Then
intSearched=1
End If
Set objIIsWeb=objIIs.GetObject("IIsWebVirtualDir","Root")
If intSearched=1 Then
strServerComment = objIIs.ServerComment
arrServerBindings = objIIs.ServerBindings '把IIS虚拟站点绑定的IP、端口、域名的值放入数组ServerBindings
strMaxConnections = objIIs.MaxConnections
Set objIIsWeb=objIIs.GetObject("IIsWebVirtualDir","Root")
strPath=objIIsWeb.Path
objW3svc.Delete "IISWebServer" , arrSiteId(intDeleteId)
Wscript.Echo "删除站点: " & strServerComment & "完成!"
strSearchedSite = strSearchedSite & strServerComment & vbTab & Join(arrServerBindings,",") & vbTab & strMaxConnections & vbTab & strPath & vbCrLf
intSearched = 0
intCountDeleteSite = intCountDeleteSite + 1
End If
Next
If intCountDeleteSite = 0 Then
Wscript.Echo vbCrLf & "未查找到要删除的站点信息!"
Else
Wscript.Echo vbCrLf & "共删除" & intCountDeleteSite & "个站点!"
objOutStream.Write "是否将已删除的站点信息存为备份文件？（YES，NO）："
strSaveToBackup=objInStream.ReadLine
If UCase(strSaveToBackup)="YES" Then
SaveToFile(strSearchedSite)
End If
End If
'*********************************************
Set objW3svc = Nothing
Set objChildObject = Nothing
Set objIIs = Nothing
Set objIIsWeb = Nothing
End Function
Function Delete_All_Site()
Wscript.Echo vbCrLf & "开始删除……" & vbCrLf
Set objW3svc = GetObject("IIS://LocalHost/W3svc")
intSiteIndex = 0
For Each objChildObject In objW3svc
If (Err.Number <> 0) Then Exit For
If IsNumeric(objChildObject.Name) = True Then
arrSiteId(intSiteIndex) = CLng(objChildObject.Name)
intSiteIndex = intSiteIndex + 1
End If
Next
intCountDeleteSite = 0
For intDeleteId = 0 To intSiteIndex - 1
Set objIIs = objW3svc.GetObject("IIsWebServer", arrSiteId(intDeleteId)) '建立IIS虚拟站点对像
If Err.Number <> 0 Then
Exit For
Wscript.Echo "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear()
Wscript.Quit
End If
arrServerBindings = objIIs.ServerBindings '把IIS虚拟站点绑定的IP、端口、域名的值放入数组ServerBindings
Set objIIsWeb=objIIs.GetObject("IIsWebVirtualDir","Root")
strServerComment = objIIs.ServerComment '把IIS虚拟站点的名称赋值给变量ServerComment
strMaxConnections = objIIs.MaxConnections
Set objIIsWeb=objIIs.GetObject("IIsWebVirtualDir","Root")
strPath=objIIsWeb.Path
objW3svc.Delete "IISWebServer" , arrSiteId(intDeleteId)
Wscript.Echo "删除站点: " & strServerComment & "完成!"
strSearchedSite = strSearchedSite & strServerComment & vbTab & Join(arrServerBindings,",") & vbTab & strMaxConnections & vbTab & strPath & vbCrLf
intCountDeleteSite = intCountDeleteSite + 1
Next
If intCountDeleteSite = 0 Then
Wscript.Echo vbCrLf & "未查找到要删除的站点信息!"
Else
Wscript.Echo vbCrLf & "共删除" & intCountDeleteSite & "个站点!"
objOutStream.Write "是否将已删除的站点信息存为备份文件？（YES，NO）："
strSaveToBackup=objInStream.ReadLine
If UCase(strSaveToBackup)="YES" Then
SaveToFile(strSearchedSite)
End If
End If
'*********************************************
Set objW3svc = Nothing
Set objChildObject = Nothing
Set objIIs = Nothing
Set objIIsWeb = Nothing
End Function
Function SaveToFile(strResult) '保存文件
objOutStream.Write "请输入保存的文件名："
strSaveFileName=objInStream.ReadLine
Set objFso=CreateObject("Scripting.FileSystemObject")
If objFso.FileExists(strSaveFileName) Then
Wscript.Echo "文件" & strSaveFileName & "已经存在!"
objOutStream.Write "是否追加写入文件？(Yes,No)"
strOverWrite = objInStream.ReadLine
If UCase(strOverWrite) = "YES" Then
Set objResultFile=objFso.OpenTextFile(strSaveFileName , ForAppending , True)
objResultFile.Write strResult
objResultFile.Close
Wscript.Echo "写入文件" & strSaveFileName & "完成!"
End If
If UCase(strOverWrite) = "NO" Then
objOutStream.Write "请重命名文件："
strSaveFileName = objInStream.ReadLine
Set objResultFile = objFso.CreateTextFile(strSaveFileName,True)
objResultFile.Write strResult
objResultFile.Close
Wscript.Echo "保存文件 " & strSaveFileNmae & " 完成!"
End If
Else
Set objResultFile = objFso.CreateTextFile(strSaveFileName , True)
objResultFile.Write strResult
objResultFile.Close
Wscript.Echo "保存文件 " & strSaveFileName & " 完成!"
End If
Set objFso = Nothing
End Function
Function CreateWebServer(strServerComment,arrServerBindings,strMaxConnections,strPath)'建立站点
On Error Resume Next
Set objW3svc = GetObject("IIS://LocalHost/W3svc")
intSiteIndex = 1
Do While IsObject(objW3svc.GetObject("IIsWebServer",intSiteIndex))
If Err.Number <> 0 Then
'Wscript.Echo Err.Description
Err.Clear()
Exit Do
End If
intSiteIndex = intSiteIndex + 1
Loop
Set objIIs = objW3svc.Create("IIsWebServer",intSiteIndex)
If Err.Number <> 0 Then
Wscript.Echo "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear()
CreateWebServer = 0
Exit Function
End If
objIIs.ServerSize = 1
objIIs.ServerComment = strServerComment
objIIs.ServerBindings = arrServerBindings
objIIs.MaxConnections = strMaxConnections
objIIs.EnableDefaultDoc = True
objIIs.SetInfo
Set objIIsWeb = objIIs.Create("IIsWebVirtualDir", "Root")
If Err.Number <> 0 Then
Wscript.Echo "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear()
CreateWebServer = 0
Exit Function
End If
objIIsWeb.Path = strPath
objIIsWeb.AccessRead = True
objIIsWeb.AccessWrite = False
objIIsWeb.EnableDirBrowsing = False
objIIsWeb.EnableDefaultDoc = True
objIIsWeb.AccessScript = True
objIIsWeb.AppIsolated = 2
objIIsWeb.AppCreate2 2
objIIsWeb.AppFriendlyName = "默认应用程序"
objIIsWeb.SetInfo
Set objW3svc = Nothing
Set objIIs = Nothing
Set objIIsWeb = Nothing
CreateWebServer = 1
End Function
Function HELP()
Wscript.Echo vbCrLf & " IIS Manager By Tom"
Wscript.Echo " Made By Tom"
Wscript.Echo " http://www.zz.la/" & vbCrLf
Wscript.Echo "Cscript iismanager.vbs [操作类型] [文件名]" & vbCrLf
Wscript.Echo "Backup （备份IIS站点信息到一个文本文件！）"
Wscript.Echo "Restore （从一个文本文件恢复IIS站点信息！）"
Wscript.Echo "ChangeIP （修改所有IIS站点IP！）"
Wscript.Echo "Change_App （修改所有IIS站点应用程序级别！）"
Wscript.Echo "Search （根据条件查找站点信息！）"
Wscript.Echo "DeleteSite (根据条件批量删除站点)" & vbCrLf
End Function
'想到的新功能
'备份功能增加一个备份站点数据的功能，通过RAR自动打包，默认打包到站点的上级目录，可选择打包的指定的目录
'增加建立隐藏虚拟目录的功能
'批量删除绑定的指定IP
'程序运行时判断IIS是否启动
'恢复站点绝对路径的ACL信息
'On Error Resume Next
Dim objShell,objArg,objInStream,objOutStream,intSiteIndex,objW3svc,ObjChildObject,strChildObjectName
Dim objIIs,objIIsWeb,objFso,objBackupFile,arrServerBindings,strServerComment,strMaxConnections
Dim strPath,strBackupFile,strFileLine,arrSiteInfo,intCreateWebStatus,strOldIP,strNewIP,intSiteCount
Dim intBindsIndex,intBindsArrID,intChoice,strSearchMode,strSearchedSite,strSaveToBackup,strResult
Dim strSaveFileName,strOverWrite,objResultFile,strIpString,intSearched,strDomainString,strPathString
Dim strDeleteMode,intDeleteId,arrSiteId(999),strCommentString,intCountDeleteSite
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
If (LCase(Right(Wscript.FullName , 11))="wscript.exe") Then
Set objShell=Wscript.CreateObject("Wscript.Shell")
objShell.Run("cmd.exe /k cscript //nologo "&chr(34)&Wscript.ScriptFullName&chr(34))
Wscript.Quit
End If
Set objOutStream = Wscript.StdOut
Set objInStream = Wscript.StdIn
Set objArg = Wscript.Arguments
If objArg.Count <= 0 Then
HELP()
Wscript.Quit
End If
Select Case UCase(objArg(0))
Case "BACKUP"
HELP()
BackupSite()
Case "RESTORE"
HELP()
RestoreSite()
Case "CHANGEIP"
HELP()
ChangeSiteIP()
Case "CHANGE_APP"
HELP()
Change_AppIsolated()
Case "SEARCH"
HELP()
Search()
Case "DELETESITE"
HELP()
DeleteSite()
End Select
Function BackupSite() '备份站点模块
if objArg.Count <=1 then
objOutStream.Write "请输入用来备份站点信息的文件名:"
strBackupFile = objInStream.ReadLine
end if
if objArg.Count =2 then
strBackupFile = objArg(1)
end if
intSiteIndex = 1 '站点ID的索引
Wscript.Echo vbCrLf & "开始备份站点信息……" & vbCrLf
'*********************************************
Set objW3svc = GetObject("IIS://localhost/w3svc") '建立IIS对象
For Each objChildObject In objW3svc
If (Err.Number <> 0) Then Exit For
If IsNumeric(objChildObject.Name) = True Then '判断ObjChildObject.Name是不是数字
Set objIIs = objW3svc.GetObject("IIsWebServer", objChildObject.Name)
If Err.Number <> 0 Then
Exit For
Wscript.Echo "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear()
Wscript.Quit
End If
arrServerBindings = objIIs.ServerBindings '把IIS虚拟站点绑定的IP、端口、域名的值放入数组ServerBindings
strServerComment = objIIs.ServerComment '把IIS虚拟站点的名称赋值给变量ServerComment
strMaxConnections = objIIs.MaxConnections '把IIS虚拟站点的最大连接数赋值给变量MaxConnections
Set objIIsWeb = objIIs.GetObject("IIsWebVirtualDir","Root")
strPath = objIIsWeb.Path
Set objFso = CreateObject("Scripting.FileSystemObject")
If (objFso.fileexists(strBackupFile)) Then
Set objBackupFile = objFso.OpenTextFile(strBackupFile,ForAppending,True)
objBackupFile.WriteLine(strServerComment &vbTab & Join(arrServerBindings,",") & vbTab & strMaxConnections & vbTab & strPath)
objBackupFile.Close
Wscript.Echo "正在备份站点 " & strServerComment & "!"
Else
Set objBackupFile = objFso.CreateTextFile(strBackupFile,True)
objBackupFile.WriteLine(strServerComment & vbTab & Join(arrServerBindings,",") & vbTab & strMaxConnections & vbTab & strPath)
objBackupFile.Close
Wscript.Echo "正在备份站点 " & strServerComment & "!"
End If
intSiteIndex = intSiteIndex + 1
End If
Next
Wscript.Echo vbCrLf & "一共备份了 " & intSiteIndex - 1 & "个站点信息!" & vbCrLf
Set objW3svc = Nothing
Set objChildObject = Nothing
Set objIIs = Nothing
Set objIIsWeb = Nothing
Set objFso = Nothing
Set objBackupFile = Nothing
End Function
Function RestoreSite() '恢复站点模块
if objArg.Count <=1 then
objOutStream.Write "请输入用来恢复站点信息的文件名:"
strBackupFile = objInStream.ReadLine
end if
if objArg.Count =2 then
strBackupFile = objArg(1)
end if
Wscript.Echo vbCrLf & "开始恢复站点信息……" & vbCrLf
Set objFso = CreateObject("Scripting.FileSystemObject")
If Not (objFso.fileexists(strBackupFile)) Then
Wscrip.Echo "没有找到文件 "&strBackupFile&"!"&vbCrLf&"请确定文件的位置!"
Wscript.Quit
End If
Set objBackupFile = objFso.OpenTextFile(strBackupFile,1)
intSiteCount = 1
Do While objBackupFile.AtEndOfStream <> True
strFileLine = objBackupFile.ReadLine
arrSiteInfo = split(strFileLine,vbTab)
intCreateWebStatus = CreateWebServer(arrSiteInfo(0),split(arrSiteInfo(1),","),arrSiteInfo(2),arrSiteInfo(3))
If intCreateWebStatus = 1 Then
Wscript.Echo "建立站点 " & arrSiteInfo(0) & " 成功"
intSiteCount = intSiteCount + 1
Else
Wscript.Echo "建立站点 " & arrSiteInfo(0) & " 失败"
End If
Loop
objBackupFile.Close
Wscript.Echo vbCrLf & "一共恢复了 " & intSiteCount - 1 & " 个站点信息!" & vbCrLf
Set objBackupFile = Nothing
Set objFso = Nothing
End Function
Function ChangeSiteIP() '修改站点IP模块
'*********************************************
'获取两个IP，一个是原来的，是个是新的
'*********************************************
objOutStream.Write "请输入站点原IP："
strOldIP = objInStream.ReadLine
objOutStream.Write "请输入站点新IP："
strNewIP = objInStream.ReadLine
'*********************************************
Wscript.Echo vbCrLf & "开始修改……" & vbCrLf
Set objW3svc = GetObject("IIS://localhost/w3svc") '建立IIS对象
For Each objChildObject In objW3svc
If (Err.Number <> 0) Then Exit For
If IsNumeric(objChildObject.Name) = True Then '判断objChildObject.Name是不是数字
Set objIIs = objW3svc.GetObject("IIsWebServer", objChildObject.Name) '建立IIS虚拟站点对像
If Err.Number <> 0 Then
Exit For
Wscript.Echo "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear()
Wscript.Quit
End If
arrServerBindings = objIIs.ServerBindings '把IIS虚拟站点绑定的IP、端口、域名的值放入数组ServerBindings
strServerComment = objIIs.ServerComment '把IIS虚拟站点的名称赋值给变量ServerComment
Wscript.Echo "正在修改站点 " & strServerComment & " 的IP" '在命令行打印正在修改IP的站点名称
intBindsIndex = UBound(arrServerBindings) + 1 '由于站点可以绑定多个域名、端口和IP，所以需要判断一共绑定了多少IP
For intBindsArrID = 1 To intBindsIndex
If instr(arrServerBindings(intBindsArrID - 1) , strOldIP) Then
arrServerBindings(intBindsArrID - 1) = Replace(arrServerBindings(intBindsArrID - 1) , strOldIP , strNewIP) '把数组内包含oldip的字符串替换成newip的字符串
End If
Next
objIIs.ServerBindings = arrServerBindings '把iis对象的ServerBindings属性修改为替换过IP的数组
objIIs.setinfo '使替换过的设置生效
End If
Next
'*********************************************
Set objW3svc = Nothing
Set objChildObject = Nothing
Set objIIs = Nothing
Set objIIsWeb = Nothing
Wscript.Echo vbCrLf & "修改完成!"
End Function
Function Change_AppIsolated() '修改应用程序保护模块
objOutStream.Write "选择你需要设置的(0,低_IIS进程 2,中_共用的 3,高_独立的,默认设置为2):"
intChoice = objInStream.ReadLine
If Not IsNumeric(intChoice) Then
Wscript.Echo "错误，你输入的不是数字!"
Wscript.Quit
End If
intSiteIndex = 1 '站点ID的索引
Wscript.Echo vbCrLf & "开始修改……" & vbCrLf
'*********************************************
Set objW3svc = GetObject("IIS://localhost/w3svc") '建立IIS对象
For Each objChildObject In objW3svc
If (Err.Number <> 0) Then Exit For
If IsNumeric(objChildObject.Name) = True Then '判断取出的objChildObject.Name是不是数字
Set objIIs = objW3svc.GetObject("IIsWebServer" , objChildObject.Name)
If Err.Number <> 0 Then
Exit For
Wscript.Echo "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear()
Wscript.Quit
End If
strServerComment = objIIs.ServerComment
set objIIsWeb = objIIs.GetObject("IIsWebVirtualDir","Root")
objIIsWeb.AppIsolated = int(intChoice)
objIIsWeb.SetInfo
Wscript.Echo "设置站点 " & strServerComment & " 完成!"
End If
Next
Set objW3svc = Nothing
Set objChildObject = Nothing
Set objIIs = Nothing
Set objIIsWeb = Nothing
Wscript.Echo vbCrLf & "设置完成!"
End Function
Function Search() '搜索模块
Wscript.Echo "请选择搜索方式：" & vbCrLf
Wscript.Echo "1.根据IP查询站点信息"
Wscript.Echo "2.根据域名查询站点信息"
Wscript.Echo "3.根据站点绝对路径查询站点信息" & vbCrLf
objOutStream.Write "请选择你需要的查询方式（1 2 3）："
strSearchMode = objInStream.ReadLine
Select Case strSearchMode
Case "1"
Use_IP_Search()
Case "2"
Use_Domain_Search()
Case "3"
Use_Path_Search()
Case Else
Wscript.Echo String(30," ") & "输入错误,请重新输入" & vbCrLf
Search()
End Select
End Function
Function Use_IP_Search() '根据IP搜索站点信息
objOutStream.Write "请输入你要搜索的IP(支持模糊搜索)："
strIpString = objInStream.ReadLine
Wscript.Echo "开始搜索……" & vbCrLf
intSiteIndex = 1
'*********************************************
Set objW3svc = GetObject("IIS://localhost/w3svc") '建立IIS对象
For Each objChildObject In objW3svc
If (Err.Number <> 0) Then Exit For
If IsNumeric(objChildObject.Name) = True Then '判断objChildObject.Name是不是数字
Set objIIs = objW3svc.GetObject("IIsWebServer", objChildObject.Name) '建立IIS虚拟站点对像
If Err.Number <> 0 Then
Exit For
Wscript.Echo "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear()
Wscript.Quit
End If
arrServerBindings = objIIs.ServerBindings '把IIS虚拟站点绑定的IP、端口、域名的值放入数组ServerBindings
intBindsIndex = UBound(arrServerBindings) + 1 '由于站点可以绑定多个域名、端口和IP，所以需要判断一共绑定了多少IP
intSearched=0
For intBindsArrID = 1 To intBindsIndex
If InStr(arrServerBindings(intBindsArrID - 1) , strIpString) Then
intSearched=1
Exit For
End If
Next
If intSearched=1 Then
strServerComment = objIIs.ServerComment '把IIS虚拟站点的名称赋值给变量ServerComment
strMaxConnections = objIIs.MaxConnections
Wscript.Echo "站点描述：" & strServerComment
Set objIIsWeb=objIIs.GetObject("IIsWebVirtualDir","Root")
strPath=objIIsWeb.Path
strSearchedSite = strSearchedSite & strServerComment & vbTab & Join(arrServerBindings,",") & vbTab & strMaxConnections & vbTab & strPath & vbCrLf
intSiteIndex = intSiteIndex + 1
End If
End If
Next
'Wscript.Echo strSearchedSite '打印出搜索到的站点信息
If intSiteIndex = 1 Then
Wscript.Echo vbCrLf & "未查找到站点信息!"
Else
Wscript.Echo vbCrLf & "共查找到" & intSiteIndex - 1 & "个站点!"
Wscript.Echo "默认只显示出站点描述，如果您需要详细信息，请把搜索结果存为文件!"
objOutStream.Write "是否将站点信息存为备份文件？（YES，NO）："
strSaveToBackup=objInStream.ReadLine
If UCase(strSaveToBackup)="YES" Then
SaveToFile(strSearchedSite)
End If
End If
'*********************************************
Set objW3svc = Nothing
Set objChildObject = Nothing
Set objIIs = Nothing
Set objIIsWeb = Nothing
End Function
Function Use_Domain_Search() '域名搜索模块
objOutStream.Write "请输入你要搜索的域名支持模糊搜索："
strDomainString = objInStream.ReadLine
Set objW3svc = GetObject("IIS://LocalHost/W3svc")
Wscript.Echo "开始搜索……" & vbCrLf
intSiteIndex = 1
For Each objChildObject In objW3svc
If (Err.Number <> 0) Then Exit For
If IsNumeric(objChildObject.Name) = True Then '判断objChildObject.Name是不是数字
Set objIIs = objW3svc.GetObject("IIsWebServer", objChildObject.Name) '建立IIS虚拟站点对像
If Err.Number <> 0 Then
Exit For
Wscript.Echo "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear()
Wscript.Quit
End If
arrServerBindings = objIIs.ServerBindings '把IIS虚拟站点绑定的IP、端口、域名的值放入数组ServerBindings
intBindsIndex = UBound(arrServerBindings) + 1 '由于站点可以绑定多个域名、端口和IP，所以需要判断一共绑定了多少IP
intSearched=0
For intBindsArrID = 1 To intBindsIndex
If InStr(arrServerBindings(intBindsArrID - 1) , strDomainString) Then
intSearched=1
Exit For
End If
Next
If intSearched=1 Then
strServerComment = objIIs.ServerComment '把IIS虚拟站点的名称赋值给变量ServerComment
strMaxConnections = objIIs.MaxConnections
Wscript.Echo "站点描述：" & strServerComment
Set objIIsWeb=objIIs.GetObject("IIsWebVirtualDir","Root")
strPath=objIIsWeb.Path
strSearchedSite = strSearchedSite & strServerComment & vbTab & Join(arrServerBindings,",") & vbTab & strMaxConnections & vbTab & strPath & vbCrLf
intSiteIndex = intSiteIndex + 1
End If
End If
Next
'Wscript.Echo strSearchedSite '打印出搜索到的站点信息
If intSiteIndex = 1 Then
Wscript.Echo vbCrLf & "未查找到站点信息!"
Else
Wscript.Echo vbCrLf & "共查找到" & intSiteIndex - 1 & "个站点!"
Wscript.Echo "默认只显示出站点描述，如果您需要详细信息，请把搜索结果存为文件!"
objOutStream.Write "是否将站点信息存为备份文件？（YES，NO）："
strSaveToBackup=objInStream.ReadLine
If UCase(strSaveToBackup)="YES" Then
SaveToFile(strSearchedSite)
End If
End If
'*********************************************
Set objW3svc = Nothing
Set objChildObject = Nothing
Set objIIs = Nothing
Set objIIsWeb = Nothing
End Function
Function Use_Path_Search() '域名搜索模块
objOutStream.Write "请输入你要搜索的绝对路径(支持模糊搜索)："
strPathString = objInStream.ReadLine
Set objW3svc = GetObject("IIS://LocalHost/W3svc")
Wscript.Echo "开始搜索……" & vbCrLf
intSiteIndex = 1
For Each objChildObject In objW3svc
If (Err.Number <> 0) Then Exit For
If IsNumeric(objChildObject.Name) = True Then '判断objChildObject.Name是不是数字
Set objIIs = objW3svc.GetObject("IIsWebServer", objChildObject.Name) '建立IIS虚拟站点对像
If Err.Number <> 0 Then
Exit For
Wscript.Echo "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear()
Wscript.Quit
End If
Set objIIsWeb=objIIs.GetObject("IIsWebVirtualDir","Root")
If instr(objIIsWeb.Path , strPathString) Then
strServerComment = objIIs.ServerComment '把IIS虚拟站点的名称赋值给变量ServerComment
arrServerBindings = objIIs.ServerBindings '把IIS虚拟站点绑定的IP、端口、域名的值放入数组ServerBindings
strMaxConnections = objIIs.MaxConnections
strPath=objIIsWeb.Path
Wscript.Echo "站点描述：" & strServerComment
strSearchedSite = strSearchedSite & strServerComment & vbTab & Join(arrServerBindings,",") & vbTab & strMaxConnections & vbTab & strPath & vbCrLf
intSiteIndex = intSiteIndex + 1
End If
End If
Next
'Wscript.Echo strSearchedSite '打印出搜索到的站点信息
If intSiteIndex = 1 Then
Wscript.Echo vbCrLf & "未查找到站点信息!"
Else
Wscript.Echo vbCrLf & "共查找到" & intSiteIndex - 1 & "个站点!"
Wscript.Echo "默认只显示出站点描述，如果您需要详细信息，请把搜索结果存为文件!"
objOutStream.Write "是否将站点信息存为备份文件？（YES，NO）："
strSaveToBackup=objInStream.ReadLine
If UCase(strSaveToBackup)="YES" Then
SaveToFile(strSearchedSite)
End If
End If
'*********************************************
Set objW3svc = Nothing
Set objChildObject = Nothing
Set objIIs = Nothing
Set objIIsWeb = Nothing
End Function
Function DeleteSite()
Wscript.Echo vbCrLf & "请选择批量删除的方式:" & vbCrLf
Wscript.Echo "1.根据IP删除站点" & vbCrLf
Wscript.Echo "2.根据域名删除站点" & vbCrlf
Wscript.Echo "3.根据站点描述删除站点" & vbCrLf
Wscript.Echo "4.删除所有站点信息" & vbCrLf
objOutStream.Write "请选择你需要的删除方式（1 2 3 4）："
strDeleteMode = objInStream.ReadLine
Select Case strDeleteMode
Case "1"
Delete_By_Ip()
Case "2"
Delete_By_Domain()
Case "3"
Delete_By_SiteComment()
Case "4"
Delete_All_Site()
Case Else
Wscript.Echo vbCrLf & String(30," ") & "输入错误,请重新输入!"
DeleteSite()
End Select
End Function
Function Delete_By_Ip()
objOutStream.Write "请输入你要删除的站点的IP(支持模糊查询):"
strIpString = objInStream.ReadLine
Wscript.Echo vbCrLf & "开始搜索……" & vbCrLf
Set objW3svc = GetObject("IIS://LocalHost/W3svc")
intSiteIndex = 0
For Each objChildObject In objW3svc
If (Err.Number <> 0) Then Exit For
If IsNumeric(objChildObject.Name) = True Then
arrSiteId(intSiteIndex) = CLng(objChildObject.Name)
intSiteIndex = intSiteIndex + 1
End If
Next
intCountDeleteSite = 0
For intDeleteId = 0 To intSiteIndex - 1
Set objIIs = objW3svc.GetObject("IIsWebServer", arrSiteId(intDeleteId)) '建立IIS虚拟站点对像
If Err.Number <> 0 Then
Exit For
Wscript.Echo "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear()
Wscript.Quit
End If
arrServerBindings = objIIs.ServerBindings '把IIS虚拟站点绑定的IP、端口、域名的值放入数组ServerBindings
intBindsIndex = UBound(arrServerBindings) + 1 '由于站点可以绑定多个域名、端口和IP，所以需要判断一共绑定了多少IP
intSearched = 0
For intBindsArrID = 1 To intBindsIndex
If InStr(arrServerBindings(intBindsArrID - 1) , strIpString) Then
intSearched=1
Exit For
End If
Next
Set objIIsWeb=objIIs.GetObject("IIsWebVirtualDir","Root")
If intSearched=1 Then
strServerComment = objIIs.ServerComment '把IIS虚拟站点的名称赋值给变量ServerComment
strMaxConnections = objIIs.MaxConnections
Set objIIsWeb=objIIs.GetObject("IIsWebVirtualDir","Root")
strPath=objIIsWeb.Path
objW3svc.Delete "IISWebServer" , arrSiteId(intDeleteId)
Wscript.Echo "删除站点: " & strServerComment & "完成!"
strSearchedSite = strSearchedSite & strServerComment & vbTab & Join(arrServerBindings,",") & vbTab & strMaxConnections & vbTab & strPath & vbCrLf
intSearched = 0
intCountDeleteSite = intCountDeleteSite + 1
End If
Next
If intCountDeleteSite = 0 Then
Wscript.Echo vbCrLf & "未查找到要删除的站点信息!"
Else
Wscript.Echo vbCrLf & "共删除" & intCountDeleteSite & "个站点!"
objOutStream.Write "是否将已删除的站点信息存为备份文件？（YES，NO）："
strSaveToBackup=objInStream.ReadLine
If UCase(strSaveToBackup)="YES" Then
SaveToFile(strSearchedSite)
End If
End If
'*********************************************
Set objW3svc = Nothing
Set objChildObject = Nothing
Set objIIs = Nothing
Set objIIsWeb = Nothing
End Function
Function Delete_By_Domain()
objOutStream.Write "请输入你要删除的站点的域名(支持模糊查询):"
strDomainString = objInStream.ReadLine
Wscript.Echo vbCrLf & "开始搜索……" & vbCrLf
Set objW3svc = GetObject("IIS://LocalHost/W3svc")
intSiteIndex = 0
For Each objChildObject In objW3svc
If (Err.Number <> 0) Then Exit For
If IsNumeric(objChildObject.Name) = True Then
arrSiteId(intSiteIndex) = CLng(objChildObject.Name)
intSiteIndex = intSiteIndex + 1
End If
Next
intCountDeleteSite = 0
For intDeleteId = 0 To intSiteIndex - 1
Set objIIs = objW3svc.GetObject("IIsWebServer", arrSiteId(intDeleteId)) '建立IIS虚拟站点对像
If Err.Number <> 0 Then
Exit For
Wscript.Echo "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear()
Wscript.Quit
End If
arrServerBindings = objIIs.ServerBindings '把IIS虚拟站点绑定的IP、端口、域名的值放入数组ServerBindings
intBindsIndex = UBound(arrServerBindings) + 1 '由于站点可以绑定多个域名、端口和IP，所以需要判断一共绑定了多少IP
intSearched = 0
For intBindsArrID = 1 To intBindsIndex
If InStr(arrServerBindings(intBindsArrID - 1) , strDomainString) Then
intSearched=1
Exit For
End If
Next
Set objIIsWeb=objIIs.GetObject("IIsWebVirtualDir","Root")
If intSearched=1 Then
strServerComment = objIIs.ServerComment '把IIS虚拟站点的名称赋值给变量ServerComment
strMaxConnections = objIIs.MaxConnections
Set objIIsWeb=objIIs.GetObject("IIsWebVirtualDir","Root")
strPath=objIIsWeb.Path
objW3svc.Delete "IISWebServer" , arrSiteId(intDeleteId)
Wscript.Echo "删除站点: " & strServerComment & "完成!"
strSearchedSite = strSearchedSite & strServerComment & vbTab & Join(arrServerBindings,",") & vbTab & strMaxConnections & vbTab & strPath & vbCrLf
intSearched = 0
intCountDeleteSite = intCountDeleteSite + 1
End If
Next
If intCountDeleteSite = 0 Then
Wscript.Echo vbCrLf & "未查找到要删除的站点信息!"
Else
Wscript.Echo vbCrLf & "共删除" & intCountDeleteSite & "个站点!"
objOutStream.Write "是否将已删除的站点信息存为备份文件？（YES，NO）："
strSaveToBackup=objInStream.ReadLine
If UCase(strSaveToBackup)="YES" Then
SaveToFile(strSearchedSite)
End If
End If
'*********************************************
Set objW3svc = Nothing
Set objChildObject = Nothing
Set objIIs = Nothing
Set objIIsWeb = Nothing
End Function
Function Delete_By_SiteComment
objOutStream.Write "请输入你要删除的站点的描述(支持模糊查询):"
strCommentString = objInStream.ReadLine
Wscript.Echo vbCrLf & "开始搜索……" & vbCrLf
Set objW3svc = GetObject("IIS://LocalHost/W3svc")
intSiteIndex = 0
For Each objChildObject In objW3svc
If (Err.Number <> 0) Then Exit For
If IsNumeric(objChildObject.Name) = True Then
arrSiteId(intSiteIndex) = CLng(objChildObject.Name)
intSiteIndex = intSiteIndex + 1
End If
Next
intCountDeleteSite = 0
For intDeleteId = 0 To intSiteIndex - 1
Set objIIs = objW3svc.GetObject("IIsWebServer", arrSiteId(intDeleteId)) '建立IIS虚拟站点对像
If Err.Number <> 0 Then
Exit For
Wscript.Echo "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear()
Wscript.Quit
End If
If Instr(Cstr(objIIs.ServerComment) , strCommentString) or Cstr(objIIs.ServerComment) = strCommentString Then
intSearched=1
End If
Set objIIsWeb=objIIs.GetObject("IIsWebVirtualDir","Root")
If intSearched=1 Then
strServerComment = objIIs.ServerComment
arrServerBindings = objIIs.ServerBindings '把IIS虚拟站点绑定的IP、端口、域名的值放入数组ServerBindings
strMaxConnections = objIIs.MaxConnections
Set objIIsWeb=objIIs.GetObject("IIsWebVirtualDir","Root")
strPath=objIIsWeb.Path
objW3svc.Delete "IISWebServer" , arrSiteId(intDeleteId)
Wscript.Echo "删除站点: " & strServerComment & "完成!"
strSearchedSite = strSearchedSite & strServerComment & vbTab & Join(arrServerBindings,",") & vbTab & strMaxConnections & vbTab & strPath & vbCrLf
intSearched = 0
intCountDeleteSite = intCountDeleteSite + 1
End If
Next
If intCountDeleteSite = 0 Then
Wscript.Echo vbCrLf & "未查找到要删除的站点信息!"
Else
Wscript.Echo vbCrLf & "共删除" & intCountDeleteSite & "个站点!"
objOutStream.Write "是否将已删除的站点信息存为备份文件？（YES，NO）："
strSaveToBackup=objInStream.ReadLine
If UCase(strSaveToBackup)="YES" Then
SaveToFile(strSearchedSite)
End If
End If
'*********************************************
Set objW3svc = Nothing
Set objChildObject = Nothing
Set objIIs = Nothing
Set objIIsWeb = Nothing
End Function
Function Delete_All_Site()
Wscript.Echo vbCrLf & "开始删除……" & vbCrLf
Set objW3svc = GetObject("IIS://LocalHost/W3svc")
intSiteIndex = 0
For Each objChildObject In objW3svc
If (Err.Number <> 0) Then Exit For
If IsNumeric(objChildObject.Name) = True Then
arrSiteId(intSiteIndex) = CLng(objChildObject.Name)
intSiteIndex = intSiteIndex + 1
End If
Next
intCountDeleteSite = 0
For intDeleteId = 0 To intSiteIndex - 1
Set objIIs = objW3svc.GetObject("IIsWebServer", arrSiteId(intDeleteId)) '建立IIS虚拟站点对像
If Err.Number <> 0 Then
Exit For
Wscript.Echo "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear()
Wscript.Quit
End If
arrServerBindings = objIIs.ServerBindings '把IIS虚拟站点绑定的IP、端口、域名的值放入数组ServerBindings
Set objIIsWeb=objIIs.GetObject("IIsWebVirtualDir","Root")
strServerComment = objIIs.ServerComment '把IIS虚拟站点的名称赋值给变量ServerComment
strMaxConnections = objIIs.MaxConnections
Set objIIsWeb=objIIs.GetObject("IIsWebVirtualDir","Root")
strPath=objIIsWeb.Path
objW3svc.Delete "IISWebServer" , arrSiteId(intDeleteId)
Wscript.Echo "删除站点: " & strServerComment & "完成!"
strSearchedSite = strSearchedSite & strServerComment & vbTab & Join(arrServerBindings,",") & vbTab & strMaxConnections & vbTab & strPath & vbCrLf
intCountDeleteSite = intCountDeleteSite + 1
Next
If intCountDeleteSite = 0 Then
Wscript.Echo vbCrLf & "未查找到要删除的站点信息!"
Else
Wscript.Echo vbCrLf & "共删除" & intCountDeleteSite & "个站点!"
objOutStream.Write "是否将已删除的站点信息存为备份文件？（YES，NO）："
strSaveToBackup=objInStream.ReadLine
If UCase(strSaveToBackup)="YES" Then
SaveToFile(strSearchedSite)
End If
End If
'*********************************************
Set objW3svc = Nothing
Set objChildObject = Nothing
Set objIIs = Nothing
Set objIIsWeb = Nothing
End Function
Function SaveToFile(strResult) '保存文件
objOutStream.Write "请输入保存的文件名："
strSaveFileName=objInStream.ReadLine
Set objFso=CreateObject("Scripting.FileSystemObject")
If objFso.FileExists(strSaveFileName) Then
Wscript.Echo "文件" & strSaveFileName & "已经存在!"
objOutStream.Write "是否追加写入文件？(Yes,No)"
strOverWrite = objInStream.ReadLine
If UCase(strOverWrite) = "YES" Then
Set objResultFile=objFso.OpenTextFile(strSaveFileName , ForAppending , True)
objResultFile.Write strResult
objResultFile.Close
Wscript.Echo "写入文件" & strSaveFileName & "完成!"
End If
If UCase(strOverWrite) = "NO" Then
objOutStream.Write "请重命名文件："
strSaveFileName = objInStream.ReadLine
Set objResultFile = objFso.CreateTextFile(strSaveFileName,True)
objResultFile.Write strResult
objResultFile.Close
Wscript.Echo "保存文件 " & strSaveFileNmae & " 完成!"
End If
Else
Set objResultFile = objFso.CreateTextFile(strSaveFileName , True)
objResultFile.Write strResult
objResultFile.Close
Wscript.Echo "保存文件 " & strSaveFileName & " 完成!"
End If
Set objFso = Nothing
End Function
Function CreateWebServer(strServerComment,arrServerBindings,strMaxConnections,strPath)'建立站点
On Error Resume Next
Set objW3svc = GetObject("IIS://LocalHost/W3svc")
intSiteIndex = 1
Do While IsObject(objW3svc.GetObject("IIsWebServer",intSiteIndex))
If Err.Number <> 0 Then
'Wscript.Echo Err.Description
Err.Clear()
Exit Do
End If
intSiteIndex = intSiteIndex + 1
Loop
Set objIIs = objW3svc.Create("IIsWebServer",intSiteIndex)
If Err.Number <> 0 Then
Wscript.Echo "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear()
CreateWebServer = 0
Exit Function
End If
objIIs.ServerSize = 1
objIIs.ServerComment = strServerComment
objIIs.ServerBindings = arrServerBindings
objIIs.MaxConnections = strMaxConnections
objIIs.EnableDefaultDoc = True
objIIs.SetInfo
Set objIIsWeb = objIIs.Create("IIsWebVirtualDir", "Root")
If Err.Number <> 0 Then
Wscript.Echo "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear()
CreateWebServer = 0
Exit Function
End If
objIIsWeb.Path = strPath
objIIsWeb.AccessRead = True
objIIsWeb.AccessWrite = False
objIIsWeb.EnableDirBrowsing = False
objIIsWeb.EnableDefaultDoc = True
objIIsWeb.AccessScript = True
objIIsWeb.AppIsolated = 2
objIIsWeb.AppCreate2 2
objIIsWeb.AppFriendlyName = "默认应用程序"
objIIsWeb.SetInfo
Set objW3svc = Nothing
Set objIIs = Nothing
Set objIIsWeb = Nothing
CreateWebServer = 1
End Function
Function HELP()
Wscript.Echo vbCrLf & " IIS Manager By Tom"
Wscript.Echo " Made By Tom"
Wscript.Echo " http://www.zz.la/" & vbCrLf
Wscript.Echo "Cscript iismanager.vbs [操作类型] [文件名]" & vbCrLf
Wscript.Echo "Backup （备份IIS站点信息到一个文本文件！）"
Wscript.Echo "Restore （从一个文本文件恢复IIS站点信息！）"
Wscript.Echo "ChangeIP （修改所有IIS站点IP！）"
Wscript.Echo "Change_App （修改所有IIS站点应用程序级别！）"
Wscript.Echo "Search （根据条件查找站点信息！）"
Wscript.Echo "DeleteSite (根据条件批量删除站点)" & vbCrLf
End Function
'想到的新功能
'备份功能增加一个备份站点数据的功能，通过RAR自动打包，默认打包到站点的上级目录，可选择打包的指定的目录
'增加建立隐藏虚拟目录的功能
'批量删除绑定的指定IP
'程序运行时判断IIS是否启动
'恢复站点绝对路径的ACL信息
//H:CScript 将默认的脚本宿主改为 CScript.exe
//H:WScript 将默认的脚本宿主改为 WScript.exe （默认）
//I 交互模式（默认，与 //B 相对)
//Job:xxxx 执行一个 WSF 工作
//Logo 显示徽标（默认）
//Nologo 不显示徽标：执行时不显示标志
//S 为该用户保存当前命令行选项
//T:nn 超时设定秒：允许脚本运行的最长时间
//X 在调试器中执行脚本
//U 用 Unicode 表示来自控制台的重定向 I/O
