ADSI控制目录权限和站点的应用

配置目录的存取权限
C:/Inetpub/AdminScripts>chaccess.vbs -a w3svc/1/ROOT -verbose
Usage: chaccess <--ADSPath|-a ADSPATH> 控制配置路径
[--computer|-c COMPUTER1[,COMPUTER2...]]指定机器名，IP也可。
[+read|-read] 主目录下的读取权限
[+write|-write]主目录下的写入权限
[+script|-script]主目录下的执行许可权限为纯脚本
[+execute|-execute]主目录下的执行许可权限为脚本和可执行程序
[+browse|-browse]主目录下的目录浏览权限
[--verbose|-v]当前版本
[--help|-?]
有问题请到我的博客讨论：http://blog.csdn.net/bigbird998 
显示指定路径的属性及状态信息
C:/Inetpub/AdminScripts>dispnode help
Usage: dispnode <--ADSPath|-a ADS PATH OF NODE> [--help|-h]
ADS PATH - The Path of the node to be displayed
Example 1: dispnode -a IIS://LocalHost/w3svc显示当前IIS的主属性
Example 2: dispnode --adspath IIS://MachineName/w3svc/1 显示当前站点的状态信息
寻找命名的Web,并显示节点号、描述、主机名、端口和IP地址
C:/Inetpub/AdminScripts>findweb
Web Site Number = 1
Web Site Description = 默认 Web 站点
Hostname =
Port = 80
IP Address =
C:/Inetpub/AdminScripts>findweb m7.net
Web Site Number = 2
Web Site Description = m7.net
Hostname = www.m7.net
Port = 80
IP Address = www.m7.net
有问题请到我的博客讨论：http://blog.csdn.net/bigbird998 
显示指定站点路径管理树
C:/Inetpub/AdminScripts>disptree.vbs help
Usage: disptree [--ADSPath|-a ROOT NODE] 指定要显示管理树的路径
[--NoRecurse|-n]
[--Help|-?]
有问题请到我的博客讨论：http://blog.csdn.net/bigbird998 
创建WEB虚拟站点
C:/Inetpub/AdminScripts>mkw3site help
Unknown argument help
Usage: mkw3site <--RootDirectory|-r ROOT DIRECTORY>网站路径名
<--Comment|-t SERVER COMMENT>WEB网站标识
[--computer|-c COMPUTER1[,COMPUTER2...]]
[--port|-o PORT NUM]端口
[--IPAddress|-i IP ADDRESS]IP地址
[--HostName|-h HOST NAME]主机名
[--SiteNumber|-n SITENUMBER]
[--DontStart]不启动
[--verbose|-v]
[--help|-?]
有问题请到我的博客讨论：http://blog.csdn.net/bigbird998 
创建指定站点的虚拟目录
C:/Inetpub/AdminScripts>mkwebdir.vbs help
Usage: mkwebdir [--computer|-c COMPUTER1,COMPUTER2]指定服务器名
<--website|-w WEBSITE1>指定虚拟站点名
<--virtualdir|-v NAME1,PATH1,NAME2,PATH2,...>指定虚拟目录名和目录文件地址
[--help|-?]
Example : mkwebdir -c MyComputer -w "Default Web Site"
-v "dir1","c:/inetpub/wwwroot/dir1","dir2","c:/inetpub/wwwroot/dir2"
有问题请到我的博客讨论：http://blog.csdn.net/bigbird998 
暂停指定站点的IIS服务
C:/Inetpub/AdminScripts>pausesrv help
Usage: pausesrv <--ADSPath|-a server1[,server2,server3...]>
[--computer|-c COMPUTER1[,COMPUTER2...]]
[--verbose|-v]
[--help|-?]
Example 1: pausesrv -a w3svc/1,msftpsvc/2
Example 2: pauseftp -c MACHINE1,MACHINE2,MACHINE3 -a w3svc/1,msftpsvc/2
恢复暂停的站点的IIS服务
C:/Inetpub/AdminScripts>contsrv.vbs help
Usage: contsrv <--ADSPath|-a server1[,server2,server3...]>
[--computer|-c COMPUTER1[,COMPUTER2...]]
[--verbose|-v]
[--help|-?]
Example 1: contsrv -a w3svc/1,msftpsvc/2
Example 2: contsrv -c MACHINE1,MACHINE2,MACHINE3 -a w3svc/1,msftpsvc/2
有问题请到我的博客讨论：http://blog.csdn.net/bigbird998 
用法同上
pauseftp.vbs 暂停FTP服务器服务
contftp.vbs 恢复被暂停的FTP服务
pauseweb.vbs 暂停Web服务器服务
contweb.vbs 恢复暂停的WWW服务

停止指定站点的IIS服务器服务
C:/Inetpub/AdminScripts>stopsrv.vbs -a w3svc/2
启动指定站点的IIS服务器服务
C:/Inetpub/AdminScripts>startsrv.vbs -a w3svc/2
有问题请到我的博客讨论：http://blog.csdn.net/bigbird998 
停止指定站点的WEB服务器服务
C:/Inetpub/AdminScripts>startweb.vbs -a w3svc/2
启动指定站点的Web服务器服务
C:/Inetpub/AdminScripts>stopweb.vbs -a 2
用法同上
stopftp.vbs 停止FTP服务器服务
startftp.vbs 启动FTP服务器服务
跟踪脚本的执行
C:/Inetpub/AdminScripts>synciwam.vbs -h
Usage: cscript synciwam.vbs [-v|-h]
-v verbose: trace execution of the script
-h help: print this message

把脚本贴上，大家研究下～～
 

'------------------------------------------------------------------------------------------------
'有问题请到我的博客讨论：http://blog.csdn.net/bigbird998 
'
' Usage: chaccess <--ADSPath|-a relative config store path>
'                          [--computer|-c COMPUTER1[,COMPUTER2...]]
'                          [+read|-read]
'                          [+write|-write]
'                          [+script|-script]
'                          [+execute|-execute]
'                          [+browse|-browse]
'         [--verbose|-v]
'                          [--help|-?]
'
' ADSPATH               The ADSI Path of the virtual root in question
'
' Example 1: chaccess -a w3svc/1/ROOT +read -write +script +browse
'------------------------------------------------------------------------------------------------


' Force explicit declaration of all variables
Option Explicit

On Error Resume Next

Const Error_NoNode = "Unable to open specified node."

Dim oArgs, ArgNum, verbose, propNum, ArgPath
Dim ArgComputers
Dim prop(15,2)

verbose = false
propNum = 0
ArgNum = 0
ArgPath = ""
ArgComputers = Array("LocalHost")

Set oArgs = WScript.Arguments
While ArgNum < oArgs.Count
 Select Case LCase(oArgs(ArgNum))
  Case "--adspath", "-a":
   ArgNum = ArgNum + 1
   ArgPath = oArgs(ArgNum) 
  Case "--computer","-c":
   ArgNum = ArgNum + 1
   ArgComputers = Split(oArgs(ArgNum), ",", -1)
  Case "--verbose", "-v":
   verbose = true
  Case "-read":
   prop(propNum,0) = "AccessRead"
   prop(propNum,1) = false
   propNum = propNum + 1
  Case "+read":
   prop(propNum,0) = "AccessRead"
   prop(propNum,1) = true
   propNum = propNum + 1
  Case "-write":
   prop(propNum, 0) = "AccessWrite"
   prop(propNum, 1) = false
   propNum = propNum + 1
  Case "+write":
   prop(propNum, 0) = "AccessWrite"
   prop(propNum, 1) = true
   propNum = propNum + 1
  Case "-script":
   prop(propNum, 0) = "AccessScript"
   prop(propNum, 1) = false
   propNum = propNum + 1
  Case "+script":
   prop(propNum, 0) = "AccessScript"
   prop(propNum, 1) = true
   propNum = propNum + 1
  Case "-execute":
   prop(propNum, 0) = "AccessExecute"
   prop(propNum, 1) = false
   propNum = propNum + 1
  Case "+execute":
   prop(propNum, 0) = "AccessExecute"
   prop(propNum, 1) = true
   propNum = propNum + 1
  Case "-browse":
   prop(propNum, 0) = "EnableDirBrowsing"
   prop(propNum, 1) = false
   propNum = propNum + 1
  Case "+browse":
   prop(propNum, 0) = "EnableDirBrowsing"
   prop(propNum, 1) = true
   propNum = propNum + 1
  Case "--help","-?":
   Call DisplayUsage
  Case Else:
   Call DisplayUsage
 End Select 
 ArgNum = ArgNum + 1
Wend

If (ArgPath="") Then
 Call DisplayUsage
End If


Dim compIndex
for compIndex = 0 to UBound(ArgComputers)
 Call ASTSetPerms(ArgComputers(compIndex), ArgPath, prop, propNum)
next

Sub ASTSetPerms(Computer, Path, propList, propCount)
 On Error Resume Next
 Dim oAdmin
 Dim fullPath
 fullPath = "IIS://"&Computer&"/"&Path
 Trace "Opening path " & fullPath
 Set oAdmin = GetObject(fullPath)
 If Err.Number <> 0 Then
  Display Error_NoNode
  WScript.Quit (1)
 End If
 
 Dim name, val
 if propCount > 0 then
  Dim i

  for i = 0 to propCount-1
   
   val = propList(i,1)
   if verbose = true then
    Trace "Setting "&fullPath&"/"&name&" = "& val
   end if
   oAdmin.Put name, (val)
   If Err <> 0 Then
    Display "Unable to set property "&name
   End If
  next
  oAdmin.SetInfo
  If Err <> 0 Then
   Display "Unable to save updated information."
  End If
 end if
End Sub

Sub Display(Msg)
 WScript.Echo Now & ". Error Code: " & Hex(Err) & " - " & Msg
End Sub

Sub Trace(Msg)
 if verbose = true then
  WScript.Echo Now & " : " & Msg 
 end if
End Sub

Sub DisplayUsage
 WScript.Echo "Usage: chaccess <--ADSPath|-a ADSPATH>"
    WScript.Echo "                [--computer|-c COMPUTER1[,COMPUTER2...]]"
 WScript.Echo "                [+read|-read]"
 WScript.Echo "                [+write|-write]"
 WScript.Echo "                [+script|-script]"
 WScript.Echo "                [+execute|-execute]"
 WScript.Echo "                [+browse|-browse]"
 WScript.Echo "                [--verbose|-v]"
 WScript.Echo "                [--help|-?]"
 WScript.Echo "Example 1: chaccess -a w3svc/1/ROOT +read -write +script +browse"
 WScript.Echo "Example 2: chaccess -c MACHINE1,MACHINE2,MACHINE3 -a w3svc/1/ROOT +read -write +script +browse"
WScript.Quit (1)
End Sub

 

 

 

'------------------------------------------------------------------------------------------------
'有问题请到我的博客讨论：http://blog.csdn.net/bigbird998 
' Usage: stopsrv <--ADSPath|-a server1[,server2,server3...]>
'                          [--help|-?]
'
' SERVERx         Relative ADSI path to the server to be Stopped
'
' Example 1: stopsrv -a IIS://LocalHost/w3svc/3,IIS://LocalHost/w3svc/1
'------------------------------------------------------------------------------------------------

' Force explicit declaration of all variables.
Option Explicit

On Error Resume Next

Dim oArgs, ArgNum, ArgServerList
Dim verbose
Dim ArgComputers

ArgComputers = Array("LocalHost")
verbose = false

Set oArgs = WScript.Arguments
ArgNum = 0
While ArgNum < oArgs.Count

 Select Case LCase(oArgs(ArgNum))
  Case "--adspath","-a":
   ArgNum = ArgNum + 1
   ArgServerList=Split(oArgs(ArgNum), ",", -1)
  Case "--computer","-c":
   ArgNum = ArgNum + 1
   ArgComputers = Split(oArgs(ArgNum), ",", -1)
  Case "--verbose", "-v":
   verbose = true
  Case "--help","-?":
   Call DisplayUsage
  Case Else:
   Call DisplayUsage
 End Select 

 ArgNum = ArgNum + 1
Wend

If Not IsArray(ArgServerList) Then
 Call DisplayUsage
End If

Dim compIndex

for compIndex = 0 to UBound(ArgComputers)
 Call ASTStopServers(ArgComputers(compIndex),ArgServerList)
next

Sub ASTStopServers(Computer, ServerList)
 Dim ServerNum, oServer
 On Error Resume Next

 ServerNum = 0
 Dim fullPath

 While ServerNum <= UBound(ServerList)
  fullPath = "IIS://"&Computer&"/"&ArgServerList(ServerNum)
  Trace "Stopping " & fullPath & "."
  Set oServer = GetObject(fullPath)
  If Err <> 0 Then
   Display "Unable to open " & fullPath & "."
  End If
  oServer.Stop
  If Err <> 0 Then
   Display "Unable to stop server " & fullPath & "."
  End If
  ServerNum = ServerNum + 1
 Wend 
End Sub

Sub DisplayUsage
 WScript.Echo "Usage: stopsrv <--ADSPath|-a server1[,server2,server3...]>"
    WScript.Echo "               [--computer|-c COMPUTER1[,COMPUTER2...]]"
 WScript.Echo "               [--verbose|-v]"
 WScript.Echo "               [--help|-?]"
 WScript.Echo "Note: server1, server2, etc. is machine relative server name,"
 WScript.Echo "including the service name"
 WScript.Echo "Example 1: stopsrv -a w3svc/1,msftpsvc/2"
 WScript.Echo "Example 2: stopftp -c MACHINE1,MACHINE2,MACHINE3 -a w3svc/1,msftpsvc/2"
 WScript.Quit (1)
End Sub

Sub Display(Msg)
 WScript.Echo Now & ". Error Code: " & Hex(Err) & " - " & Msg
End Sub

Sub Trace(Msg)
 if verbose = true then
  WScript.Echo Now & " : " & Msg 
 end if
End Sub