LOCAL oServer, oAdapters, oAdapter oServer = GetObject("winmgmts:\\" + "." + "\root\cimv2") oAdapters = oServer.ExecQuery(; "SELECT * FROM Win32_NetworkAdapterConfiguration") CREATE CURSOR csResult (; ObjectCaption C(50),; Gateway C(50),; IPAddress C(20),; MACAddress C(20),; IPXAddress C(20),; ServiceName C(50),; DHCPServer C(50),; DNSHostName C(50); ) LOCAL cGateway FOR EACH oAdapter IN oAdapters WITH oAdapter IF .IPEnabled cGateway = IIF(ISNULL(.DefaultIPGateway), "",; .DefaultIPGateway[0]) INSERT INTO csResult VALUES (; NVL(.Caption, ""),; NVL(cGateway, ""),; NVL(.IPAddress[0], ""),; NVL(.MACAddress, ""),; NVL(.IPXAddress, ""),; NVL(.ServiceName, ""),; NVL(.DHCPServer, ""),; NVL(.DNSHostName, ""); ) ENDIF ENDWITH NEXT SELECT csResult GO TOPvia another program as under...it works
DO mac1 if IPaddress ="10.1.8.34 " do FORM main1 else do FORM seq endifthanks
>>if Ipaddress="10.1.8.34 " >> do FORM main1 >>else >> do FORM seq >>endif >>>>
>>>>if Ipaddress=10.1.8.34 or Ipaddress=10.1.8.30 >>>> >>>> do form... >>>>else >>>> do form... >>>>endif >>>>>>>>
>>>if Ipaddress="10.1.8.34" or Ipaddress="10.1.8.30" >>> do form.. >>>else >>> do form.. >>>endif