VB6.0获取电脑IP地址（源码），获取本机所有IP地址，其实就是下面的代码来获取IP：　　PrivateSubCommand1_Click()　　DimobjWMI1AsObject,LOC1AsObject,XAsObject,object1AsObject　　DimIPA'定义对象和变量　　SetobjWMI1=CreateObject("WbemScripting.SWbemLocator")'建立1个WBEM对象的引用指针　　SetLOC1=objWMI1.ConnectServer(".","root\cimv2")'连