' IP-Adresse abfragen

DECLARE FUNCTION ipadresse$ ()

PRINT "Aktuelle IP-Adresse: >" + ipadresse$ + "<"

FUNCTION ipadresse$
  SHELL "ipconfig >" + ENVIRON$("TEMP") + "\~IPADR.TXT"
  OPEN ENVIRON$("TEMP") + "\~IPADR.TXT" FOR INPUT AS 1
  WHILE NOT EOF(1)
    LINE INPUT #1, z$
    IF INSTR(z$, "IP-Adresse") > 0 THEN
      h% = INSTR(z$, ":")
      ip$ = LTRIM$(MID$(z$, h% + 1))
    END IF
  WEND
  CLOSE 1
  KILL ENVIRON$("TEMP") + "\~IPADR.TXT"
  ipadresse$ = ip$
END FUNCTION