Hi!
Dasselbe geht auch mit ner SQL-Datenbank, falls du mal eine
verwenden solltest.
Trotzdem hier noch das Skript um die IP,Hostname und evtl. die MAC-Adresse der HMI-Station auszulesen. Wenn du dann mit Smart-Service
auf die Station schaust, kannst du immer die aktuelle IP sehen!
Einfach 3 interne Stringvariablen (25 Bytes) mit den Namen
strMAC_Adresse
strHost_Name
strIP_Adresse
anlegen und mit einem Ausgabefeld (Typ String min 25 Zeichen)
verschalten.
Dann hängst du dieses Skript zB. einfach an das 'Startbild'->Ereignis->Bild
aufgebaut oder du rufst es zeitlich im Taskplaner auf.
Code:
Dim strComputer,objWMIService,colAdapters,n
Dim objAdapter,i
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colAdapters = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
Set objAdapter = colAdapters
n = 1
For Each objAdapter In colAdapters
If n=1 Then
SmartTags("strMAC_Adresse")=CStr(objAdapter.MACAddress)
SmartTags("strHost_Name")= CStr(objAdapter.DNSHostName)
If Not IsNull(objAdapter.IPAddress) Then
For i = 0 To UBound(objAdapter.IPAddress)
SmartTags("strIP_Adresse")=CStr(objAdapter.IPAddress(i))
Next
End If
End If
n=n+1
Next
PS:
Wenn du viel mit Visualisierungen zu tun hast, würde ich mir
VBscript und Visual Basic ein bischen anschauen, denn damit läßt sich
vieles realisieren, wo du sonst mit den 'reinen' Visu-Mitteln nicht
rankommst. Und die meisten Visualisierungen unterstützen VBscript.
Viele Grüße
Thomas