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