Android ASP.NET C C++ C# Golang Java JavaScript jQuery Node.js Objective C Perl PHP Python Ruby Ruby on Rails Scala Swift VBScript Visual Basic .NET VBA

How to Get Client IP Address in VBScript

/*
https://stackoverflow.com/a/40153468/3599237
*/
dim NIC1, Nic, StrIP, CompName

Set NIC1 =     GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")

For Each Nic in NIC1

    if Nic.IPEnabled then
        StrIP = Nic.IPAddress(0)

        Set WshNetwork = WScript.CreateObject("WScript.Network")
        CompName= WshNetwork.Computername

        MsgBox "IP Address:  "&StrIP & vbNewLine _
            & "Computer Name:  "&CompName,4160,"IP Address and Computer Name"

        wscript.quit
    End if
Next