发信人: netcore (thank), 信区: ASP
标 题: Example : Checking the Domain for a User
发信站: 网易虚拟社区 (Tue Mar 23 22:01:55 1999), 站内信件
<%
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://club.netease.com.[FROM: 202.96.156.100]
|