教育部考试中心的电话:请教如何在vfp中读取计算机的ip地址

*方法一：

ox=CREATEOBJECT("MSwinsock.Winsock")
?'IP地址：',ox.LocalIP
?'计算机名：',ox.LocalHostName
RELEASE OX

******************************************

*方法二：

PUBLIC IPSocket
crlf=CHR(13)+CHR(10)
* 显示本地 ip 地址及 计算机名
IPSocket = CREATEOBJECT("MSWinsock.Winsock")
IF TYPE('IPSocket')='O'
IPAddress = IPSocket.LocalIP
localhostname = IPSocket.LocalHostName
remotehost = IPSocket.RemoteHost
remotehostip = IPSocket.RemoteHostIP
MESSAGEBOX ("本地 IP = " + IPAddress+crlf+"本地 host = "+LocalHostName;
+crlf+"RemoteHost = "+RemoteHost+crlf+"RemoteHostIP = "+RemoteHostIP)
ELSE
MESSAGEBOX ("Winsock 未安装!")
ENDIF
RELEASE IPSocket

********************************************
*方法三：
LOCAL oWMI AS OBJECT,oLocal AS OBJECT,oHARDWARE AS OBJECT,object1 AS OBJECT,lcCPUID,LcMAC,lcHDID,lcSerial
oWMI=CREATEOBJECT("WbemScripting.SWbemLocator")
oLocal=oWMI.ConnectServer(".", "root\cimv2")

oHARDWARE=oLocal.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration Where IPEnabled=1")
FOR EACH object1 IN oHARDWARE
LcIP=object1.Properties_('IPAddress').VALUE
EXIT
ENDFOR
?'IP地址：',LcIP

********************************************