mabue88
Goto Top

IP-Adresse in Powerpoint anzeigen lassen

Hallo zusammen,

gibt es eine Möglichkeit, die IP-Adresse (und eventuell andere Netzwerkdaten) in einer Powerpoint-Präsentation anzeigen zu lassen?


Danke
mabue88

Content-Key: 72001

Url: https://administrator.de/contentid/72001

Ausgedruckt am: 28.03.2024 um 15:03 Uhr

Mitglied: bastla
bastla 26.10.2007 um 18:39:58 Uhr
Goto Top
Hallo mabue88!

Du könntest zu diesem Zweck
  • die Symbolleiste "Steuerelement-Toolbox" (über "Ansicht / Symbolleisten") anzeigen lassen und
  • dort das Symbol mit dem großen "A" anklicken, um mit der Maus ein "Bezeichnungsfeld" aufziehen zu können. Diese Feld erhält die Beschriftung "Label1".
  • Per Doppelklick auf das Feld wird der VBA-Editor geöffnet und Du kannst zwischen "Private Sub Label1_Click()" und "End Sub" folgenden Code einfügen:
strComputer = "."  
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")  
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True", , 48)  
For Each objItem In colItems
    If Not IsNull(objItem.IPAddress) Then
        If IP = "" Then IP = objItem.IPAddress(0)  
    End If
Next
Label1.Caption = IP
  • Nachdem Du den VBA-Editor geschlossen hast, kannst Du über das Kontextmenü des Bezeichnungsfeldes die "Eigenschaften" anzeigen lassen, wo Du verschiedene Formatierungsmöglichkeiten (vor allem "Font, "ForeColor" und "BackColor") vorfindest. Hier kannst Du auch in "Caption" den Text "Label1" zB durch "IP-Adresse" ersetzen.
  • Wenn Du nun die Präsentation startest, kannst Du durch einen Klick auf das Bezeichnungsfeld den Text "IP-Adresse" durch die aktuelle IP-Adresse der ersten Netzwerkkarte ersetzen lassen.

Grüße
bastla