再问如何向CMD里写命令? Telnet

老榆头

第一次发帖，请大家多帮忙，先谢谢了

坛里子搜了一下,没有找到.就问一下：
我是用来定时开关交换机的端口

比如我是想执行这样的一串命令：
1/ 打开＂开始＂＂运行＂，输入ＣＭＤ
２／在ＣＭＤ窗口中输入：telnet 192.168.0.1
3／输入用户名：admin
４／输入密码：admin
５／进入系统视图，输入：system-view
６／输入：int e1/0/11
等等

周一打开，周五关闭，循环执行
------------------------------------------------

请问，如何实现，谢谢

[ 本帖最后由 老榆头 于 2009-3-12 21:11 编辑 ]

pcbar

telnet似乎不支持stdin/out
建议使用形如下列之脚本

;BEGIN SCRIPT----------------------------------------------
;simulates a TELNET connection

Global $host, $port, $delay, $user, $pass, $sk, $ack

$host = "192.168.1.1"
$port = 23
; miliseconds to wait before sending/receiving something
$delay = 300 ; compensates network/internet delays
$user = ""
$pass = ""

TCPStartup()
$sk = TCPConnect($host, $port)

;if invalid socket
If $sk = -1 Then
MsgBox(0, "", "Cannot connect")
Exit
EndIf

; message from device
Sleep($delay)
$ack = TCPRecv($sk, 150)
TrayTip("", $ack, 10)

; verifying the correct answer
If StringInStr($ack, "wl500gp login") >= 1 Then
; if the string is correct then we send user
Sleep($delay)
TCPSend($sk, $user & @CRLF)
Sleep($delay)
$ack = TCPRecv($sk, 80)
TrayTip("", $ack, 10)
; and password
Sleep($delay)
TCPSend($sk, $pass & @CRLF)
Sleep($delay)
$ack = TCPRecv($sk, 80)
TrayTip("", $ack, 10)
Else
MsgBox(0, "", "Cannot connect")
Exit
EndIf

; verifying the answer of the device (the prompt that it returns after receiving user and password)
If StringInStr($ack, "root]$") = 0 Then ; attention, this string is specific
MsgBox(0, "Error", "Access denied")
Exit
EndIf

; now you can send some commands
Sleep($delay)
TCPSend($sk, "ps" & @CRLF)
Sleep($delay)
$ack = TCPRecv($sk, 2000)
MsgBox(0,"Running processes", $ack)

TCPCloseSocket($sk)
TCPShutdown()
Exit
;END SCRIPT----------------------------------------------

老榆头

先谢谢星哥pcbar
我先试试

老榆头

原帖由 pcbar 于 2009-1-9 20:22 发表
telnet似乎不支持stdin/out
建议使用形如下列之脚本

;BEGIN SCRIPT----------------------------------------------
;simulates a TELNET connection

Global $host, $port, $delay, $user, $pass, $sk, $ack ...

不知道为什么，用上面的脚本TCPConnect($host, $port)总是返回-1（无法连接）
可是我用telnet，却可以正常连接

老榆头

现在还是不 能连接，什么原因？

sxd

你不会是 直接复制的把? ip不对

老榆头

哦，当然不是的
而且我用XP自带的TELNET可以正常连接
就是用上面的代码，总是不可以？

老榆头

感谢pcbar
又照提示做了一下
可以了，方法就是根据pcbar提示
谢谢

23cyj

pcbar是什么东西，怎么调试成功的呀

23cyj

不好意思。

  上面的代码，我测试时，TCPConnect($host, $port)总是返回 ？？？？？

一串问号，这是为什么呀

liun02

pcbar提示的是什么内容呢？？

jd19970829

是啊，为什么我测试TCPConnect($host, $port)也是返回 ？？？？？是什么问题啊？

xiehuahere

正常，回显信息前面有一段乱码。
我这里也是这样的。

haodd

回复 2# pcbar [code]Global $host, $port, $delay, $user, $pass, $sk, $ack

$host = "192.168.1.81"
$port = 23
; miliseconds to wait before sending/receiving something
$delay = 300 ; compensates network/internet delays
$user = "admin"
$pass = ""

TCPStartup()
$sk = TCPConnect($host, $port)

;if invalid socket
If $sk = -1 Then
MsgBox(0, "", "Cannot connect")
Exit
EndIf

; message from device
Sleep($delay)
$ack = TCPRecv($sk, 150)
TrayTip("", $ack, 10)
ClipPut ($ack)

; verifying the correct answer
If StringInStr($ack, "?

haijie1223

真可爱的楼主 学习一下 呵呵