Server-Überwachung mit ASP

IP-Konfiguration auslesen

Angenommen Sie würden gerne Informationen über die IP-Konfiguration des entfernten Rechners auslesen. Dazu der folgende Beispielcode (in einer Produktionsumgebung wäre es natürlich sinnvoll, den Quellcode um passende Fehlerbehandlungen zu erweitern):

<%
set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery ("SELECT IPAddress, DefaultIPGateway FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE")

for each IPConfig in IPConfigSet
Response.Write " IP-Addresse: " & IPConfig.IPAddress(i)
Response.Write "Default IP Gateway: " & IPConfig.DefaultIPGateway(i)
Next
%>

Zunächst erzeugen Sie ein Container-Objekt mit dem Namen IPConfigSet. Dieses Set enthält alle zur Abfrage passenden Objekte. In diesem Fall sind das Objekte des Typs Win32_NetworkAdapterConfiguration - also Konfigurationen von Netzwerkkarten, die eingeschaltet sind (Enabled = True). Von diesen Objekten werden aber nicht alle Informationen, sondern nur die IP-Adresse und das DefaultGateway erfragt.

Dann iteriert das Script über alle Elemente des zurückgelieferten Containers. Bei VBScript unter ASP ist das mit dem Konstrukt for each sehr einfach. In jedem Schleifendurchlauf können Sie ein Objekt mit dem Namen IPConfig verwenden; dieses Objekt hat die beiden ausgewählten Eigenschaften: IPAdress und DefaultIPGateway. Diese beiden Eigenschaften geben Sie dann mit Response.Write aus: Fertig ist die IP-Informationsseite.