These people sell an aplication that permits sending sms with a batch file.
http://www.intellisoftware.co.uk I Fwrite from FW and Run :
[SENDSMS 637777888 Rec:PRUEBA SL /Dir:ABADESA, Nº 12 /Ciudad:MADRID /Hora:19:15] to send an SMS
************************************************
Function MakeSendSms(cSend,cTel)
Local oText
Local cText:='SENDSMS '+cTel+ ' "'+cSend+'"'
IF FILE("PESSEND.BAT")
ERASE PESSEND.BAT
ENDIF
oText:= TTxtFile():New("PESSEND.BAT" )
if oText:Open()
oText :Add(cText)
oText :Close()
endif
IF FILE("PESSEND.BAT")
WAITRUN("PESSEND.BAT",2)
ENDIF
RETURN NIL