精华区 [关闭][返回]
当前位置：网易精华区>>讨论区精华>>编程开发>>● ASP>>组件应用>>ADSI & 目录服务>>Example 4: Adding a User to a Group

主题：Example 4: Adding a User to a Group
发信人: netcore()
整理人: qcrsoft(2002-05-14 01:50:33), 站内信件


<%

strDomain="MACHINENAME"
strUser="jdoe"
strGroup="Unidentified"

Set oDomain = GetObject("WinNT://" & strDomain)
Set oGroup = oDomain.GetObject("Group", strGroup)

oGroup.Add ("WinNT://" & strDomain & "/" & strUser)

Set oDomain=Nothing
Set oGroup=Nothing

%>

--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.96.156.100]
[关闭][返回]