[已解決]在線ip計算機名自動掃描bat這個代碼幫忙修改下謝謝最后由 ygqiang 于 -7-16 21:01[已解決]

@echo off
setlocal enabledelayedexpansion
set aa=
cd.>在線ip-計算機名.txt
for /f tokens=15 delims=  %%i in ('ipconfig ^| find /i IP Address') do (
set fsip=%%i
)
echo %fsip%
for /f tokens=1,2,3 delims=. %%i in (%fsip%) do (
set a=%%i.%%j.%%k
)
set Gateway=%a%.1
del /f /q 在線ip-計算機名.txt >nul 2>nul
for /l %%m in (1,1,254) do (
ping.exe %a%.%%m -n 1 -w 300 >nul&&Call :getname %a%.%%m
)
echo 查詢結束
exit
:getname
set iip=%1
set nname=
for /f delims= %%i in ('nbtstat -a !iip! ^| find /i <00>UNIQUE') do (
echo %%i
set tii=%%i
for /f tokens=1 delims=<  %%j in (!tii!) do echo !iip!!aa!%%j>>在線ip-計算機名.txt
goto :aa
)
for /f delims= %%j in ('nbtstat -a !iip! ^| find /i Host not found') do (
echo %%j
echo !iip!>>在線ip-計算機名.txt
)
:aa
nclick="copycode($('code0'));">復制代碼

在線ip-計算機名-自動掃描.bat，這個代碼幫忙修改下。。。謝謝。。這個bat代碼，生成的txt文件內容如下：

192.168.8.11CB1
192.168.8.12CB2
192.168.8.13CB3
192.168.8.14CB4
192.168.8.15CB5
192.168.8.16CB6
nclick="copycode($('code1'));">復制代碼

如何修改下bat代碼，生成如下txt的內容呢？

CB1192.168.8.11
CB2192.168.8.12
CB3192.168.8.13
CB4192.168.8.14
CB5192.168.8.15
CB6192.168.8.16
nclick="copycode($('code2'));">復制代碼