proc main
   string sLine, sIP

   dos "ipconfig > c:\ip.txt"
   pause 3
   fopen 0 "c:\ip.txt" READ TEXT
   while not feof 0
      fgets 0 sLine
      if strfind sLine "IP Address"
         strextract sIP sLine ":" 1
         strreplace sIP " " ""
         strreplace sIP "`n" ""
         strreplace sIP "`r" ""
      endif
   endwhile
   fclose 0
   delfile "c:\ip.txt"
endproc