Dziś ktoś na forum WSS.pl potrzebował sposobu informowania użytkowników o terminie wygasania hasła. Przypomniało mi się że kiedyś napisałem skrypt, który informuje o tym użytkownika. Może Wam się też przyda:
On Error Resume Next
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
strMessage = "Haslo wygasnie: " & objUser.PasswordLastChanged + 43
strTitle = "Twoje konto: "& objUser.sAMAccountName
Msgbox strMessage , 0, strTitle
Zawartość należy zapisać do pliku o rozszerzeniu VBS i skopiować użytkownikom na przykład na pulpit.
Hi,Great blog with interesting informations. I can use it t solve my problem.ThanxM.http://www.vanjobb.hu/