@Echo OFF
Cls
REM NWSEND Interactive SEND command by Roger Foss
Echo NWSEND - Novell NetWare SEND                            by Roger Foss
Echo ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
USERS /U=%1* /O >C:\TEMP\NWSEND.TMP
Set NWSENDUSR=%@SELECT[C:\TEMP\NWSEND.TMP,2,20,18,80, Select Recipient]
IF "%NWSENDUSR%" == "" (Echo ABORT: No recipient selected^GOTO END)
Echo Recipient: %NWSENDUSR%
Echo ─────────────────────────────────────────────────────────────────────
INPUT Message  : %%NWSENDMSG
IF "%NWSENDMSG%" == "" (Echo ABORT: No message to send^GOTO END)
Echo ─────────────────────────────────────────────────────────────────────
SEND "%NWSENDMSG%" TO %@SUBSTR["%NWSENDUSR%",1,3]

:END
DEL C:\TEMP\NWSEND.TMP >NUL
Set NWSENDUSR=
Set NWSENDMSG=
Echo ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄