28,390
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
HuHu 2000-06-23
- 打赏
- 举报
1：简而言之，如果你的服务器主机名是XyServer,那么
set oDomain=GetObject("WinNT://XyServer")
也就是得到服务器XyServer(PDC)所管理的域名；
2：IIS账号需要管理员权限来运行此段代码；
3: 代码没问题，copy & paste,then run it in InterDev,Everything
Can Be OK!!
4: 另外，可自己写个组件以避免IIS运行于管理员账号，我正在着手此事，
不过如果是内部网可以不必考虑，或使用Ip地址限制访问权限，我想真
正的放在互联网上的主机没有必要为了贪图这么小的方便而牺牲安全性吧？
set oDomain=GetObject("WinNT://XyServer")
也就是得到服务器XyServer(PDC)所管理的域名；
2：IIS账号需要管理员权限来运行此段代码；
3: 代码没问题，copy & paste,then run it in InterDev,Everything
Can Be OK!!
4: 另外，可自己写个组件以避免IIS运行于管理员账号，我正在着手此事，
不过如果是内部网可以不必考虑，或使用Ip地址限制访问权限，我想真
正的放在互联网上的主机没有必要为了贪图这么小的方便而牺牲安全性吧？
cjlong 2000-06-21
- 打赏
- 举报
huhu你太棒了！！！！
我管理的局域网次用户申请后都要我自己设，太累了！！！
我不太懂Set oDomain = GetObject("WinNT://YourServer")，
能给我点详细资料吗？？？？
谢谢！！！
我管理的局域网次用户申请后都要我自己设，太累了！！！
我不太懂Set oDomain = GetObject("WinNT://YourServer")，
能给我点详细资料吗？？？？
谢谢！！！
siyu 2000-06-21
- 打赏
- 举报
代码好象不全.....我也想知道！请大虾指教！
HuHu 2000-06-01
- 打赏
- 举报
用ADSI可以实现，示例代码如下：
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
Dim oDomain
Dim oUser
Response.Write "Creating a new user...<BR>"
'bind to a computer or PDC
Set oDomain = GetObject("WinNT://YourServer")
'!!!!!!!!!!!!!!!!!!!!!!!
'create the user need to be a domain admin to execute this script
'!!!!!!!!!!!!!!!!!!!!!!!
Set oUser = oDomain.Create("User", "newADSIuser")
'persist the user
oUser.SetInfo
'assign a default password
oUser.SetPassword("HuHu")
'persist the password
oUser.SetInfo
Response.Write "Done...<BR>"
%>
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
Dim oDomain
Dim oUser
Response.Write "Creating a new user...<BR>"
'bind to a computer or PDC
Set oDomain = GetObject("WinNT://YourServer")
'!!!!!!!!!!!!!!!!!!!!!!!
'create the user need to be a domain admin to execute this script
'!!!!!!!!!!!!!!!!!!!!!!!
Set oUser = oDomain.Create("User", "newADSIuser")
'persist the user
oUser.SetInfo
'assign a default password
oUser.SetPassword("HuHu")
'persist the password
oUser.SetInfo
Response.Write "Done...<BR>"
%>
