请教高手!!一段ADSI代码的问题!!!

lzh4481 2001-11-12 09:42:31
以下代码打**号的一句有问题。
错误类型:
服务器对象, ASP 0177 (0x800401F3)
无效的 ProgID。 该怎样解决呢????????????????
另:这段代码将**句改为:
Set rootDSE = GetObject("LDAP://rootDSE")后,在VB里完全正常!


<%
Dim strGroupCN 'As String
Dim grp 'As ActiveDs.IADsGroup
Dim mbr 'As ActiveDs.IADs
Dim rootDSE 'As ActiveDs.IADs
Dim ServerName 'As String
Dim DomainName 'As String


'Build the "LDAP" string to the group
strGroupCN = "cn=" & "shenhe"
** Set rootDSE = Server.CreateObject("LDAP://rootDSE")
DomainName = rootDSE.Get("defaultNamingContext")
ServerName = Mid(rootDSE.Get("dnshostname"), 1, InStr(rootDSE.Get("dnshostname"), ".") - 1)

'get the Group object
Set grp = CreateObject ("LDAP://" & ServerName & "/" & strGroupCN & ",ou=recipients," & DomainName)

%>
...全文
75 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
hyper2k 2001-11-18
我只会VBScript的代码:
set rootDSE = getobject("LDAP://rootDSE")
sDomain = rootDSE.get("defaultNamingContext")
set Domain = getobject("LDAP://" + sDomain)
sADsPath = Domain.ADsPath
set objs = getobject("LADP://OU=test, OU=ou1, " + sDomain
objs.Filter = array("group")
for each grp in objs
msgbox grp.name + vbCRLF + grp.ADsPath
next
回复
phaqyxiao 2001-11-15
我知道你要干吗?抄下面这段吧!
Set oNet = CreateObject("wscript.network")
strcomputername = oNet.ComputerName
Set oDS = GetObject("LDAP://RootDSE")
Domain = oDS.Get("defaultNamingContext")
dnsname = oDS.Get("DnsHostName")
iLoc = InStr(1, dnsname, ".")
If iLoc <> 0 Then
newdnsname = Mid(dnsname, iLoc + 1, (Len(dnsname) - iLoc))
End If
strDomainName = newdnsname
回复
lzh4481 2001-11-13
我的exchange, vb,所有的操作都在一台机子上!
回复
lzh4481 2001-11-13
奇怪!!我在ASP页面里将**句改为GetObject后,也正常了!!

但在另一个地方有一句Set SysInfo = GetObject("ActiveDs.ADSystemInfo")在VB和ASP页面里都不可以!在VB里换成Set SysInfo = New ActiveDs.ADSystemInfo后正常了!在ASP里换成
Set SysInfo = Server.CreateObject("ActiveDs.ADSystemInfo")还是不行!

set ... = new ....
set ... = GetObject (...)
set ... = CreateObject (...)
set ... = server.createobject(...)
到底有些什么区别??????
回复
LiXun 2001-11-13
Server.Createobject是在服务器端建立对象,你可能没有适当的权限,而在VB中用GetObect是调用本地的对象
回复
相关推荐
发帖
消息协作
创建于2007-08-27

523

社区成员

企业开发 Exchange Server
申请成为版主
帖子事件
创建了帖子
2001-11-12 09:42
社区公告
暂无公告