Скрипт для windows, выдает сообщение если до смены пароля остается N дней.

 
iMinDays = 7

strComputer = "." 
Set wshNetwork = CreateObject("WScript.Network") 
strUser = wshNetwork.Username 
Set objUser = GetObject("WinNT://" & strComputer & "/" & strUser) 
      intPasswordAge = objUser.PasswordAge 
      maxPasswordAge = objUser.maxPasswordAge 
iCurrDays = int((maxPasswordAge-intPasswordAge)/86400)




if(iMinDays > iCurrDays) then
MsgBox "Внимание Ваш пароль станет недействительным через: " & iCurrDays & " дня."& chr(13) & chr(13) &"Сейчас откроется окно, в нем нужно нажать сменить пароль и ввести новый пароль. " 
set objShell = CreateObject("shell.application")
objshell.WindowsSecurity
End if