VBS获取本地IP地址

以下VBS代码是利用WMI获取本地ip地址：

'使用时调用getLocalIP()即可返回本地ip地址

'call getLocalIP()

 

Function getLocalIP()
 Set bjWMI = GetObject("winmgmts:\\.\root\cimv2")
 Set bjNetWorks = objWMI.ExecQuery("Select * from Win32_NetWorkAdapterConfiguration "_
 &"where IPEnabled=TRUE")
 For Each objNetWork In objNetWorks
  For Each IP In objNetWork.IPAddress
   If IP <> "" Then
    getLocalIP = IP
    Exit Function
   End If
  Next
 Next
End Function