有很多方法,这个可能容易一些。
Dim WS
Dim IPADDRESS As String '本机的IP地址
Dim LocalNAME As String '本机的计算机名 Set WS = CreateObject("MSWinsock.Winsock")
IPADDRESS = o_WS.LocalIP
LocalNAME = o_WS.LocalHostName
Dim WS
Dim IPADDRESS As String '本机的IP地址
Dim LocalNAME As String '本机的计算机名 Set WS = CreateObject("MSWinsock.Winsock")
IPADDRESS = o_WS.LocalIP
LocalNAME = o_WS.LocalHostName
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货