Funktion getIPAddresses()

~ 0 min
25.10.2011 17:29
Beschreibung:

Die Funktion getIPAddresses() gibt in einem Array die IP-Adressen eines Computers zurück.
Dies kann z.B. dazu verwendet werden um Vorlagenpfade oder Drucker auszuwählen, oder auch den zur Verfügung stehenden SMTP-Server.

Die Funktion getIPAddresses() kann über die Funktionsbibliothek Standard1 für eigene Makros verfügbar gemacht werden. Hierzu muss nur die Funktionsbibliothek Standard1 unter Makroincludes im Bereich Administration importiert werden. Über die Anweisung MacroInclude "Standard1" sind alle in dieser Funktionsbibliothek bereitgestellten Funktionen dann im eigenen Makrocode beliebig oft verwendbar.

Anwendungsbeispiel:

Das folgende Beispiel gibt die IP-Adressen (Inklusive IP-V6 sofern vorhanden) aus:

MacroInclude "Standard1"                                                
Dim Ipadressen, i, msg
Ipadressen = getIPAddresses
For i=0 To UBound(Ipadressen)
msg=msg & "IP-Adresse Nr. " & Ipadressen(i,0) & ": " & Ipadressen(i,1) & Chr(13)
Next
MsgBox msg
Einrichtung:

Laden Sie sich die aktuelle Funktionsbibliothek Standard1 herunter und installieren Sie diese.

Vorraussetzungen:

Es muss mindestens AGVIP SQL Version 1.21.002 oder höher installiert sein um die Anweisung Macroinclude verwenden zu können.

Durchschnittliche Bewertung 0 (0 Abstimmungen)

Kommentieren nicht möglich