最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
添加服务器操作员, from zdtips, in english
时间:2008-01-12 编辑:简简单单 来源:一聚教程网
Occasionally, you might want to add server operators for the FTP- or
WWW-server with ADSI. The VBScript below (which can also be translated to
ASP) shows an sample way of accomplishing this task.
'
' AddAdmin.vbs - Add an administrator to FTP, W3, NNTP or SMTP Service
'
' Usage: addadmin
'
' Without changes the script must run on the local webserver.
' User in the form
'
Option Explicit
Dim iis
Dim acl
Dim sd
Dim ace
Dim acc
Dim arg
Dim net
Set arg = Wscript.Arguments
If arg.count < 1 Then
Wscript.Echo "Usage: addadmin
Wscript.Quit
End If
Set net = CreateObject("Wscript.Network")
Select Case Ucase(arg(0))
Case "FTP" Set iis = GetObject("IIS://" & net.computerName
& "/MSFTPSVC/1")
Case "W3" Set iis = GetObject("IIS://" & net.computerName
& "/W3SVC/1")
Case "NNTP" Set iis = GetObject("IIS://" & net.computerName
& "/NNTPSVC/1")
Case "SMTP" Set iis = GetObject("IIS://" & net.computerName
& "/SmtpSvc/1")
Case Else
Wscript.Echo "Usage: addadmin
Wscript.Quit
End Select
Set sd = iis.AdminACL
Set acl = sd.DiscretionaryAcl
If arg.Count = 2 Then
Set ace = CreateObject("AccessControlEntry")
ace.Trustee = arg(1)
ace.AccessMask = &HB
I did not find the real permissions (ACTRL_??? bits) description for
AccessMask, but I've copied it from a manual added entry. You can see the
bits running this script without specifying an user
acl.AddAce ace
iis.AdminAcl = sd
iis.SetInfo
Else
For Each ace In acl
Wscript.Echo ace.Trustee & " (0x" &
Hex(ace.AccessMask) & ")"
Next
End If
-
上一个: 为字符串中的网址加上链接的程序例子
-
下一个: 正则表达式在网络编程中的运用(5)
相关文章
- 无线网连接提示没有有效的IP配置解决方法 03-08
- javascript实现下雨效果 07-28
- javascript实现圣旨卷轴展开效果(代码分享) 07-20
- JavaScript实现星星等级评价功能 07-14
- javascript实现滑动解锁功能 07-14
- 十大热门的JavaScript框架和库 07-13