如何让用户密码在快过期时.docVIP

如何让用户密码在快过期时，发邮件提醒用户更改密码 标签：更改密码 用户 OWA 邮件 通知 ??????? 大家都知道，在域环境中，组策略中可以设置当用户密码快过期时，电脑登录会有提示，但当用户出差，或是用OWA方式访问时，并不会收到相关提示，而导致道密码过期而无法收发邮件！ ?????? 下面的方法，就是教大家，如何让用户密码在快过期时，发邮件提醒用户更改密码，让用户去OWA中去更改自已的密码，不至于发生密码过期，用户并不知道，而无法收发邮件！ 以下是在AD、Exchange环境下，用邮件的方式通知用户密码到期提示的脚本，需要使用的，请将其路的D和Domain改成你的域名，ADserver/Mailserver改为你的AD和Exchange的机器名，然后COPY下面的脚本存为.vbs格式，放在DC中，设置Scheduled Tasks，让其每天在固定时间执行！ 注：此脚本文件会和组策略中的密码策略相对应！ 此脚本为微软工程师专为某企业而写的，在些对其表示感谢！ ********************************************************************* Main Function: 從AD中比對每一個使用者的Password LastSet,如果距離過期日剩30,15,3,2,1的使用者,則發信通知** Usage: ?? For Example : cscript QuerryAD.vbs** Copyright (C) 2004 Microsoft Corporation********************************************************************Option Explicit For FileSystemObjectConst ForReading = 1Const ForAppending = 8Const ForWriting = 2Const ADS_PROPERTY_DELETE = 4? dim arrWillExpiredDays Please modify the variableCONST MASTERMAIL = administrator@??????????寄信人的Email Addressconst strSMTPServer = mailserver??????????????寄信ExchangeServer?const strSendUserName = domainname\ACCOUNT?????????有權限的使用者(寄信使用)const strSendPassword? = PASSWORD?????????????密碼const strFullAdsiPath = LDAP://DC/dc=domainname,dc=com???LDAP路徑arrWillExpiredDays = Array(15,7,3,2,1)????????????將要過期天數的陣列 Main Function Declare variablesDim strTestModestrTestMode = False? use for debuging Cretae log fileSet WshSHell = CreateObject(Wscript.Shell)Set objFSO = CreateObject(Scripting.FileSystemObject)?strFileName = Replace(Datevalue(Now), -, _)strFileName = Replace(strFileName, /, _)?Public fLogSet oLog = objFSO.OpenTextFile(strFileName .txt, ForWriting, TRUE) PrintScreen NowPrintScreen ?sta = ListWillExpireUsers() PrintScreen sta PrintScreen PrintScreen The command runs successfully!PrintScreen Now?oLog.Close Program endingwscript.quit ====================================== Function Area? ====================================== ****************************************************