中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

中国DOS联盟论坛
现在时间是 2026-08-12 04:38
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 求脚本中telnet类似ftp -s:的调用命令 查看 2,857 回复 20
16 发表于 2007-04-19 02:29 ·  中国 上海 浦东新区 电信
中级用户
★★
积分 302
发帖 138
注册 2007-03-29 02:33
19年会员
UID 83224
性别 男
状态 离线
顶一下,everest79兄看到还请帮忙
17 发表于 2007-04-19 03:39 ·  中国 上海 浦东新区 电信
中级用户
★★
积分 302
发帖 138
注册 2007-03-29 02:33
19年会员
UID 83224
性别 男
状态 离线
问题我已经解决了 vbs脚本中设置cmd程序路径然后执行,vbs脚本运行指定命令,但是有个问题是当输入指令中含有"("和")"符号时无法正确输入,不知道有什么办法解决没有.~~
18 发表于 2007-04-19 04:00 ·  中国 上海 浦东新区 电信
中级用户
★★
积分 302
发帖 138
注册 2007-03-29 02:33
19年会员
UID 83224
性别 男
状态 离线
找了些资料看了看,输入问题也解决了.在此要谢谢 everest79兄之前的帮助
19 发表于 2007-04-19 09:53 ·  中国 广东 广州 黄埔区 电信
金牌会员
★★★★
一叶枝头,万树皆春
积分 2,564
发帖 1,127
注册 2006-12-25 22:57
19年会员
UID 74552
性别 男
状态 离线
啊哈,你17的方法是什么,详细说一下,含有""的指令最简单的方法是以变量来保存,再调用
20 发表于 2007-04-19 22:22 ·  中国 上海 浦东新区 电信
中级用户
★★
积分 302
发帖 138
注册 2007-03-29 02:33
19年会员
UID 83224
性别 男
状态 离线
CMDPath="C:\WINNT\system32\CMD.EXE"
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run CMDPath

这样可以很好的解决窗口敏感的问题,其实也很简单,当然很使用.
可以用这个方法出来解决很多需要输入用户名密码的软件进行自动登陆,用途广泛.
在vbs SendKey功能的符号问题我指的是在telnet下显示括号问题,不过现在已经解决,感觉批脚本和vbs脚本合用可谓是前途无量啊~~~~
21 发表于 2009-07-10 05:35 ·  中国 安徽 马鞍山 电信
中级用户
★★
积分 493
发帖 228
注册 2007-02-16 00:38
19年会员
UID 79596
性别 男
来自 安徽
状态 离线

tel.cmd
@ECHO OFF
ECHO .
ECHO .
ECHO .
ECHO .
ECHO 注意:即将开始远程批配置请关闭其它可执行程序
ECHO 注意:配置过程中不要使用鼠标及键盘
ECHO .
ECHO .
ECHO .
ECHO .
ECHO 按任意键开始EIA远程批配置
pause>nul
for /f %%i in (list.txt) do start telnet 202.76.56.107 && cscript //nologo telsvr.vbs %%i && echo %%i done!>>log.txt

ECHO 批量配置完成
pause>nul

telsh.vbs
set tel=WScript.CreateObject("WScript.Shell")
temp=WScript.Arguments.Item(0)
WScript.Sleep 5000
tel.SendKeys "admin{ENTER}"
WScript.Sleep 1500
tel.SendKeys "admin{ENTER}"
WScript.Sleep 1500


红色处,好像有错误!?

修改+补充

tel.cmd
@ECHO OFF
ECHO .
ECHO .
ECHO .
ECHO .
ECHO 注意:即将开始远程批配置请关闭其它可执行程序
ECHO 注意:配置过程中不要使用鼠标及键盘
ECHO .
ECHO .
ECHO .
ECHO .
ECHO 按任意键开始EIA远程批配置
pause>nul
for /f %%i in (list.txt) do start telnet %%i && cscript //nologo telsvr.vbs %%i && echo %%i done!>>log.txt

ECHO 批量配置完成
pause>nul

telsvr.vbs
set tel=WScript.CreateObject("WScript.Shell")
temp=WScript.Arguments.Item(0)
WScript.Sleep 5000
tel.SendKeys "admin{ENTER}"
WScript.Sleep 1500
tel.SendKeys "admin{ENTER}"
WScript.Sleep 1500

list.txt
192.168.0.1
192.168.0.2
192.168.0.3
……
根据实际情况,修改list.txt



[ Last edited by xycoordinate on 2009-7-10 at 05:50 ]
论坛跳转: