精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● ASP>>组件应用>>ADSI & 目录服务>>Example 5: Configuring the User

主题:Example 5: Configuring the User
发信人: netcore()
整理人: qcrsoft(2002-05-14 01:50:33), 站内信件

<%

strDomain="MACHINENAME"
strUser="jdoe"

Set oUser = GetObject("WinNT://" & strDomain & "/" & strUser)

' Setting the Account Expiration to 30 days from today

dtExpirationDate=Now()
dtExpirationDate=DateAdd("d",30,dtExpirationDate)

oUser.AccountExpirationDate = dtExpirationDate

' Setting the Full Name of the User
oUser.FullName="Joe Doe"

oUser.SetInfo()

Set oUser=Nothing

%>

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

[关闭][返回]