Return result of IPCONFIG

EQU ESC TO CHAR(27), STX TO CHAR(2), CR TO CHAR(13)

DIRECTORY='D:\TMP\'

FILENAME='IPCONFIG.TXT'

* DELETE CURRENT FILE IF ANY

SCRIPT = 'On Error Resume Next :Kill "':DIRECTORY:FILENAME:'"':CR

PRINT ESC:STX:'P':SCRIPT:CR:

* ISSUE IPCONFIG COMMAND (USE CMD.EXE /C TO ALLOW

REDIRECTION TO FILE)

PRINT ESC:STX:'>CMD.EXE /C IPCONFIG /ALL

>> ':DIRECTORY:FILENAME:CR:

* RETURN CONTENTS OF IPCONFIG.TXT FILE

CALL FTS('R,K,T', DIRECTORY, FILENAME, RESULT, STAT)

* CHECK STATUS

IF STAT = '' THEN

PRINT 'RESULT:'

FOR I = 1 TO DCOUNT(RESULT, @AM)

PRINT RESULT<I>

NEXT I

END ELSE

PRINT 'FAILURE: ':STAT

END