Question

我正在尝试运行批处理脚本以获取主机名和IP地址并将其传递到.csv文件。看来我正在经历一个无休止的循环。导出到excel时，我无法找到结束循环的方法。这是我目前的脚本。我正在测试这个脚本是否能够从多个PC更新。感谢

   @echo off
    set ip_address_string="IPv4 Address"
    echo Network Connection Test
    for /F "tokens=4 delims= " %%i in ('route print ^| find " 0.0.0.0"') do set localIp=%%i
    echo %ComputerName%
    echo Your IP Address is: %localIp%
    break
    echo Export into file 
    forfiles /s /C "cmd /c echo %ComputerName%, %localIp%" > MyTextOutput.csv
    break

Answer 1

这是一个VBA函数，用于从 Excel / VBA模块中返回当前主IP地址，简化为@ gerhard-barnard以最小化行数 VBA 代码：

Function GetIP()
    Dim IPConfig: For Each IPConfig In GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE"): GetIP = IPConfig.IPAddress(0): Next
End Function

这在技术上是三行代码（但不恰当的编码技术......只是说明一点）。

通过＆＃34; Helen＆＃34;，here查看完整（正确）巧妙的答案。无需批处理文件或VB脚本。

将IP地址和主机名管道传输到CSV

1 个答案: