Kiedy wygaśnie hasło – skrypt

Posted: 29 maja 2007 in Computers and Internet

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.

Advertisements
Komentarze
  1. Unknown pisze:

    Hi,Great blog with interesting informations. I can use it t solve my problem.ThanxM.http://www.vanjobb.hu/

Skomentuj

Wprowadź swoje dane lub kliknij jedną z tych ikon, aby się zalogować:

Logo WordPress.com

Komentujesz korzystając z konta WordPress.com. Log Out / Zmień )

Zdjęcie z Twittera

Komentujesz korzystając z konta Twitter. Log Out / Zmień )

Facebook photo

Komentujesz korzystając z konta Facebook. Log Out / Zmień )

Google+ photo

Komentujesz korzystając z konta Google+. Log Out / Zmień )

Connecting to %s