To generate a report of accounts that will expire, run (on your PDC):

JSIWExpire <Drive:>\Folder\WExpire.txt

where <Drive:>\Folder\WExpire.txt is the output report file.

JSIWExpire.bat uses only standard commands and contains:

<b>@echo off
if NOT "%1"<h1><a name="_goto_begin_syntax_echo_Syntax_JSIWExpire_File_goto_end_begin_setlocal_set_file_1_if_exist_file_del_q_file_for_f_Skip_4_Tokens_i_in_net_users_do_call_parse_i_endlocal_goto_end_parse_set_str_#_1#_set_str_str_#_set_str_str_#_if_str_">"" goto begin
:syntax
@echo Syntax: JSIWExpire File
goto end
:begin
setlocal
set file=%1
if exist %file% del /q %file%
for /f "Skip=4 Tokens=*" %%i in ('net users') do call :parse "%%i"
endlocal
goto end
:parse
set str=#%1#
set str=%str:#"=%
set str=%str:"#=%
if "%str%"</a></h1>"The command completed successfully." goto end
set substr=%str:~0,25%#
set substr=%substr:  =%
set substr=%substr: #=%
set substr=%substr:#=%
if "%substr%"<h1><a name="_goto_end_set_a_cnt_0_for_f_Tokens_i_in_net_user_substr_do_call_parse1_i_set_substr_str_25_25_#_set_substr_substr_set_substr_substr_#_set_substr_substr_#_if_substr_">"" goto end
set /a cnt=0
for /f "Tokens=*" %%i in ('net user "%substr%"') do call :parse1 "%%i"
set substr=%str:~25,25%#
set substr=%substr:  =%
set substr=%substr: #=%
set substr=%substr:#=%
if "%substr%"</a></h1>"" goto end
set /a cnt=0
for /f "Tokens=*" %%i in ('net user "%substr%"') do call :parse1 "%%i"
set substr=%str:~50,25%#
set substr=%substr:  =%
set substr=%substr: #=%
set substr=%substr:#=%
if "%substr%"<h1><a name="_goto_end_set_a_cnt_0_for_f_Tokens_i_in_net_user_substr_do_call_parse1_i_goto_end_parse1_set_a_cnt_cnt_1_set_ustr_1_if_ustr_">"" goto end
set /a cnt=0
for /f "Tokens=*" %%i in ('net user "%substr%"') do call :parse1 "%%i"
goto end
:parse1
set /a cnt=%cnt% + 1
set ustr=%1
if %ustr%</a></h1>"The command completed successfully." goto end
set ustr=%ustr:"=%
if %cnt% EQU 2 set fullname=%ustr:~29,99% &set active=n
if %cnt% EQU 7 goto tsta
if %cnt% NEQ 6 goto end
set ls="%ustr:~29,3%"
if /i not %ls%<h1><a name="_Yes_goto_end_set_active_y_goto_end_tsta_if_not_active_">"Yes" goto end
set active=y
goto end
:tsta
if not "%active%"</a></h1>"y" goto end
set ls="%ustr:~29,5%"
if /i %ls%=="Never" goto end
set Expires="%ustr:~29,17%"
set substr=%substr:"=%
set substr=%substr%                                                        #
set substr=%substr:~0,22%
set fullname=%fullname:"=%
set fullname=%fullname%                                                    #
set fullname=%fullname:~0,30%
set Expires=%Expires:"=%
set Expires=%Expires%                                                    #
set Expires=%Expires:~0,17%
@echo %substr% %Expires% %fullname% >> %file%
:end</b>