[文本处理] 根据用户输入telnet指定IP的批处理要如何才能运行？

ciacia1986

@echo off
set /p ip=请输入ip地址:%ip%
@del c:\temp.vbs
@echo on error resume next >>c:\temp.vbs
@echo dim WshShell>>c:\temp.vbs
@echo Set WshShell = WScript.CreateObject("WScript.Shell")>>c:\temp.vbs
@echo WshShell.run"cmd">>c:\temp.vbs
@echo WshShell.AppActivate"c:\windows\system32\cmd.exe">>c:\temp.vbs
@echo WScript.Sleep 200>>c:\temp.vbs
@echo WshShell.SendKeys"telnet %ip%">>c:\temp.vbs
@echo WshShell.SendKeys"{ENTER}">>c:\temp.vbs
复制代码

以上批处理我想实现的是将一个随机的IP地址如：222.87.144.156赋值给变量IP，以便在以后的操作中调用IP请大家帮忙看看，以前这样的赋值没做过
不是说要把某个固定的IP地址赋值给某个随机，是要定义一个随机，然后将从键盘输入的IP地址赋值给这个随机，方便在以后的操作中将这个随机引用
新手发帖已经多次询问过解决方法，脸都搞红了结果还是没解决.......
谢谢

hlzj88

是这样吗

@echo off
setlocal EnableDelayedExpansion
set /p ip=请输入ip地址:
@del C:\temp.vbs
@echo on error resume next >C:\temp.vbs
@echo dim WshShell>>C:\temp.vbs
@echo Set WshShell = WScript.CreateObject("WScript.Shell")>>C:\temp.vbs
@echo WshShell.run"cmd">>C:\temp.vbs
@echo WshShell.AppActivate"windows\system32\cmd.exe">>C:\temp.vbs
@echo WScript.Sleep 200>>C:\temp.vbs
@echo WshShell.SendKeys"telnet !ip!">>C:\temp.vbs
@echo WshShell.SendKeys"{ENTER}">>C:\temp.vbs
复制代码

ciacia1986

不行啊，程序根本运行不了，输入IP地址过后程序直接关闭了，不能够对输入的IP地址进行连接。

ciacia1986

谢谢，但是还是不行，运行不了

hlzj88

vbs不懂，上面只是把你键盘输入的Ip写入到VBS的问题解决了。其他真无能为力。

我的机可以运行，且与原文相同

ciacia1986

@echo off
set /p ip=请输入IP：
echo 你输入的IP是：%ip%
@echo WshShell.run"cmd">>C:\temp.vbs
@echo WshShell.AppActivate"windows\system32\cmd.exe">>C:\temp.vbs
@echo WScript.Sleep 200>>C:\temp.vbs
@echo WshShell.SendKeys"telnet %ip%">>C:\temp.vbs
@echo WshShell.SendKeys"{ENTER}">>C:\temp.vbs
复制代码

为什么输入IP以后cmd.exe不会启动，而程序直接就关闭了，要怎样改才能运行？我想实现的时候从键盘输入一个IP地址然后对输入的IP地址进行telnet

Seter

你就不会最后运行C:\temp.vbs....

ciacia1986

帮帮我吧.......

sysplay

你的代码仅仅只是创建了C:\temp.vbs，并没有运行该VBS文件。在后面添加start C:\temp.vbs。

Seter

楼上正解。你这个cmd的目的是写一个文件,而你的要求是运行这个文件...start即可..

ciacia1986

能不能说详细一点？。。。。。。。。。。

Batcher

@echo off
set /p ip=请输入IP：
echo 你输入的IP是：%ip%
>"C:\temp.vbs" (
    echo WshShell.run"cmd"
    echo WshShell.AppActivate"windows\system32\cmd.exe"
    echo WScript.Sleep 200
    echo WshShell.SendKeys"telnet %ip%"
    echo WshShell.SendKeys"{ENTER}"
)
start "" "C:\temp.vbs" 
复制代码

ciacia1986

原帖由 Batcher 于 2010-2-23 01:17 发表
@echo off
set /p ip=请输入IP：
echo 你输入的IP是：%ip%
>"C:\temp.vbs" (
    echo WshShell.run"cmd"
    echo WshShell.AppActivate"windows\system32\cmd.exe"
    echo WScript.Sleep 200
    echo Ws ...

提示错误：脚本c:\temp.vbs
                 行：1
                 字符：1
                 错误：缺少对象：‘wshShell’
                 代码：800A01A8
                 源：    Microsoft VBScript 运行时错误
VBS搞不懂。。。

Batcher

本论坛有专门的VBS版块，可以过去学习一些基础知识。

@echo off
set /p ip=请输入ip地址:%ip%
>"C:\temp.vbs" (
    echo on error resume next
    echo dim WshShell
    echo Set WshShell = WScript.CreateObject^("WScript.Shell"^)
    echo WshShell.run"cmd"
    echo WshShell.AppActivate"c:\windows\system32\cmd.exe"
    echo WScript.Sleep 200
    echo WshShell.SendKeys"telnet %ip%"
    echo WshShell.SendKeys"{ENTER}"
)
start "" "C:\temp.vbs"
复制代码

ciacia1986

原帖由 Batcher 于 2010-2-23 13:07 发表
本论坛有专门的VBS版块，可以过去学习一些基础知识。@echo off
set /p ip=请输入ip地址:%ip%
>"C:\temp.vbs" (
    echo on error resume next
    echo dim WshShell
    echo Set WshShell = WScript.CreateO ...

谢谢，搞这么长时间终于解决了

[ 本帖最后由 ciacia1986 于 2010-3-22 17:07 编辑 ]