发信人: netcore (thank), 信区: ASP
标 题: Example 4: Adding a User to a Group
发信站: 网易虚拟社区 (Tue Mar 23 22:04:19 1999), 站内信件
<%
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://club.netease.com.[FROM: 202.96.156.100]
|