code:

---

 
 BREAK ON
 CLS

 ; -- Ref. http://kixtart.org/board/Forum2/HTML/000133.html for date routine

 IF Left(@kix,1) < 4
       ?"This script requires Kixtart 4.x"
       SLEEP 2
       EXIT
 ELSE

       $ldomain = @domain
       $lstrusername = "servicesql"
       $mailhost = "smtp.server.com"
       $adminrecpt = "recipient@@server.com"

       $userobj = GetObject("WinNT://$LDomain/$lstrUserName")

       ;$UserObj = GetObject("WinNT://" + $DomainString  + "/" + $lstrUserName)

       $pwexpire = $userobj.passwordexpirationdate
       $dtcalc = $pwexpire = @date

       ?"UserAuthor: " + $userobj.name
       ?"UserPasswordExpires: " + $pwexpire

       $tt = $pwexpire

       $pwdate = substr($tt,1,10)

       $pwyear = val(substr($tt,1,4))
       $pwmonth = val(substr($tt,6,2))
       $pwdate = val(substr($tt,9,2))

       $nowyear = @year
       $nowmonth = @monthno
       $nowdate = @mdayno

       IF $pwyear <> $nowyear
             $nowmonth = $nowmonth + (12 * ($nowyear - $pwyear))
       ENDIF

       IF $pwmonth <> $nowmonth
             $nowdate = $nowdate + 30
       ENDIF

       ?$nowdate - $pwdate

       IF ($nowdate - $pwdate) <= 2
             ? "Password Change required within 2 days, please change"
             SHELL 'postie.exe -host:$MailHost -to:$AdminRecpt -from:"ServiceAccountChg" -s:"Password Change" -msg:"The service account: $lstrUserName needs to be changed."'
       ELSE
             ? "Password older than 2 Days, no action is needed"
       ENDIF
 ENDIF

---

code:

---

BREAK ON
CLS

IF Left(@kix,1) < 4
 ?"This script requires Kixtart 4.x"
 SLEEP 2
 EXIT
ELSE
 $ldomain = @domain
 $lstrusername = "servicesql"
 $mailhost = "smtp.server.com"
 $adminrecpt = "recipient@@server.com"
 $userobj = GetObject("WinNT://$LDomain/$lstrUserName")
 $pwexpire = $userobj.passwordexpirationdate

 ?"UserAuthor: " + $userobj.name
 ?"UserPasswordExpires: " + $pwexpire

 $tt = SPLIT($pwexpire," ")
 $mdy = SPLIT($tt[0],"/")
 $expiredatearray = $mdy[2],$mdy[0],$mdy[1]
 $currentdatearray = "@YEAR","@MONTHNO","@MDAYNO"
   
    
 Function CalcDayofYear($ymdarray) ; Only works on non-millenium years after 2000.
  $Calendar = 31,28,31,30,31,30,31,31,30,31,30,31    
  If VAL($ymdarray[0]) & 1 $Ly = 0 ; leap year calculations
  Else
   If (Val($ymdarray[0])/2) & 1 $Ly = 0
   Else $Ly = 1
   Endif
  Endif
  $calendar[1] = $calendar[1] + $LY 
  $mdays = 0
  For $m = 0 to (Val($ymdarray[1]) -2)
    $mdays =  $mdays + $calendar[$m]
  Next
  $CalcDayofYear = $mdays + $ymdarray[2] 
 EndFunction

 $daystoexpire = CalcDayofYear($expiredatearray) - CalcDayofYear($currentDateArray) + ((VAL($expiredatearray[0]) - VAL(currentdataArray[0])) * 365)

 If $daystoexpire <= 2
  ? "Password Change required within 2 days, please change"
     SHELL 'postie.exe -host:$MailHost -to:$AdminRecpt -from:"ServiceAccountChg" -s:"Password Change" -msg:"The service account: $lstrUserName needs to be changed."'
 ELSE
  ? "Password will not expire for more than 2 Days, no action is needed"
 ENDIF

ENDIF

---

code:

---

Dim DomainString, UserObj,PwExpire,TodayDt,DtCalc,FmtDate

DomainString = "YOURDOMAIN"

lstrUserName = "servicesql"

Set UserObj = GetObject("WinNT://" & DomainString  & "/" & lstrUserName)

PwExpire = UserObj.PasswordExpirationDate
DtCalc = DateDiff("d",date,PwExpire) 
'TodayDt = Date
'DtCalc = FmtDate - TodayDt

If DtCalc <= 2 Then
wscript.echo "Please Change your servicesql password"
end if

wscript.echo "UserAuthor: " & UserObj.Name
wscript.echo "UserPasswordExpires: " & PwExpire
'wscript.echo TodayDt
wscript.echo DtCalc

---

code:

---

BREAK ON
CLS

IF Left(@kix,1) < 4
 ?"This script requires Kixtart 4.x"
 SLEEP 2
 EXIT
ELSE
 $ldomain = @domain
 $lstrusername = "servicesql"
 $mailhost = "smtp.server.com"
 $adminrecpt = "recipient@@server.com"
 $userobj = GetObject("WinNT://$LDomain/$lstrUserName")
 $pwexpire = $userobj.passwordexpirationdate

 ?"UserAuthor: " + $userobj.name
 ?"UserPasswordExpires: " + $pwexpire

 $tt = SPLIT($pwexpire," ")
 $mdy = SPLIT($tt[0],"/")
 $expiredatearray = $mdy[2],$mdy[0],$mdy[1]
 $currentdatearray = "@YEAR","@MONTHNO","@MDAYNO"
   
    
 Function CalcDayofYear($ymdarray) ; Only works on non-millenium years after 2000.
  $Calendar = 31,28,31,30,31,30,31,31,30,31,30,31    
  If VAL($ymdarray[0]) & 1 $Ly = 0 ; leap year calculations
  Else
   If (Val($ymdarray[0])/2) & 1 $Ly = 0
   Else $Ly = 1
   Endif
  Endif
  $calendar[1] = $calendar[1] + $LY 
  $mdays = 0
  For $m = 0 to (Val($ymdarray[1]) -2)
    $mdays =  $mdays + $calendar[$m]
  Next
  $CalcDayofYear = $mdays + $ymdarray[2] 
 EndFunction

 $diffyears =  VAL($expiredatearray[0]) - VAL($currentdatearray[0])
  If $diffyears > 0
   $YearstoDays = 0
   For $countyear = VAL($currentdatearray[0]) to (VAL($expiredatearray[0])-1)
   $acountyear = $countyear,"12","31"
   $YearstoDays = $Yearstodays + CalcDayofYear($acountyear)
   Next
  Endif

 $daystoexpire = CalcDayofYear($expiredatearray) - CalcDayofYear($currentDateArray) + $yearstodays
 If $daystoexpire <= 2
  ? "Password Change required within 2 days, please change"
     SHELL 'postie.exe -host:$MailHost -to:$AdminRecpt -from:"ServiceAccountChg" -s:"Password Change" -msg:"The service account: $lstrUserName needs to be changed."'
 ELSE
  ? "Password will not expire for more than 2 Days, no action is needed"
 ENDIF

ENDIF

---

quote:

---

Script error : unknown command !
$pwexpire = $userobj.passwordexpirationdate

---

quote:

---

DOMAIN.com/Accounts/Users/Service Account Users/SQL Service Accounts/ServiceSql

---

quote:

---

$userobj = GetObject("LDAP://PDC.DOMAIN.com,ou=Accounts,ou=Users,ou=Service Account Users,ou=SQL Service Accounts,cn=ServiceSql")

---

code:

---

 BREAK ON
 CLS

 ; -- Author - Kent Dyer
 ; -- Original Date - 30 May 2002
 ; -- Change Date - 4 June 2002
 ; -- Initially used Date Routine - http://kixtart.org/board/Forum2/HTML/000133.html
 ; -- Date Routine built/changes by BrianTX
 ; -- Optionally, you could use DateMath, SerialDate from
 ; -- http://scriptlogic.com/Kixtart/ViewFunction.asp?FN=SerialDate
 ; -- http://scriptlogic.com/Kixtart/ViewFunction.asp?FN=DateMath
 ; -- Added a simple array (using split) from Kix 4.x 6/4/02
 ; -- pieces taken from
 ; -- http://cwashington.netreach.net/depo/view.asp?Index=198&ScriptType=vbscript
 ; -- http://cwashington.netreach.net/depo/view.asp?Index=323&ScriptType=vbscript
 ; -- http://kixtart.org/board/ultimatebb.php?ubb=get_topic;f=2;t=003347

 IF Left(@kix,1) < 4
       ?"This script requires Kixtart 4.x"
       SLEEP 2
       EXIT
 ELSE
       $ldomain = @domain
       ;$lstrusername = "servicesql" ; -- uncomment out if you don't want to use split
       $lstrusername = Split("servicesql~~cbcwindu~~servicemmc", "~~") ; -- comment out if you don't want to use split
       $mailhost = "smtphost.domain.com" ; -- fill in with your smtp server
       $adminrecpt = "user@@domain.com" ; -- add in your e-mail address

       FOR EACH $element IN $lstrusername ; -- comment out if you don't want to use split

             ;$userobj = GetObject("LDAP://PDC.DOMAIN.com,ou=Accounts,ou=Users,ou=Service Account Users,ou=SQL Service Accounts,cn=ServiceSql")
             ;$userobj = GetObject("WinNT://$LDomain/$lstrUserName")  ; -- uncomment out if you don't want to use split
             $userobj = GetObject("WinNT://$LDomain/$Element") ; -- comment out if you don't want to use split
             $pwexpire = $userobj.passwordexpirationdate

             ?"UserName: " + $userobj.name
             ?"UserPasswordExpires: " + $pwexpire

             $tt = SPLIT($pwexpire," ")
             $mdy = SPLIT($tt[0],"/")
             $expiredatearray = $mdy[2],$mdy[0],$mdy[1]
             $currentdatearray = "@YEAR","@MONTHNO","@MDAYNO"
                
                 
             FUNCTION CalcDayofYear($ymdarray) ; Only works on non-millenium years after 2000.
                   $calendar = 31,28,31,30,31,30,31,31,30,31,30,31
                   IF VAL($ymdarray[0]) & 1 $ly = 0 ; leap year calculations
                   ELSE
                         IF (Val($ymdarray[0])/2) & 1 $ly = 0
                         ELSE 
                               $ly = 1
                         ENDIF
                   ENDIF
                   $calendar[2] = $calendar[2] + $ly
                   $mdays = 0
                   FOR $m = 0 TO (Val($ymdarray[1]) -2)
                         $mdays =  $mdays + $calendar[$m]
                   NEXT
                   $calcdayofyear = $mdays + $ymdarray[2]
             ENDFUNCTION

             $daystoexpire = CalcDayofYear($expiredatearray) - CalcDayofYear($currentdatearray)
             ?$daystoexpire

             IF $daystoexpire <= 2
                   ? "Password Change required within 2 days, please change"
                   ;SHELL 'postie.exe -host:$MailHost -to:$AdminRecpt -from:"ServiceAccountChg" -s:"Password Change" -msg:"The service account: $lstrUserName needs to be changed."'
                   SHELL 'postie.exe -host:$MailHost -to:$AdminRecpt -from:"ServiceAccountChg" -s:"Password Change" -msg:"The service account: $Element needs to be changed."'
             ELSE
                   ? "Password will not expire for more than 2 Days, no action is needed"
             ENDIF
       NEXT  ; -- comment out if you don't want to use split

 ENDIF

---

quote:

---

UserName: ServiceSql
UserPasswordExpires: 7/9/2002 6:18:13 AM
Number of Days till password expires: 35
Password will not expire for more than 2 Days, no action is needed
UserName: cbcwindu
UserPasswordExpires: 8/28/2002 10:29:29 AM
Number of Days till password expires: 85
Password will not expire for more than 2 Days, no action is needed
UserName: servicemmc
UserPasswordExpires: 7/17/2002 7:26:16 AM
Number of Days till password expires: 43
Password will not expire for more than 2 Days, no action is needed

---

code:

---

 BREAK ON
 CLS

 ; -- Author - Kent Dyer
 ; -- Original Date - 30 May 2002
 ; -- Change Date - 4 June 2002
 ; -- Initially used Date Routine - http://kixtart.org/board/Forum2/HTML/000133.html
 ; -- Date Routine built/changes by BrianTX
 ; -- Optionally, you could use DateMath, SerialDate from
 ; -- http://scriptlogic.com/Kixtart/ViewFunction.asp?FN=SerialDate
 ; -- http://scriptlogic.com/Kixtart/ViewFunction.asp?FN=DateMath
 ; -- Added a simple array (using split) from Kix 4.x 6/4/02
 ; -- pieces taken from
 ; -- http://cwashington.netreach.net/depo/view.asp?Index=198&ScriptType=vbscript
 ; -- http://cwashington.netreach.net/depo/view.asp?Index=323&ScriptType=vbscript
 ; -- http://kixtart.org/board/ultimatebb.php?ubb=get_topic;f=2;t=003347

 IF Left(@kix,1) < 4
       ?"This script requires Kixtart 4.x"
       SLEEP 2
       EXIT
 ELSE
       $ldomain = @domain
       ;$lstrusername = "servicesql" ; -- uncomment out if you don't want to use split
       $lstrusername = Split("servicesql~~cbcwindu~~servicemmc", "~~") ; -- comment out if you don't want to use split
       $mailhost = "smtphost.domain.com" ; -- fill in with your smtp server
       $adminrecpt = "user@@domain.com" ; -- add in your e-mail address

       FOR EACH $element IN $lstrusername ; -- comment out if you don't want to use split

             ;$userobj = GetObject("LDAP://PDC.DOMAIN.com,ou=Accounts,ou=Users,ou=Service Account Users,ou=SQL Service Accounts,cn=ServiceSql")
             ;$userobj = GetObject("WinNT://$LDomain/$lstrUserName")  ; -- uncomment out if you don't want to use split
             $userobj = GetObject("WinNT://$LDomain/$Element") ; -- comment out if you don't want to use split
             $pwexpire = $userobj.passwordexpirationdate

             ?"UserName: " + $userobj.name
             ?"UserPasswordExpires: " + $pwexpire

             $tt = SPLIT($pwexpire," ")
             $mdy = SPLIT($tt[0],"/")
             $expiredatearray = $mdy[2],$mdy[0],$mdy[1]
             $currentdatearray = "@YEAR","@MONTHNO","@MDAYNO"
                             
                              
             FUNCTION CalcDayofYear($ymdarray) ; Only works on non-millenium years after 2000.
                   $calendar = 31,28,31,30,31,30,31,31,30,31,30,31
                   IF VAL($ymdarray[0]) & 1 $ly = 0 ; leap year calculations
                   ELSE
                         IF (Val($ymdarray[0])/2) & 1 $ly = 0
                         ELSE 
                               $ly = 1
                         ENDIF
                   ENDIF
                   $calendar[1] = $calendar[1] + $ly
                   $mdays = 0
                   FOR $m = 0 TO (Val($ymdarray[1]) -2)
                         $mdays =  $mdays + $calendar[$m]
                   NEXT
                   $calcdayofyear = $mdays + $ymdarray[2]
             ENDFUNCTION

             $diffyears =  VAL($expiredatearray[0]) - VAL($currentdatearray[0])
             IF $diffyears > 0
                   $yearstodays = 0
                   FOR $countyear = VAL($currentdatearray[0]) TO (VAL($expiredatearray[0])-1)
                         $acountyear = $countyear,"12","31"
                         $yearstodays = $yearstodays + CalcDayofYear($acountyear)
                   NEXT
             ENDIF

             $daystoexpire = CalcDayofYear($expiredatearray) - CalcDayofYear($currentdatearray) + $yearstodays
             ?"Number of Days till password expires: " + $daystoexpire
             IF $daystoexpire <= 2
                   ? "Password Change required within 2 days, please change"
                   ;SHELL 'postie.exe -host:$MailHost -to:$AdminRecpt -from:"ServiceAccountChg" -s:"Password Change" -msg:"The service account: $lstrUserName needs to be changed."'
                   SHELL 'postie.exe -host:$MailHost -to:$AdminRecpt -from:"ServiceAccountChg" -s:"Password Change" -msg:"The service account: $element needs to be changed."'
             ELSE
                   ? "Password will not expire for more than 2 Days, no action is needed"
             ENDIF

       NEXT  ; -- comment out if you don't want to use split

 ENDIF

---