Copie e cole o código abaixo em um arquivo de bloco de notas, depois salve com qualquer nome que quiser.bat
@ECHO OFF
Call :gg
REM Impedir de executar o arquivo gg.vbs duas vezes
Exit /b 0
:gg
REM Criando um arquivo chamado gg.vbs em %~dp0
REM
REM Tambem vai regravar o arquivo pre- existente chamado %~dp0\gg.vbs
echo.> "%~dp0\gg.vbs"
echo.dim NIC1, Nic, StrIP, CompName>> "%~dp0\gg.vbs"
echo.>> "%~dp0\gg.vbs"
echo.Set NIC1 = GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")>> "%~dp0\gg.vbs"
echo.>> "%~dp0\gg.vbs"
echo.For Each Nic in NIC1>> "%~dp0\gg.vbs"
echo.>> "%~dp0\gg.vbs"
echo. if Nic.IPEnabled then>> "%~dp0\gg.vbs"
echo. StrIP = Nic.IPAddress(0)>> "%~dp0\gg.vbs"
echo. Set WshNetwork = WScript.CreateObject("WScript.Network")>> "%~dp0\gg.vbs"
echo. CompName= WshNetwork.Computername>> "%~dp0\gg.vbs"
echo.>> "%~dp0\gg.vbs"
echo. MsgBox "IP: "^&StrIP ^& vbNewLine _>> "%~dp0\gg.vbs"
echo. ^& "Nome do Computador: "^&CompName,4160,"IP e Nome do Computador">> "%~dp0\gg.vbs"
echo.>> "%~dp0\gg.vbs"
echo. wscript.quit>> "%~dp0\gg.vbs"
echo. End if>> "%~dp0\gg.vbs"
echo.Next>> "%~dp0\gg.vbs"
CSCRIPT //NOLOGO "%~dp0\gg.vbs"
Exit /b 0