Public Function GetLocalIP(ByVal IPAddress As String) As String
    Dim i
    Set WMI = GetObject("winmgmts:root/CIMV2")
    WQL = "select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE"
    Set IPConfigSet = WMI.ExecQuery(WQL)
    For Each IPConfig In IPConfigSet
       If Not IsNull(IPConfig.IPAddress) Then
         i = UBound(IPConfig.IPAddress)
             IPAddress = IPConfig.IPAddress(i)
       End If
    Next
    GetLocalIP = IPAddress
    End Function