[s, r]=system('ipconfig')

                % r=regexp(r,'IP Address. . . . . . . . . . . . : \d{1,3}.\d{1,3}.\d{1,3}.\d{1,3}','match')

                 r=regexp(r,'IPv4 地址 . . . . . . . . . . . . : \d{1,3}.\d{1,3}.\d{1,3}.\d{1,3}','match');

                 r=r{}

                 r=regexp(r,'\d{1,3}.\d{1,3}.\d{1,3}.\d{1,3}','match')

                 lip=r{}

                 disp(['本机IP为：',lip])