求一段获取本土IP并发送到邮箱的VBS

求一段获取本地IP并发送到邮箱的VBS
求一段获取本地IP并发送到邮箱的VBS
希望是调式成功的
网上找了一些，无效
谢谢

        getIP = .Execute(getHtmlStr(strHtml))(0).SubMatches(0)
    End With
End Function