IF xReadInfo THEN
xReadInfo := FALSE;
xFirstAdapter := TRUE;
rResult := 0;
WHILE rResult = 0 DO
IF xFirstAdapter THEN
hAdapter := SysSockGetFirstAdapterInfo(ADR(AdapterInfo), ADR(udiStructSize), ADR(rResult));
ELSE
hAdapter := SysSockGetNextAdapterInfo(hAdapter, ADR(AdapterInfo), ADR(udiStructSize), ADR(rResult));
END_IF
IF rResult = 0 THEN
sIpAddr := Standard.CONCAT(BYTE_TO_STRING(AdapterInfo.IpAddr.S_un_b.s_b1),'.');
sIpAddr := Standard.CONCAT(sIpAddr,BYTE_TO_STRING(AdapterInfo.IpAddr.S_un_b.s_b2));
sIpAddr := Standard.CONCAT(sIpAddr,'.');
sIpAddr := Standard.CONCAT(sIpAddr,BYTE_TO_STRING(AdapterInfo.IpAddr.S_un_b.s_b3));
sIpAddr := Standard.CONCAT(sIpAddr,'.');
sIpAddr := Standard.CONCAT(sIpAddr,BYTE_TO_STRING(AdapterInfo.IpAddr.S_un_b.s_b4));
sMacAddr := Standard.CONCAT(SM0.Byte_To_HexString(AdapterInfo.abyMac[0]),'-');
sMacAddr := Standard.CONCAT(sMacAddr,SM0.Byte_To_HexString(AdapterInfo.abyMac[1]));
sMacAddr := Standard.CONCAT(sMacAddr,'-');
sMacAddr := Standard.CONCAT(sMacAddr,SM0.Byte_To_HexString(AdapterInfo.abyMac[2]));
sMacAddr := Standard.CONCAT(sMacAddr,'-');
sMacAddr := Standard.CONCAT(sMacAddr,SM0.Byte_To_HexString(AdapterInfo.abyMac[3]));
sMacAddr := Standard.CONCAT(sMacAddr,'-');
sMacAddr := Standard.CONCAT(sMacAddr,SM0.Byte_To_HexString(AdapterInfo.abyMac[4]));
sMacAddr := Standard.CONCAT(sMacAddr,'-');
sMacAddr := Standard.CONCAT(sMacAddr,SM0.Byte_To_HexString(AdapterInfo.abyMac[5]));
END_IF
xFirstAdapter := FALSE;
END_WHILE
END_IF |