发信人: 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]
|
|