精华区 [关闭][返回]
当前位置：网易精华区>>讨论区精华>>编程开发>>● ASP>>组件应用>>ADSI & 目录服务>>Example : Checking the Domain for a Us

主题：Example : Checking the Domain for a Us
发信人: netcore()
整理人: qcrsoft(2002-05-14 01:50:33), 站内信件
<%

On Error Resume Next

strDomain="MACHINENAME"
strUser="jdoe"

Set oDomain = GetObject("WinNT://" & strDomain)

Set oUser = oDomain.Create ("user", strUser)

If (err.number = 0) Then
oUser.SetInfo
oUser.SetPassword "mypassword"
oUser.SetInfo
Set oUser=Nothing
End If

Set oDomain=Nothing

%>

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