社区
ASP
帖子详情
ADSI的问题,请高手解答!
retag
2003-12-15 06:24:13
Set WWWServer=GetObject("IIS://LocalHost/W3SVC/1")
ServerComment=WWWServer.Get("ServerComment")
'已知该站点存在,ServerComment可以获取其站点名称,不知如何获取该站点的状态?(启动 暂停 停止)
...全文
39
6
打赏
收藏
ADSI的问题,请高手解答!
Set WWWServer=GetObject("IIS://LocalHost/W3SVC/1") ServerComment=WWWServer.Get("ServerComment") '已知该站点存在,ServerComment可以获取其站点名称,不知如何获取该站点的状态?(启动 暂停 停止)
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
leiaming
2003-12-16
打赏
举报
回复
给大家谈谈技术相关的
retag
2003-12-16
打赏
举报
回复
问题已解决!
.ServerState
用for语句循环得到190多个属性,呵呵:)
swich
2003-12-16
打赏
举报
回复
ding
retag
2003-12-16
打赏
举报
回复
顶一下!
lions911
2003-12-16
打赏
举报
回复
接点分,凑个热闹:
下面就是一个ADSI脚本,它的作用就是在域中创建一个用户帐户:
On Error Resume Next
strUser="UserID"
Set oDomain=GetObject("WinNT://YourDomain")
Set oUser=oDomain.Create ("user", strUser)
If (err.number=0) Then '如果不为0,则说明此用户名已经存在
oUser.SetInfo
oUser.SetPassword "mypassword"
oUser.SetInfo
End If
如果你安装了resource kit,这段代码主要利用netcom这条命令进行工作,下面是netcom的一个例子:
NETDOM /Domain:MYDOMAIN /user:adminuser /password:apassword MEMBER MYCOMPUTER /ADD
下面是一段代码:
'***********************
'* Start Script
'***********************
Dim sComputerName, sUserOrGroup, sPath, computerContainer, rootDSE, lFlag
Dim secDescriptor, dACL, ACE, oComputer, sPwd
'*********************************************************************
'* 声明机器帐户,定义机器帐户标记和安全标记
'*********************************************************************
Const UF_WORKSTATION_TRUST_ACCOUNT = &H1000
Const UF_ACCOUNTDISABLE = &H2
Const UF_PASSWD_NOTREQD = &H20
Const ADS_GUID_COMPUTRS_CONTAINER = "aa312825768811d1aded00c04fd8d5cd"
Const ADS_ACETYPE_ACCESS_ALLOWED = 0
Const ADS_ACEFLAG_INHERIT_ACE = 2
lFlag = UF_WORKSTATION_TRUST_ACCOUNT Or UF_ACCOUNTDISABLE Or UF_PASSWD_NOTREQD
sComputerName = "TestAccount"
'*********************************************************************
'* 创建AD窗口用于容纳客户
'*********************************************************************
Set rootDSE = GetObject("LDAP://RootDSE")
sPath = "LDAP://<WKGUID=" & ADS_GUID_COMPUTRS_CONTAINER
sPath = sPath + ","
sPath = sPath + rootDSE.Get("defaultNamingContext")
sPath = sPath + ">"
Set computerContainer = GetObject(sPath)
sPath = "LDAP://" & computerContainer.Get("distinguishedName")
Set computerContainer = GetObject(sPath)
Set oComputer = computerContainer.Create("computer", "CN=" & sComputerName)
oComputer.Put "samAccountName", sComputerName + "$"
oComputer.Put "userAccountControl", lFlag
oComputer.SetInfo
'*********************************************************************
'* 设置密码
'*********************************************************************
sPwd = sComputerName & "$"
sPwd = LCase(sPwd)
oComputer.SetPassword sPwd
sUserOrGroup = "MYDOMAIN\joesmith"
Set secDescriptor = oComputer.Get("ntSecurityDescriptor")
Set dACL = secDescriptor.DiscretionaryAcl
Set ACE = CreateObject("AccessControlEntry")
'*********************************************************************
'* -1代码完全控制
'*********************************************************************
ACE.AccessMask = -1
ACE.AceType = ADS_ACETYPE_ACCESS_ALLOWED
ACE.AceFlags = ADS_ACEFLAG_INHERIT_ACE
ACE.Trustee = sUserOrGroup
dACL.AddAce ACE
secDescriptor.DiscretionaryAcl = dACL
oComputer.Put "ntSecurityDescriptor", Array(secDescriptor)
oComputer.SetInfo
oComputer.AccountDisabled = False
oComputer.SetInfo
wscript.echo "The command completed successfully."
'*****************
'* End Script
'*****************
如果希望更新一个已存在用户的信息可以使用下面的代码:
set user=GetObject("WinNT://domain/user")
User.FullName=FirstNameVar
User.HomeDirectory=UserHome
User.Profile="\\Server\Share\user"
User.LoginScript=LogonScript
User.Description="Description"
User.setinfo
至于创建一个组,下面的代码就可以了:
strGroup="NewGroupName"
Set oDomain = GetObject("WinNT://YourDomain")
Set oGroup = oDomain.Create ("group", strGroup)
oGroup.SetInfo
享受人生-快乐成长
2003-12-15
打赏
举报
回复
帮UP
真正的10倍网络加速
真的出了
问题
请
再找高
高手
解答
。区区是有心无力的。 成功后也不要太得意忘形,因为大多数网站都有速度限制,只有当连接到真正优秀的链接,每秒超过4M的速度才能真正体现 <br>-------------------------------...
真正加速宽带方法
真正的宽带加速方法!...真的出了
问题
请
再找高
高手
解答
。区区是有心无力的。 成功后也不要太得意忘形,因为大多数网站都有速度限制,只有当连接到真正优秀的链接,每秒超过4M的速度才能真正体现
电脑疑难
问题
42问及
解答
!!
1问:
请
问操作系统是XP,ip地址释放不掉,是什么原因。 答:XP的IP地址是自动获得的,你可以先把本地连接给禁用然后在启用本地连接,XP...用f8,提示是你的机器无法正常启动,可能是由于硬件或软件的最新变动所致,
请
卡巴优化设置及常见
问题
解答
卡巴优化设置及常见
问题
解答
OpenSolaris/Solaris 常见
问题
解答
本文转载于 http://blog.chinaunix.net/uid-11193716-id-2896321.html OpenSolaris/Solaris中文FAQ (2008-08-04 19:30) ...1.本文档只覆盖Solaris 9及以后的平台上的常见
问题
2.S9/10/11 分别对应目前Sol
ASP
28,409
社区成员
356,971
社区内容
发帖
与我相关
我的任务
ASP
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
复制链接
扫一扫
分享
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章