组件下载地址http://www.w120.com/buy/down.htm
文章转自http://www.w120.com/product/readme04.htm

设定Windows用户属性:用户全名abc.com,用户名abc.com,用户密码abc.com,所属用户组Guests

添加Windows用户
<%
Dim obj
Dim b
set obj = server.createobject("HostManage.SiteManage")
b = obj.PostNTUser("adduser","abc.com","abc.com","abc.com","Guests")
if b then
response.write "成功"
else
response.write "失败"
end if
set obj = nothing
%>


编辑Windows用户
<%
Dim obj
Dim b
set obj = server.createobject("HostManage.SiteManage")
b = obj.PostNTUser("edituser","abc.com","abc.com","abc.com","Guests")
if b then
response.write "成功"
else
response.write "失败"
end if
set obj = nothing
%>


删除windows用户
<%
Dim obj
Dim b
set obj = server.createobject("HostManage.SiteManage")
b = obj.PostNTUser("deluser","abc.com","abc.com","abc.com","Guests")
if b then
response.write "成功"
else
response.write "失败"
end if
set obj = nothing
%>

把windows用户添加到Windows组里
<%
Dim obj
Dim b
set obj = server.createobject("HostManage.SiteManage")
b = obj.PostNTUser("addusertogroup","abc.com","abc.com","abc.com","Guests")
if b then
response.write "成功"
else
response.write "失败"
end if
set obj = nothing
%>

从Windows组里删除Windows用户
<%
Dim obj
Dim b
set obj = server.createobject("HostManage.SiteManage")
b = obj.PostNTUser("delusertogroup","abc.com","abc.com","abc.com","Guests")
if b then
response.write "成功"
else
response.write "失败"
end if
set obj = nothing
%>