И вот мне пришла в голову идея - можно закодировать IP-пакеты в звук разной тональности и передавать их через обычный GSM-звонок. На другом конце их декодировать. Получается как-бы tunnel over voice.
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "<путь к .bat файлу>" & Chr(34), 0
Set WshShell = Nothing
listener.bind(('localhost', 9999))и
connection.connect(('external_ip', 9999))