[win7] extra Password expiry notification genereren?

[nasdude]

Onze windows 7 gebruikers krijgen 10 dagen voor het uiterlijke verloop van hun wachtwoord een balloon notification dat ze hun wachtwoord opnieuw moeten instellen, als je die 3x weg drukt krijg je geen herinnering meer.

Is het wachtwoord verlopen dan kan de medewerker in kwestie niet meer inloggen op VPN (AD-Authentication) en vallen ze mij lastig om hun WW te resetten. ergens is dit luiheid van de gebruiker, maar ik moet zeggen dat het mij ook wel eens is overkomen.

Ik heb een stukje vbs script wat de password expiry status van de medewerker opvraagt uit het domein en een popup geeft als deze korter is dan 5 dagen.

Als ik dit script laat lopen bij de logon krijgen de mensen in iedergeval ene melding die ze moeten weg klikken, zelf hibernate ik mijn machine altijd dus ik krijg die melding nooit te zien, bij logon is dus geen optie.

Welke manier kan ik gebruiken om de melding bij iedereen in beeld te krijgen (liefst paar keer per dag)? task schedular?

code:

Dim oDomain
Dim oUser
Dim maxPwdAge
Dim numDays
Dim warningDays

warningDays = 5

Set LoginInfo = CreateObject("ADSystemInfo")  
Set objUser = GetObject("LDAP://" & LoginInfo.UserName & "")  
strDomainDN = UCase(LoginInfo.DomainDNSName) 
strUserDN = LoginInfo.UserName


Set oDomain = GetObject("LDAP://" & strDomainDN)
Set maxPwdAge = oDomain.Get("maxPwdAge")

'========================================
' Calculate the number of days that are
' held in this value.
'========================================
numDays = CCur((maxPwdAge.HighPart * 2 ^ 32) + _
                maxPwdAge.LowPart) / CCur(-864000000000)


'========================================
' Determine the last time that the user
' changed his or her password.
'========================================
Set oUser = GetObject("LDAP://" & strUserDN)

'========================================
' Add the number of days to the last time
' the password was set.
'========================================
whenPasswordExpires = DateAdd("d", numDays, oUser.PasswordLastChanged)
fromDate = Date
daysLeft = DateDiff("d",fromDate,whenPasswordExpires)

if (daysLeft < warningDays) then
    Msgbox "Password Expires in " & daysLeft & " day(s)" & " at " & whenPasswordExpires & chr(13) & chr(13) & "Once logged in, press CTRL-ALT-DEL and" & chr(13) & "select the 'Change a password' option", 0, "PASSWORD EXPIRATION WARNING!"
End if

'========================================
' Clean up.
'========================================
Set oUser = Nothing
Set maxPwdAge = Nothing
Set oDomain = Nothing

[CodeCaster]

Je zou via GPO een scheduled task kunnen inschieten, ja.