We have 2 TP1200 panels and would like to use only 1 program. In order to make small differences between the panel we would like to get the IP address in the WinCC TIA V13.1 runtime. Think it should be possible with a script, but can't find how

I couldn't find a solution yet. Has anyone got this working somehow?

Hello TNijpjes

Look at this threat:

https://support.industry.siemens.com/tf/de/de/posts/82052/

There is an example but the Threat is in german.

Bye Murof

Thanks, it's the answer I was looking for.

For the not German reading people finding this thread, the answer was in english. I'll post it below.

vIP,vMask, vMac, vHostname are internal string variables (WString) to receive the results.

' 20090518 Get the Ip Address and store it in Local Variables (From Siemens AG)
' Modified to work on Windows CE V5.0 on the MP277
Dim fso,f,temp,erg,t
Set fso = CreateObject("FileCtl.FileSystem")
Set f = CreateObject("FileCtl.File")
'writes the ipconfig in to a text file 
'Help says hmiShowMinimizedAndInactive, but program only accepts hmiShowMaximizedAndInactive
'Command for WinCCflexible/CE 5.0
StartProgram "CMD", "/C ipconfig /all >\Flash\ip.txt", hmiShowMinimized, hmiNo 
'wait until the output is ready
Do Until fso.Dir("\Flash\ip.txt") = "ip.txt" 
Loop
'open the text file
f.open "\Flash\ip.txt",1,1 'fsModeInput,fsAccessReadWrite 
Do
temp = f.LineInputString 'read out line by line
erg = InStr(temp, "IP Address ........ : ") 'wenn / if Zeile = IPAdresse
If erg Then 
SmartTags("vIP") = Right(temp,Len(temp)-erg-21)
End If
erg = InStr(temp, "Subnet Mask ....... : ") 'wenn / if Zeile = SubnetMask
If erg Then SmartTags("vMask") = Right(temp,Len(temp)-erg-21)
erg = InStr(temp, "Address............ : ") 'wenn / if Zeile = MAC-Adresse
If erg Then SmartTags("vMac") = Right(temp,Len(temp)-erg-21)
erg = InStr(temp, "Host name.......... : ") 'wenn / if Zeile = HostName
If erg Then SmartTags("vHostName") = Right(temp,Len(temp)-erg-21)
Loop While f.EOF = False
f.Close 'close the text file
Set f = Nothing
Set fso = Nothing
"

Thanks! Can't really get this to work on a TP700 though. Can you upload the textfile so I can see if it's exactly the same?

BR

Jonatan

The code is the exact code I'm using.

What is the problem you're having?

I'm not familiar with the TP700. The code runs fine on my TP1200 Comfort. On my laptop it doesn't work when I'm starting the runtime.

 I have had success using the script below but only with a slight modification.  I find that writing the "ip.txt" file to the "Flash" directory/drive occasionally produces a lock-up or freeze of the CMD (pocket command) program and causing the entire runtime to halt.

I have not seen this problem repeated when instead writing to either the SD memory card or to an existing folder (for example "Temp") on the panel.  FYI, I am using TIA Portal V13 SP1 and a TP700 comfort panel.

TNijpjes

Thanks, it's the answer I was looking for.

For the not German reading people finding this thread, the answer was in english. I'll post it below.

vIP,vMask, vMac, vHostname are internal string variables (WString) to receive the results.

' 20090518 Get the Ip Address and store it in Local Variables (From Siemens AG)
' Modified to work on Windows CE V5.0 on the MP277
Dim fso,f,temp,erg,t
Set fso = CreateObject("FileCtl.FileSystem")
Set f = CreateObject("FileCtl.File")
'writes the ipconfig in to a text file 
'Help says hmiShowMinimizedAndInactive, but program only accepts hmiShowMaximizedAndInactive
'Command for WinCCflexible/CE 5.0
StartProgram "CMD", "/C ipconfig /all >\Flash\ip.txt", hmiShowMinimized, hmiNo 
'wait until the output is ready
Do Until fso.Dir("\Flash\ip.txt") = "ip.txt" 
Loop
'open the text file
f.open "\Flash\ip.txt",1,1 'fsModeInput,fsAccessReadWrite 
Do
temp = f.LineInputString 'read out line by line
erg = InStr(temp, "IP Address ........ : ") 'wenn / if Zeile = IPAdresse
If erg Then 
SmartTags("vIP") = Right(temp,Len(temp)-erg-21)
End If
erg = InStr(temp, "Subnet Mask ....... : ") 'wenn / if Zeile = SubnetMask
If erg Then SmartTags("vMask") = Right(temp,Len(temp)-erg-21)
erg = InStr(temp, "Address............ : ") 'wenn / if Zeile = MAC-Adresse
If erg Then SmartTags("vMac") = Right(temp,Len(temp)-erg-21)
erg = InStr(temp, "Host name.......... : ") 'wenn / if Zeile = HostName
If erg Then SmartTags("vHostName") = Right(temp,Len(temp)-erg-21)
Loop While f.EOF = False
f.Close 'close the text file
Set f = Nothing
Set fso = Nothing
"

Hi!

I am running Tia porta V14 update 6 and this doesn't work. I also changed it to the temp folder but what happens is that it reaches the end of the file in the 4th line, can anyone help me with that?

Many thanks,

Raúl

 Thanks! The problem is that we have to use v14... 

Murof

Hello

If you had TIA Portal V15 then there is a bettwer way:

SIMATIC HMI Option+
https://support.industry.siemens.com/cs/de/en/view/109754400

It is a great solution to get Panel-internal data.

But for V14 .... there is still no other Solution...

Bye Murof