Sub GetUCIP(strUserName As String, strIP As String, strCompName As String)

Dim oNic1, oNic, wScript, wshNetwork, wshShell

Set wshShell = CreateObject("WScript.Shell")
strUserName = wshShell.ExpandEnvironmentStrings("%USERNAME%")

Set wshNetwork = CreateObject("WScript.Network")
strCompName = wshNetwork.Computername
        
Set oNic1 = GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")

For Each oNic In oNic1
    If oNic.IPEnabled Then strIP = oNic.IPAddress(0): Exit For
Next oNic

Set oNic1 = Nothing
Set wshNetwork = Nothing
Set wshShell = Nothing

End Sub

'------------------------------------------------

Sub TestUsernameComputernameIP()

Dim strUserName As String, strIP As String, strCompName As String

GetUCIP strUserName, strIP, strCompName

MsgBox "Username:" & vbTab & strUserName & vbCrLf & "Computername:" & vbTab & strCompName & vbCrLf & "IP-Address:" & vbTab & strIP

End Sub